Anonymous
237 Views, 0 Replies
05-04-2021
12:49 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
05-04-2021
12:49 PM
Is it a bug in Inventor professional 2022 ?
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