OnAction führt Zielmakro zweimal aus
25.09.2003 09:25:55
Patrick
Hallo
Ich habe folgenden Code, und es klappt auch (neues Menu mit 1 Unterpunkt), aber MyProcedure() wird zweimal ausgeführt wenn man es anwählt, und sogar einmal nur schon wenn man die Menu-Erstell-Prozedur laufen lässt!
Wie kann man das so gestalten, dass MyProcedure nur beim Klick auf den Unterpunkt ausgeführt wird?
Thanks
Patrick
' Identify built-in menu bar to work with.
Set cbmCommandBarMenu = Application.CommandBars(strMenuBarName)
' Add the new menu.
With cbmCommandBarMenu.Controls
Set cbmNewMenu = .Add(Type:=msoControlPopup)
' Set caption for new menu.
With cbmNewMenu
.Caption = MenuBarItem
' Add single menu items and set properties.
With .Controls.Add(msoControlButton)
.OnAction = "MyProcedure()"
.Caption = ControlItem1
.Tag = ControlItem1
End With
End With
End With
End Sub