Question

我已将我的宏添加到工具栏中，并希望对其进行某种基本检查。我不想询问用户是否要执行宏，而是想检查文档中是否存在宏用于文档的特定图像。（也欢迎其他建议）

ActiveSheet.Shapes.Range(Array("Picture -767")).Select

这是我用来选择图像的代码。我无法找到如何管理图像。我想做的是

If Image is found then
    Part1
    Part2
Else
    MsgBox 'Macro is not intended for this document'
End if

感谢所有帮助！

Answer 1

这应该有效：

Option Explicit

Sub PicTest()
Dim Shp As Shape

    On Error GoTo ErrorExit
    Set Shp = ActiveSheet.Shapes("Picture -767")
    On Error GoTo 0

    ActiveSheet.Shapes.Range(Array("Picture -767")).Select
    Part1
    Part2
    Exit Sub

ErrorExit:
    MsgBox "Macro is not intended for this sheet"
End Sub

Excel VBA - 如果图像上有条件

1 个答案: