Anonymous
250 Views, 0 Replies
04-26-2021
06:35 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
04-26-2021
06:35 AM
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