Cambiare pulsanti della barra degli strumenti con VBA

Ci sono alcuni pulsanti della barra degli strumenti che, quando vengono premuti, cambiano ad avere un aspetto diverso. Ad esempio, se si preme sullo strumento Bold, lo strumento assume un aspetto diverso, come se si è depresso. Questo viene fatto Word utilizzando due diversi pulsanti grafici. Il primo è l'aspetto "non selezionata", e l'altro viene visualizzata quando viene fatto clic sul pulsante.

È possibile utilizzare un trucco simile con i pulsanti della barra degli strumenti personalizzati. Come esempio di come questo possa funzionare, diciamo che avete una barra degli strumenti che si usa molto. Avete chiamato questo "sampler." Toolbar Volete questa barra degli strumenti da visualizzare quando si fa clic su un pulsante su una barra diversa. In primo luogo, è necessario creare la nuova barra degli strumenti che conterrà il singolo pulsante che commuta la barra degli strumenti "sampler". In questo esempio, la nuova barra degli strumenti verrà denominato "switcher". La seguente macro VBA può essere assegnata a un pulsante sulla barra degli strumenti "switcher":

SwitchTools Sub ()
'In primo luogo verificare se viene visualizzata la barra degli strumenti o nascosta
Se CommandBars ("sampler"). Visible poi
'Nascondere la barra degli strumenti e modificare l'immagine del pulsante di "normalità"
CommandBars ("sampler"). Visible = False
CommandBars ("switcher"). Controls (1) .state. = MsoButtonUp
Altro
'Mostra il tasto e modificare l'immagine del pulsante per "selezionato"
CommandBars ("sampler"). Visible = true
CommandBars ("switcher"). Controls (1) .state = msoButtonDown
End If
End Sub

Questa macro cambia lo stato del tasto (con msoButtonUp e msoButtonDown) per renderlo avere l'aspetto desiderato.

WordTips è la vostra fonte per la formazione Microsoft Word conveniente. (Microsoft Word è il più popolare software di elaborazione testi del mondo.) Questa punta (1122) si applica a Microsoft Word 97, 2000, 2002, e 2003.