Microsoft ExcelでVBAを使用してカスタムコマンドバーボタンの状態を変更する
以下のマクロは、カスタムCommandBarボタンの状態を変更して、押されているかどうかを表示する方法を示しています。
Sub ToggleButtonState()
Dim m As CommandBarControl
Set m = CommandBars("CommandBarName").Controls(1)
If m.State = msoButtonDown Then
m.State = msoButtonUp
Else
m.State = msoButtonDown
End If
Set m = Nothing
End Sub