Herbers Excel-Forum - das Archiv

Aussehen von eigener Menueleiste

Bild

Betrifft: Aussehen von eigener Menueleiste
von: Hans

Geschrieben am: 27.02.2005 20:59:48
Guten Abend Leute
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
Bild

Betrifft: AW: Aussehen von eigener Menueleiste
von: Ulf

Geschrieben am: 27.02.2005 21:08:46
With CBC
.Caption = " !!! Speichern für uns !!!"
.OnAction = "füruns_Speichern"
.Style = msoButtonCaption
'===============================================
.BeginGroup = True
'===============================================
End With
Ulf
Bild

Betrifft: Besten Dank, genau das richtige o.T.
von: Hans
Geschrieben am: 27.02.2005 21:25:28
 Bild
Excel-Beispiele zum Thema "Aussehen von eigener Menueleiste"
Strings, die wie Zahlen aussehen, in Zahlen umwandeln