09-26-2022
01:41 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
09-26-2022
01:41 PM
FYI, less text using RepresentationsManager......
Select Case Position Case "Sitting" oViewRep = "View1" oPosRep = "Sitting" Case "Reaching" oViewRep = "View1" oPosRep = "Reaching" Case "Working" oViewRep = "View1" oPosRep = "Working" End Select ThisApplication.ActiveDocument.ComponentDefinition.RepresentationsManager.DesignViewRepresentations.Item(oViewRep).Activate ThisApplication.ActiveDocument.ComponentDefinition.RepresentationsManager.PositionalRepresentations.Item(oPosRep).Activate ThisApplication.ActiveView.Fit