Wenn Sie in Visio ein Shape erstellen und im selbstdefinierten Kontextmenü ein Symbol einfügen möchten, steht Ihnen in der Zelle ButtonFace die Möglichkeit zur Verfügung über eine Nummer ein Symbol einzufügen. Doch – welche Nummer steht für welches Symbol?
Antwort: Die Nummern entsprechen den „alten“ Symbolen früherer Visio – oder genauer: Office-Versionen. Mit einem kleinen VBA-Skript können sie ausgelesen werden:
Sub SymbolleistenErzeugen()
Dim vsSymbleisten As CommandBars
Dim vSymbleise As CommandBar
Dim vsSymb As CommandBarButton
Dim i As Integer
On Error Resume Next
Set vsSymbleisten = Application.CommandBars
vsSymbleisten(„Meine eigen Symbolleiste“).Delete
Set vSymbleise = vsSymbleisten.Add _
(„Meine eigen Symbolleiste“, msoBarTop, False, True)
vSymbleise.Visible = True
For i = 1 To 2000
Set vsSymb = vSymbleise.Controls.Add(ID:=i)
If Err.Number = 0 Then
vsSymb.Style = msoButtonIconAndCaption
vsSymb.Caption = i
Else
Err.Clear
End If
Next
End Sub
Erstaunlicherweise werden in Excel mehr Symbole angezeigt als in Visio – die Nummern können aber auch in Visio verwendet werden, wie hier beispielsweise 107,37, 714, 6505, …
