作者:乔山办公网日期:
返回目录:excel表格制作
给你修百改了一下,你自己度可以自定义范围。
只要修专改:Range("A1:A4") 这个范属围就可以了。
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
If Not Application.Intersect(Target, Range("A1:A4")) Is Nothing And Target.Count = 1 Then
Set p = ActiveSheet.Pictures.Insert("c:\1.bmp")
p.Left = Target.Left + Target.Width
p.Top = Target.Top
End If
End Sub