Hello,

I'm trying to get a custom menu that automaticly appears when the Graphics Designer gets opened.
I can make it work when I press F5, but it won't work when opening.

I'm using the Document Opened Event in projectTemplateDocument.

Private Sub Document_Opened(CancelForwarding As Boolean)
'Declaration of menus:
Dim objMenu1 As HMIMenu
Dim objMenuItem1 As HMIMenuItem
Dim objMenuItem2 As HMIMenuItem

'Add Menu, Paramaters are "Position", "Key" and "DefaultLabel":
Set objMenu1 = Application.CustomMenus.InsertMenu(1, "AppMenu1", "Catael")

'Next lines add menu-items to userdefined menu.
'Parameters are "Position", "Key" and DefaultLabel:

Set objMenuItem1 = objMenu1.MenuItems.InsertMenuItem(1, "mItem1_1", "Config Faceplates")
Set objMenuItem2 = objMenu1.MenuItems.InsertMenuItem(1, "mItem1_2", "Update Cycles")

'Assign a VBA-macro to every menu item
With Application.CustomMenus("AppMenu1")
.MenuItems("mItem1_1").Macro = "Mdl_ConfigFPT"
.MenuItems("mItem1_2").Macro = "Mdl_UpdateCycles"
End With

End Sub

I found out what the problem was.
I did actually follow the guides from the manuals, here it's described that you can execute a VBA script when Graphics Designer is opened.

https://support.industry.siemens.com/cs/ww/en/view/109772961/46147672203 

This didn't work because of a setting in Graphics Designer.

Tools -> Settings -> Remove checkmark of 'Deactivate All VBA events'

After changing that, it worked

Thanks, i got the same issue,... don't know why this checkbox was set, but somehow it was...