Add-In - Funktion
30.08.2005 12:43:18
Jan
ich erstelle mir beim Installierten eines eigenen Add-In's ein Menü (siehe unten).
Leider wird die Funktion: catSysUpdate() im Modul: basCatSysUpdate bereits während der Installation (wahrsch. durch das OnAction-Ereignis) ausgeführt. Das möchte ich eigenlich erst beim Klicken auf das Item erreichen.
Zum anderen wird durch das Klicken auf das Item meine Funktion: catSysUpdate() nicht ausgeführt.
Kann mir jemand helfen?
Danke, Gruß Jan
Private Sub Workbook_AddinInstall()
Dim myMenu As CommandBarPopup
Dim myItem As CommandBarButton
Set myMenu = Application.CommandBars(1).Controls.Add(msoControlPopup, , , 5)
myMenu.Caption = "CatSysUpdate"
myMenu.Tag = "tagCatSysUpdate"
Set myItem = myMenu.Controls.Add(msoControlButton)
myItem.Caption = "Update"
myItem.OnAction = basCatSysUpdate.catSysUpdate()
End Sub
Anzeige