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
	357		208		1095		84		18
	96		1322		596		37		701
	229		482		727		483		864
	329		360		930		218		1202
	136		1391		127		1327		926