Herbers Excel-Forum - das Archiv

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