|
发表于 2013-3-1 23:02
|
显示全部楼层
本楼为最佳答案
- Private Sub Worksheet_Change(ByVal Target As Range)
- On Error Resume Next
- Dim Path As String, pic As Shape
- If Target.Count = 1 And Target <> "" And Target.Column = 2 Then
- Path = "D:\Backup\我的文档\My Pictures" & Target & ".JPG"
- For Each pic In ActiveSheet.Shapes
- If pic.Top = Target.Top Then
- pic.Delete
- Exit For
- End If
- Next
- ActiveSheet.Shapes.AddPicture Path, False, True, Target.Offset(0, 1).Left, Target.Offset(0, 1).Top, Target.Offset(0, 1).Width, Target.Offset(0, 1).Height
- End If
- End Sub
复制代码 直接用Shape的delete方法更好。 |
|