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

Hi, you can try this:

Sub Main()
	Dim oDrawingDoc As DrawingDocument = ThisApplication.ActiveDocument 
	Dim baseScale As Double = oDrawingDoc.ActiveSheet.DrawingViews.Item(1).Scale
	For Each oView As DrawingView In oDrawingDoc.ActiveSheet.DrawingViews 
		If oView.ViewType = 10501 Then oView.Scale = baseScale 
	Next 
End Sub

 Vincent.