Sub SwitchVaultModelTree()
Dim oDoc As Document
Set oDoc = ThisApplication.ActiveDocument
Dim oPanes As BrowserPanes
Set oPanes = oDoc.BrowserPanes
If oPanes.ActivePane.Name = "Vault" Then
'oPanes.Item(3).Activate
oPanes.Item("Model").Activate
Else
oPanes.Item("Vault").Activate
End If
If oDoc.Type = kDrawingDocumentObject Then
oPanes.Item("Model").Activate
End If
End Sub
Dim oDoc As Document
Set oDoc = ThisApplication.ActiveDocument
Dim oPanes As BrowserPanes
Set oPanes = oDoc.BrowserPanes
If oPanes.ActivePane.Name = "Vault" Then
'oPanes.Item(3).Activate
oPanes.Item("Model").Activate
Else
oPanes.Item("Vault").Activate
End If
If oDoc.Type = kDrawingDocumentObject Then
oPanes.Item("Model").Activate
End If
End Sub
No comments:
Post a Comment