Macro bên dưới cho thấy cách bạn có thể thay đổi trạng thái của nút CommandBar tùy chỉnh để nó hiển thị dưới dạng chán nản hoặc không.

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