[求助]第一次用VBA（还是考别人的），但出问题，请帮忙修正

taller

以下是引用[I]zuodaoboy[/I]在2005-12-7 23:03:08的发言：[BR]你给的答案中好像找不到代码，也不能调用图片，不知道我这样说对不对。对于VBA我真的一点都不懂。 谢谢！

当然有代码了，图片需要按你原来的放到相应目录

zuodaoboy

8数的朋友多谢了。但能不能不用”看看是什么“这个按钮，而是选择了不同序号后即可显示相应的图片？

zuodaoboy

版主你好，我按照你说的把图片文件夹调入就能实现那个功能。 能不能说一下你是怎么做的，因为我想模仿，但一点都看不出你是怎么做的。 我真该学点VBA，但不知道难不难？

青山依旧

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Err.Clear
Dim str As String
str = ThisWorkbook.Path & "\ͼƬ\" & [a1] & ".jpg"
Sheet1.Image1.PictureSizeMode = fmPictureSizeModeZoom
Sheet1.Image1.Picture = LoadPicture(str)
If Err.Number <> 0 Then MsgBox "ͼƬ¿âÖÐûÓдËͼƬ"
End Sub

zuodaoboy

14楼的朋友多谢了。惭愧的很，因为我不懂得VBA，所以你给的代码我都不知该放哪呢。 非常不好意思，也非常感谢。

青山依旧

这句换掉表一中的第一句.

Private Sub Worksheet_Change(ByVal Target As Range)

taller

以下是引用[I]zuodaoboy[/I]在2005-12-7 23:19:39的发言：[BR]版主你好，我按照你说的把图片文件夹调入就能实现那个功能。 能不能说一下你是怎么做的，因为我想模仿，但一点都看不出你是怎么做的。 我真该学点VBA，但不知道难不难？

代码在Sheet1中，需要在你的工作表中添加一个Image控件

zuodaoboy

谢谢

下次我一定学VBA，免得自己提问题让自己难堪。

zuodaoboy

似乎有点眉目了。谢谢各位朋友，晚上辛苦了。 你“打的“过来我请客——当然，车费我出。