CommandBar
07.07.2003 13:34:26
Andreas
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