Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
Anonymous
250 Views, 0 Replies

Waiting for the staff's reply

What is the reason? (In Inventor Professional 2022)

In (VBA Editor F5), it runs
Doesn't run in (Customize ShortCut Key 4)
What is the reason?

 

Public Sub CollapseAll() 'Set ShortCut Key = 4
   Dim oCommandMgr As CommandManager
   Set oCommandMgr = ThisApplication.CommandManager
   Dim oControlDef As ControlDefinition
   Set oControlDef = oCommandMgr.ControlDefinitions.Item("AppBrowserCollapseAllCmd")
   Call oControlDef.Execute 
   ThisApplication.ActiveDocument.Update
End Sub