Imports Inventor
Module Module1
Dim InvApp As Application
Sub Main()
InvApp = DirectCast(System.Runtime.InteropServices.Marshal.GetActiveObject("Inventor.Application"), Application)
Dim DrawDoc As DrawingDocument = DirectCast(InvApp.ActiveDocument, DrawingDocument)
Dim BaseEnv As Environment = DrawDoc.EnvironmentManager.BaseEnvironment
BaseEnv.Ribbon.RibbonTabs("id_TabPlaceViews").Active = True
''Альтернатива
'Dim UI As UserInterfaceManager = InvApp.UserInterfaceManager
'Dim Ribon As Ribbon = UI.Ribbons("Drawing")
'Ribon.RibbonTabs("id_TabPlaceViews").Active = True
End Sub
End Module