Sub Параметры_кнопки()
Dim oSh As Shape
For Each oSh In ActiveSheet.Shapes
' : AlternativeText : "main" : String
' : OnAction : "'Name.xlsm'!MainSelect" : String
Debug.Print oSh.AlternativeText & " - " & oSh.OnAction
Next
End Sub