使用如下宏代码 可以 实现该功能
贴出来 给 有兴趣的 同志们 一起 参详
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each im In ActiveSheet.Pictures
im.Delete
Next
If Target.Column = 1 And Target.Row = 1 Then
Set p = ActiveSheet.Pictures.Insert("c:\1.bmp")
p.Left = Target.Left + Target.Width
p.Top = Target.Top
End If
End Sub
讲解一下
“Private Sub Worksheet_SelectionChange(ByVal Target As Range)”意思是 响应 表格选择区域的 变化,即 选择区域变化了 执行 代码;参数target可以用来引用 选择的区域;
第一段 的 功能 是 删除 所有 图片
第二段 的 功能 是 当 A1 单元格(Target.Column = 1 And Target.Row = 1)被选中时,显示C盘根目录下的1.bmp图片;相应的可以修改代码,实现不同单元格的点选,显示不同图片,根据具体需要而定。
如有不明,百度HI我,在线~~