Code bitte anschauen, hab eine Frage dazu

Bild

Betrifft: Code bitte anschauen, hab eine Frage dazu
von: Bryan
Geschrieben am: 18.03.2005 00:54:21
Hallo Leute,
mit folgendem Code erstelle ich meine eigene Menueleiste. Nun möchte ich ans Ende der leiste noch einen popup Button (Drucken)mit 12 poups (Jan . DEz)erstellen.Aber irgendwie krieg ich das nicht gebacken. Hab ich was vergessen?


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
        .BeginGroup = True
    End With
    
    Set CBC = CB.Controls.Add(Type:=msoControlButton)
    With CBC
        .Caption = "Speichern für Hr. Huber"
        .OnAction = "Huber_Speichern"
        .Style = msoButtonCaption
        .BeginGroup = True
    End With
     
     Set CBC = CB.Controls.Add(Type:=msoControlButton)
    With CBC
        .Caption = "Kalender erstellen"
        .OnAction = "Erstellen"
        .Style = msoButtonCaption
        .BeginGroup = True
   End With
     
     Set CBC = CB.Controls.Add(Type:=msoControlButton)
    With CBC
        .Caption = "Hilfe"
        .OnAction = "Zur_Hilfe"
        .Style = msoButtonCaption
        .BeginGroup = True
   End With
    
    
    
    'Set CBC = CB.Controls.Add(Type:=msoControlPopupmsoControlPopup, Temporary:=True)
   ' With CBC
   '     .Caption = "Drucken"
   '     .OnAction = CBC.Controls.Add(Type:=msoControlButton, Id:=1)
   '     .Style = msoButtonCaption
   '     .BeginGroup = True
  ' End With
    CB.Visible = True
End Sub


Gruss Bryan
Bild

Betrifft: AW: Code bitte anschauen, hab eine Frage dazu
von: Bert
Geschrieben am: 18.03.2005 01:21:56
Option Explicit
Const Symbolleistenname As String = "XYZ"
Sub Symbolleiste_erstellen()
    Dim CB As CommandBar
    Dim CBB As CommandBarButton
    Dim CBP As CommandBarPopup
    Call Symbolleiste_entfernen
    Set CB = CommandBars.Add(Name:=Symbolleistenname, _
      Temporary:=False, Position:=msoBarTop)
    Set CBB = CB.Controls.Add(Type:=msoControlButton)
    With CBB
       .Caption = " !!! Speichern für uns !!!"
       .OnAction = "füruns_Speichern"
       .Style = msoButtonCaption
       .BeginGroup = True
    End With
    
    Set CBB = CB.Controls.Add(Type:=msoControlButton)
    With CBB
       .Caption = "Speichern für Hr. Huber"
       .OnAction = "Huber_Speichern"
       .Style = msoButtonCaption
       .BeginGroup = True
    End With
    
    Set CBB = CB.Controls.Add(Type:=msoControlButton)
    With CBB
       .Caption = "Kalender erstellen"
       .OnAction = "Erstellen"
       .Style = msoButtonCaption
       .BeginGroup = True
    End With
    
    Set CBB = CB.Controls.Add(Type:=msoControlButton)
    With CBB
       .Caption = "Hilfe"
       .OnAction = "Zur_Hilfe"
       .Style = msoButtonCaption
       .BeginGroup = True
    End With
    
    Set CBP = CB.Controls.Add(Type:=msoControlPopup, Temporary:=True)
    With CBP
      .Caption = "Ich bin ein Popup"
      .BeginGroup = True
    End With
    Set CBB = CBP.Controls.Add(Type:=msoControlButton)
    With CBB
       .Caption = "Knopf 1"
       .OnAction = ""
       .Style = msoButtonCaption
       .BeginGroup = True
    End With
    Set CBB = CBP.Controls.Add(Type:=msoControlButton)
    With CBB
       .Caption = "Knopf 2"
       .OnAction = ""
       .Style = msoButtonCaption
       .BeginGroup = True
    End With
    Set CBB = CBP.Controls.Add(Type:=msoControlButton)
    With CBB
       .Caption = "Knopf 3"
       .OnAction = ""
       .Style = msoButtonCaption
       .BeginGroup = True
    End With
    
    CB.Visible = True
End Sub
Sub Symbolleiste_entfernen()
On Error Resume Next
CommandBars(Symbolleistenname).Delete
End Sub

Gruß Bert
Bild

Betrifft: Danke, irgendwann lern ichs auch noch o.T.
von: bryan
Geschrieben am: 18.03.2005 02:41:19

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Text in Zahlen"