Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
584to588
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Code bitte anschauen, hab eine Frage dazu

Code bitte anschauen, hab eine Frage dazu
18.03.2005 00:54:21
Bryan
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code bitte anschauen, hab eine Frage dazu
18.03.2005 01:21:56
Bert
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
Anzeige
Danke, irgendwann lern ichs auch noch o.T.
18.03.2005 02:41:19
bryan

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige