Symbolleiste optimieren
20.07.2004 17:34:33
Russi
Ich habe mich jetzt erstmals ernsthaft an die Erstellung einer Symbolleiste gemacht (Irgendwann musste es soweit kommen ;-) )
Ich erstelle 3 neue Symbolleisten und lasse sie anzeigen. Das Problem dabei: Sie werden erst sichtbar, wenn ich sie per rechter Maustaste auf eine Symbolleiste erst aus- und dann wieder einblende.
Vielleicht könntet Ihr mir sagen, was ich falsch mache?!? Bin für jeden Verbesserungsvorschlag dankbar!
Russi
www.Russi.de.tt
Hier mein Makro:
Sub Symbolleiste_generieren()
Dim CB As CommandBar
Dim CMB As CommandBarButton
' Erste Symbolleiste
Set CB = Application.CommandBars.Add( _
Name:="Russi1", _
temporary:=False, _
Position:=msoBarTop)
Set CMB = CB.Controls.Add(Type:=msoControlButton)
With CMB
.Caption = "Meine erste Funktion"
.Style = msoButtonIcon
.FaceId = 329
.OnAction = "Makro1"
End With
' .... usw usw
CB.Visible = True
' Zweite Symbolleiste
Set CB = Application.CommandBars.Add( _
Name:="Russi2", _
temporary:=False, _
Position:=msoBarTop)
Set CMB = CB.Controls.Add(Type:=msoControlButton)
With CMB
.Caption = "Meine zweite Funktion"
.Style = msoButtonIcon
.FaceId = 329
.OnAction = "Makro2"
End With
' .... usw usw
CB.Visible = True
End Sub
Anzeige