아래 매크로는 사용자 지정 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