Hallo,
habe im Archiv folgendes Makro gefunden, das ein neues Menü mit Unterpunkten erstellt:
Sub MenuAktivieren()
Dim objMenu As Menu
Dim objButtonA As Menu
Dim objButtonB As MenuItem
Set objMenu = ActiveMenuBar.Menus.Add("neues Menü")
Set objButtonA = objMenu.MenuItems.AddMenu("nr. 1")
Set objButtonB = objButtonA.MenuItems.Add("nr. 1.1", "1.1")
Set objButtonB = objButtonA.MenuItems.Add("nr. 1.2", "1.2")
Set objButtonA = objMenu.MenuItems.AddMenu("nr. 2")
Set objButtonB = objButtonA.MenuItems.Add("nr. 2.1", "2.1")
Set objButtonB = objButtonA.MenuItems.Add("nr. 2.1", "2.2")
End Sub
Ich habe verschiedene Modelle ausprobiert und dieses gefällt mir am besten. Ich schaffe es aber nicht die 'onAction' Eigenschaft hinzuzufügen, schließlich soll ja auch ein Makro bei Betätigung aufgerufen werden. Kann mir da jemand einen Tip geben bitte?
Danke
Martin