Excel 选中单元格显示浮动图片

目的:

     移动选中的单元格内, 显示对应图片

 

 在宏内插下如下代码:

 

更改注意事项:

 1. 修改图片目录

 2. 图片文件格式为jpg ,  单元格的内容为图片文件的名称

 

---

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    

    On Error GoTo Err

      

    '取得文件名

    Dim fname As String

    fname = "D:\IMG\"  '此处修改为图片对应的目录

　fname = fname & "{1}.jpg"

    fname = Replace(fname, "{1}", Target.Text)

    

    '刷新图片

    If Dir(fname) <> "" Then

        Me.ImgStyle.Picture = LoadPicture(fname)

        Me.ImgStyle.Visible = True

    Else

        Me.ImgStyle.Picture = LoadPicture()

        Me.ImgStyle.Visible = False

    End If

 

    '设置图片位置

    Me.ImgStyle.Top = ActiveWindow.VisibleRange.Cells.Top

    Me.ImgStyle.Left = ActiveWindow.VisibleRange.Cells.Width - Me.ImgStyle.Width - 10

    

    Exit Sub

    

    '出错后不显示图片

Err:

    Me.ImgStyle.Picture = LoadPicture()

    Me.ImgStyle.Visible = False

End Sub