来自形状的宏名称点击

Question

我有很多张，都有一个激活宏的按钮。

使用VBA，我如何获取附在每张纸上形状上的宏的名称？

我有代码来查看每个工作表，但无法看到如何从形状属性中获取宏名称。

Answer 1

Sub LoopandExamine()
Dim ws As Worksheet
Dim s As Shape
For Each ws In Worksheets
    For Each s In ws.Shapes
        If s.OnAction <> "" Then
            Debug.Print s.Name & ";" & s.OnAction
        End If
    Next s
Next ws

End Sub