Ändra knappar i verktygsfältet med VBA

July 29

Det finns vissa verktygsknappar att när du trycker på dem, ändra de ha ett annat utseende. Till exempel, om du trycker på Fet verktyget tar verktyget på ett annorlunda utseende, som om den är nedtryckt. Detta görs genom Word med två olika knapp grafik. Den första är "omark" utseende, och den andra visas när knappen har klickat.

Du kan använda en liknande trick med dina egna knappar i verktygsfältet. Som ett exempel på hur detta skulle kunna fungera, låt oss säga att du har ett verktygsfält som du använder mycket. Du har döpt detta verktygsfält "sampler". Du vill att detta verktygsfält som ska visas när du klickar på en knapp på en annan verktygsfält. Först måste du skapa den nya verktygsfält som innehåller den enda knapp som växlar "sampler" i verktygsfältet. I detta exempel kommer det nya verktygsfältet heta "switcher." Följande VBA-makro kan tilldelas en knapp på "switcher" i verktygsfältet:

Sub SwitchTools ()
"Kontrollera först om verktygsfältet ska visas eller döljas
Om Command ("sampler"). Synlig sedan
"Göm verktygsfältet och ändra knappbild till" normal "
Command ("sampler"). Visible = False
Command ("switcher"). Controls (1) .State. = MsoButtonUp
Else
"Visa på knappen och ändra knappbild till" utvalda "
Command ("sampler"). Visible = Sant
Command ("switcher"). Controls (1) .State = msoButtonDown
End If
End Sub

Detta makro växlar tillståndet i knappen (med hjälp msoButtonUp och msoButtonDown) för att göra det har önskat utseende.

WordTips är din källa för kostnadseffektiv Microsoft Word utbildning. (Microsoft Word är det mest populära ordbehandlingsprogram i världen.) Detta tips (1122) gäller för Microsoft Word 97, 2000, 2002, och 2003.