通过单击WPS EXCEL 单元格显示不同的图片

通过单击WPS EXCEL 单元格显示不同的图片

下面是实现功能的VBA程序
//P列单元格 是图片文件名

Dim range1, range2 As Range
Dim str As String

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
str = “$p$” & Target.Row
Set range2 = Range(str)
Image1.Picture = LoadPicture(“d:\pic” & range2.Value2)
End Sub