Icons für die Symbolleiste

6. Juli 2009 | Von gr | Kategorie: Neues, VBA Corner

Wenn Sie schon einmal Symbolleisten erstellt oder angepaßt haben, wissen Sie sicherlich, daß man dabei auch das angezeigte Icon ändern kann. Die Icons können selbst entworfen oder aus einer vorgegebenen Auswahl von 120 Bildchen gewählt werden.

Was jedoch kaum einer weiß ist, daß Microsoft Project weitaus mehr als diese 120 Icons zu bieten hat. Allerdings können diese nicht interaktiv, sondern nur per VBA verwendet werden. Nicht weniger als 544 Symbole stehen zur Verfügung - aber wie sehen sie aus?

Zugewiesen werden sie in einem Makro über ihre FaceId. Was liegt also näher, als ein Makro zu schreiben, das alle Icons in einer eigenen Symbolleiste anzeigt? Anschließend können Sie die betreffende ID bequem als Tooltip anzeigen lassen, indem Sie die Maus auf das Symbol positionieren, um dann die ID in Ihrem eigenen Code zu verwenden.

So geht es:

Sub CreateCommandBarIcons()
‘ Eine Symbolleiste mit allen verfügbaren Icons erstellen
Dim cb As CommandBar
Dim ct As CommandBarControl

Set cb = CommandBars.Add(”Symbolleistenschaltflächen”)
cb.Visible = True

For i = 1 To 544
Set ct = cb.Controls.Add(msoControlButton)
With ct
.TooltipText = Str(i)
.FaceId = i
End With
Next i

End Sub

Und so sieht es aus:

iconbar

Tags: ,

Schreiben Sie einen Kommentar

Comment Spam Protection by WP-SpamFree