2
www.ChF-Online.de  

Word-interne Symbole verwenden

   Neuigkeiten
   API-Aufrufe in VBA
   VBA2HTML
   Word
 Menübefehle
 integrierte Dialogfelder
 WdDialogs-Konstanten
 WdDialogs-Parameter
 WdColor-Konstanten
aktiv aktiv Word-interne Symbole
 Symbole und Befehle
 Beschriftungsverzeichnisse
   Word-VBA
   Word2007 (RibbonX)
   Word2010 (RibbonX)
   Outlook-VBA
   Links zu VB(A)
   DocToHelp
   Netport Express XL
   Astronomie
   Gästebuch
   Volltextsuche
   Sitemap
   Buch:Word-Programmierung
   Impressum & Kontakt
   Datenschutzerklärung
Getestet unter Word2000  
Makro/Datei speichern
Print

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
ID:976
976
ID:1455
1455
ID:474
474
ID:293
293
ID:1198
1198
ID:682
682
ID:1038
1038
ID:1410
1410
ID:1292
1292
ID:1194
1194
ID:733
733
ID:816
816
ID:1146
1146
ID:1432
1432
ID:1122
1122
ID:1239
1239
ID:1133
1133
ID:761
761
ID:361
361
ID:281
281
ID:1369
1369
ID:1178
1178
ID:474
474
ID:892
892
ID:626
626

 Besucher: 1 online  |  1 heute  |  553 diesen Monat  |  425798 insgesamt | Seitenaufrufe: 85   Letzte Änderung: 24.06.2006 © 2001-14 Christian Freßdorf
  Vielleicht sollten wir uns von dem Aberglauben lossagen, alles verstehen zu müssen und uns zur Einsicht bekehren, im Höchstfall imstande zu sein, mit unserem Unverständnis verständnisvoll umgehen zu können.
Margot Bickel
 powered by phpCMS and PAX