Endre tilstanden til verktøylinjeknapp

Makroen nedenfor viser hvordan man kan endre utseendet på en egendefinert verktøylinjeknapp slik at den vises som om den er nedtrykket eller ikke.

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

Dokumentet er sist oppdatert 2000-02-05 22:10:37 Utskriftsvennlig versjon