0

这是 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?我们想添加图片并删除一些现有的图片。

4

1 回答 1

0

尝试运行它,它只使用现有代码中的第三行

Private Sub MakeAllPicsVisible()
    Me.Pictures.Visible = True
End Sub

Me指代码所在的工作表对象。每张图片似乎都以列表中的项目命名

要更改图片名称,请通过名称框(公式栏左侧)输入新名称。

于 2012-08-21T14:12:33.563 回答