Aussehen von eigener Menueleiste
27.02.2005 20:59:48
eigener
Ich erstelle eine eigene Symbolleiste mit drei Buttons. Diese liegen natürlich direkt nebeneinander ( ich meine man sieht nicht wo der eine aufhört und der nächste anfängt). Gibt es eine möglichkeit eine abgrenzung zwischen den buttons zu haben. Einen andere Style de Buttons zu erzielen.
Hier der Code
Sub Symbolleiste_erstellen()
On Error Resume Next
Dim CB As CommandBar
Dim CBC As CommandBarButton
Set CB = Application.CommandBars(Symbolleistenname)
Symbolleiste_entfernen
Set CB = Application.CommandBars.Add(Name:=Symbolleistenname, _
temporary:=False, Position:=msoBarTop)
Set CBC = CB.Controls.Add(Type:=msoControlButton)
With CBC
.Caption = " !!! Speichern für uns !!!"
.OnAction = "füruns_Speichern"
.Style = msoButtonCaption
End With
Set CBC = CB.Controls.Add(Type:=msoControlButton)
With CBC
.Caption = "Speichern für Hr. Huber"
.OnAction = "Huber_Speichern"
.Style = msoButtonCaption
End With
Set CBC = CB.Controls.Add(Type:=msoControlButton)
With CBC
.Caption = "Kalender erstellen"
.OnAction = "Erstellen"
.Style = msoButtonCaption
End With
CB.Visible = True
End Sub
Danke Hans
Anzeige