Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
276to280
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
276to280
276to280
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

CommandBar

CommandBar
07.07.2003 13:34:26
Andreas
Hallo an alle,
ich habe soeben eine Schaltfläche eingefügt. Wie kann ich denn nun dieser Schaltfläche zuordnen dass bei einem Klick das Sheet MSDM in Laufwerk c: unter dem Ordenr Andy geöffnet werden soll. Hat jemand eine Idde?
Habe unten mal den bisherigen Quellcode eingefügt.
Grüße
Andreas

Sub MenueEinfügen()
Dim Schaltfläche As Integer
Dim Schaltfläche_hilfe As Integer
Dim MenueNeu As CommandBarControl
Schaltfläche = Application.CommandBars(1).Controls.Count
Schaltfläche_hilfe = Application.CommandBars(1).Controls(Schaltfläche).Index
Set MenueNeu = Application.CommandBars(1). _
Controls.Add(Type:=msoControlPopup, Before:=Schaltfläche_hilfe, temporary:=False)
MenueNeu.Caption = "MSDM 2.0"
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CommandBar
07.07.2003 14:08:14
Andreas
Habe es selbeer lösen können!
Es musste nur ein Makro erstellt werden welches das Sheet öffnet. Unten der Code für das Archiv.
Grüße
Andreas

Sub MenueEinfügen()
Dim Schaltfläche As Integer
Dim Schaltfläche_hilfe As Integer
Dim MenueNeu As CommandBarControl
Dim Button As CommandBarControl
Schaltfläche = Application.CommandBars(1).Controls.Count
Schaltfläche_hilfe = Application.CommandBars(1).Controls(Schaltfläche).Index
Set MenueNeu = Application.CommandBars(1). _
Controls.Add(Type:=msoControlPopup, Before:=Schaltfläche_hilfe, temporary:=False)
MenueNeu.Caption = "MSD&M 2.0"
Set Button = MenueNeu.Controls.Add(Type:=msoControlButton)
With Button
.Caption = "Sell Discipline"
.Style = msoButtonIconAndCaption
.FaceId = 350
.OnAction = "ÖffnenMSDM"
BeginGroup = True
End With
End Sub


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige