这是 Sheet1 模块中的宏:
Private Sub Worksheet_Calculate()
Dim oPic As Picture
Me.Pictures.Visible = False
With Range("F1")
For Each oPic In Me.Pictures
If oPic.Name = .Text Then
oPic.Visible = True
oPic.Top = .Top
oPic.Left = .Left
Exit For
End If
Next oPic
End With
End Sub
在工作簿中是这样的:
我如何获得访问权限Me.Pictures
?我们想添加图片并删除一些现有的图片。