Symbolleiste Text statt Icon

09/03/2009 - 18:58 von Willy Steffen | Report spam
Guten Abend NG
Ich versuche mangels eines Symbols in der Menüleiste einen Text in das
button zu erhalten. Manuell geht es ja aber mit VBA kenn ich es nicht. Hier
den Code:
Sub Symbolleiste_erstellen()
On Error Resume Next
'Benennen der Symbolleiste
Toolbars.Add Name:="Plan d'occupation guide2"
With Toolbars("Plan d'occupation guide2")
.ToolbarButtons.Add Button:="Calandrier"
.ToolbarButtons(1).Name = "Calandrier"
.ToolbarButtons(1).OnAction = "KalenderAnzeigen"
.Visible = True
End With
End Sub

Kann mir da jemand helfen?
Vielen Dank im Voraus
Willy
 

Lesen sie die antworten

#1 Frank Arendt-Theilen
09/03/2009 - 21:31 | Warnen spam
Hallo Willy,
die Toolbars-Auflistung ist schon àlteren Typs und wird nur noch aus
Kompatibilitàtsgründen bis XL2003 unterstützt. Benutze daher
spàtestens ab XL2007 die Commandbars-Auflistung.
Das folgende Beispiel erstellt in der Arbeitsmappe, in der sich der
Code befindet, beim Öffnen die Symbolleiste "Plan d'occupation guide2"
und einen darin enthaltenen CommanbarButton mit der Aufschrift
"Calandier". Beim Beenden von XL wird die Symbolleiste durch das
Setzen von Temporary:=True entfernt.

Private Sub Workbook_Open()
Dim cmbCommandbar As CommandBar
Dim ctrControl As CommandBarControl

Set cmbCommandbar = Application.CommandBars. _
Add(Name:="Plan d'occupation guide2", _
Position:=msoBarTop, Temporary:=True)

With cmbCommandbar
Set ctrControl = .Controls.Add(Type:=msoControlButton)
.Visible = True
End With

With ctrControl
.Caption = "Calandier"
.TooltipText = "Calandier"
.OnAction = "KalenderAnzeigen"
.Tag = "Calandier"
.Style = msoButtonCaption '<== End With

End Sub


Mit freundlichem Gruß aus der Rattenfàngerstadt Hameln
Frank Arendt-Theilen

(ehem. MVP für Excel)
Website: www.xl-faq.de

Ähnliche fragen