Hallo finde irgendwie niemanden der mir helfen kann
habe ein button in Visio per VBA angelegt jedoch ist das menuitem transparent und nicht anklickbar.
moechte gerne meine main funktion ausführen wenn das menuitem geklickt wird wie kann ich das machen??
Dim vsoUIObject As Visio.UIObject
Dim vsoMenuSets As Visio.MenuSets
Dim vsoMenuSet As Visio.MenuSet
Dim vsoMenus As Visio.Menus
Dim vsoMenu As Visio.Menu
Dim vsoMenuItems As Visio.MenuItems
Dim vsoMenuItem As Visio.MenuItem
Set vsoUIObject = Visio.Application.BuiltInMenus
Set vsoMenuSets = vsoUIObject.MenuSets
Set vsoMenuSet = vsoMenuSets.ItemAtID(visUIObjSetDrawing)
Set vsoMenus = vsoMenuSet.Menus
Set vsoMenu = vsoMenus.AddAt(vsoMenus.Count)
vsoMenu.Caption = "myButtonInside"
Set vsoMenuItems = vsoMenu.MenuItems
Set vsoMenuItem = vsoMenuItems.Add
With vsoMenuItem
.Caption = "myButton"
.AddOnName = "Button"
.FaceID = visIconIXCUSTOM_EYE
.Style = visButtonIconandCaption
.Enabled = True
.Caption = " tral"
End With
ThisDocument.SetCustomMenus vsoUIObject |