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
	540		559		840		366		545
	1402		1486		507		837		699
	1295		1139		105		233		1342
	1244		64		335		665		292
	262		1226		587		597		654