Word-interne Symbole verwenden

Wer eigene Symbolleisten verwendet und diese mit Symbolen versehen möchte, kann diese entweder selbst erstellen, über die Zwischenablage einfüge (dann lassen sich auch Bilder mit größerer Farbtiefe verwenden!) oder die in Word enthaltenen Symbole verwenden.

Word (2000) besitzt einige hundert Symbole, die den verschiedenen Symbolleisten und Befehlen zugeordnet sind. Wer auf diese Symbole zugreifen will, benötigt dazu die interne ID, über die die Symbole angesprochen werden. Einer Schaltflächen in einer Symbolleiste kann so über die .FaceID-Eigenschaft des CommandBarControls ein beliebiges Symbol zugewiesen werden (das Speichern-Symbol besitzt z.B. die ID: 3):

Set ctrlName = cbFensterListe.Controls("Aktualisieren")
If ctrlName Is Nothing Then 
  Set ctrlName = cbFensterListe.Controls.Add(msoControlButton, , , 1)
  With ctrlName
    .FaceId = 1977
    .Tag = "Aktualisieren"
    .Caption = "Aktualisieren"
    .Style = msoButtonIcon
    .OnAction = "Aktualisieren"
    .BeginGroup = True 
  End With 
End If 

Um nicht jedesmal erst alle Symbole zu durchlaufen, bis man das richtige gefunden hat, habe ich eine Übersicht zusammengestellt, in der die Symbole aller internen Symbolleisten mit ihren IDs aufgelistet sind. Über das Speichern-Symbol erhaltet Ihr die Übersicht als PDF-Datei.

Auszug aus der Liste:

Symbol	ID	Symbol	ID	Symbol	ID	Symbol	ID	Symbol	ID
	674		584		1300		676		61
	563		1454		43		737		1321
	919		386		1177		107		915
	80		321		1444		100		1156
	939		309		29		766		190