暴露jpeg文件的EXCEL宏 - 存储的jpeg文件在哪里

Question

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

Answer 1

尝试运行此功能，只使用现有代码中的第三行

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

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

要更改图片名称，请通过名称框（公式栏左侧）输入新名称。