Mit folgendem Makro werden alle 366 Symbole von WinWord erzeugt und in einer neuen Symbolleiste mit der Bezeichnung "Schaltflächensymbole" hinterlegt:
Dim Shared slName$, n$
Sub main
slName$ = "Schaltflächensymbole"
n$ = "IconMaster"
Call symbolleiste
End Sub
Sub symbolleiste
If Not slExist Then NeueSymbolleiste .Name = slName$, .Kontext = 0
For icon = 366 To 1 Step -1
SchaltflächeHinzufügen slName$, 1, 2, n$, icon, 0
Next icon
GrößeSymbolleiste slName$, 800
SymbolleisteVerschieben slName$, 0, 9, 167
Else
If Not slAktiv Then AnsichtSymbolleisten .Symbolleiste = slName$, .Anzeigen
End If
End If
End Sub
Function slExist
slExist = 0
anzSL = ZählenSymbolleisten(0)
For i = 1 To anzSL
x$ = SymbolleistenName$(i, 0)
If x$ = slName$ Then slExist = - 1 : i = anzSL
Next
End Function
Function slAktiv
slAktiv = SymbolleistenStatus(slName$)
End Function
Wenn die neue Leiste geöffnet ist, muss zunächst der Befehl "Extras - Anpassen" gegeben werden. Nun kann mit der rechten Maustaste ein neues Symbolbild angeklickt und mit "Schaltflächensymbol kopieren" in die Zwischenablage kopiert werden. Ebenfalls mit der rechten Maustaste wird nun das bisherige Makrosymbol angeklickt und "Schaltflächensymbol einfügen" ausgewählt. Fertig ist der Austausch des Symbolbildes.