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
	147		578		181		816		444
	196		305		21		342		954
	628		74		785		1127		129
	162		396		488		1102		33
	379		505		134		1011		1092