[分享]用vba实现的简易图片管理器

qqboy1 · 发表于 2005-7-11 21:50

在Sheet1 A1单元格里输入不同的数字，比如1-4，就会显示Sheet2中对应的不同图片。很好玩，拿出来献丑了~~呵呵~~（代码如下）

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" And Target.Value > 0 Then ActiveSheet.Shapes("Image1").Select Selection.Formula = "Sheet2!B" & Cells(1, 1) End If Cells(1, 1).Select End Sub

FyyoCHVL.rar (63.88 KB, 下载次数: 127)

[此贴子已经被作者于2005-7-11 22:00:55编辑过]

ken2010 · 发表于 2005-7-11 22:10

能在VBA的窗口中实现吗？？

如附件中的那个窗口中的image中

63Qm22jY.rar (70.73 KB, 下载次数: 50)

[此贴子已经被作者于2005-7-11 22:11:06编辑过]

cofe2000 · 发表于 2005-7-12 09:04

楼主的例子中可以用定义名称来实现比较简单

PIC=INDIRECT("Sheet2!$b$"&Sheet1!$A$1)

Image1直接＝PIC就可以了

qqboy1 · 发表于 2005-7-12 10:21

以下是引用cofe2000在2005-7-12 9:04:35的发言：
楼主的例子中可以用定义名称来实现比较简单

PIC=INDIRECT("Sheet2!$b$"&Sheet1!$A$1)

Image1直接＝PIC就可以了

受教!好方法!

汗，窗体中怎么实现我就不懂了，求高手指点。

ken2010 · 发表于 2005-7-12 13:25

请高手指点一下

qqboy1 · 发表于 2005-7-12 15:41

版主的作品真好，拜读！！！

ken2010 · 发表于 2005-7-13 12:41

版主的作品真好!又学了一招！

button · 发表于 2005-7-12 13:32

请参考：

http://club.excelhome.net/viewthread.php?tid=99123

		自动登录	找回密码
密码			免费注册