Neuen Menüpunkt zum ausführen eines Makros erstellen
Hallo,
wir haben hier von unserem Buchhaltungssoftware-Hersteller eine .xla-Datei zur Verfügung gestellt bekommen, die ich bei mir als Add-in installiert habe. Beim Excel-Start wird ein neues Menü erzeugt, dem ein Befehl eingefügt und diesem das Makro zugeordnet, das gelegentlich gebraucht wird.
Welchen Sinn macht es, ein neues Menü bei jedem Excel-Start zu erzeugen und beim Schließen wieder zu löschen? Ich würde lieber dem Menü Extras o.g. Befehl einfügen, der das Makro startet. Kann ich folgendes Makro entsprechend verändern?
Oder kann mir jemand ein ganz neues Makro erstellen?
Option Explicit
Sub SNeuesMenueEinfügen()
Dim i As Integer
Dim i_Hilfe As Integer
Dim MenüNeu As CommandBarControl
Dim MB As CommandBarControl
i = Application.CommandBars(1).Controls.Count
i_Hilfe = Application.CommandBars(1).Controls(i).Index
Set MenüNeu = Application.CommandBars(1). _
Controls.Add(Type:=msoControlPopup, Before:=i_Hilfe, temporary:=True)
MenüNeu.Caption = "Simba-EXCEL"
'-------------------------------------
Set MB = MenüNeu.Controls.Add _
(Type:=msoControlButton)
With MB
.Caption = "WandelSimbaEXCEL"
.Style = msoButtonCaption
.OnAction = "WandelSimbaEXCEL"
End With
End Sub
mfg + vielen Dank im voraus
Wolfgang H.
Antwort schreiben