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"