[已解决]跪求一个关于图像显示的VBA，本人感激不尽

kkExcel

zjdh 发表于 2012-11-12 21:54
那你就用这个吧

请教如果是要在指定的位置上显示图片该怎么修改代码呢

zjdh

kkExcel 发表于 2012-12-15 14:01
请教如果是要在指定的位置上显示图片该怎么修改代码呢

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    If Target = "" Then Image1.Visible = False: Exit Sub
    P = Target.Value & ".JPG"
    With Image1
        .Picture = LoadPicture(ThisWorkbook.Path & "\图片\" & P)
        .Visible = True
    End With
    With ActiveCell   '修改为你的固定单元格
        Image1.Top = .Top + .Height
        Image1.Left = .Left + .Width
    End With
End Sub

kkExcel

如果改为E5，代码就是：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    If Target = "" Then Image1.Visible = False: Exit Sub
    P = Target.Value & ".JPG"
    With Image1
        .Picture = LoadPicture(ThisWorkbook.Path & "\图片\" & P)
        .Visible = True
    End With
    With E5
        Image1.Top = .Top + .Height
        Image1.Left = .Left + .Width
    End With
End Sub

是吗

kkExcel

zjdh 发表于 2012-12-15 16:45
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    If Tar ...

不知怎么弄
可以选任意一个，比如说在E5单元格
代码该怎么修改呢

zjdh

With Range("E5")

ww0000

这个怎么用呀?

ww0000

zjdh 发表于 2012-12-15 16:45
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    If Tar ...

请问大师,这个代码放哪?我怎么不起作用呢?

ww0000

zjdh 发表于 2012-11-12 21:54
那你就用这个吧

几个代码怎么用都不起作用.请老师看看

VBA链接图片.rar (163.62 KB, 下载次数: 6)

2015-7-23 08:40 上传

点击文件名下载附件

zjdh

ww0000 发表于 2015-7-23 08:40
几个代码怎么用都不起作用.请老师看看

两种方式插入图片.rar (220.52 KB, 下载次数: 14)

2015-7-25 16:24 上传

点击文件名下载附件

ww0000

zjdh 发表于 2015-7-25 16:24

谢谢老师！！！！！