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

Beiträge aus den Excel-Beispielen zum Thema "Aussehen von eigener Menueleiste"