Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
SteveK88
in reply to: Cadderman

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