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

Here is a link to API help for ActiveSheet property and syntax. Just remove the loop through the sheets and on the active sheet loop through the views. 

Dim oSheet As Sheet = oDrawDoc.ActiveSheet
oViews = oSheet.DrawingViews

For Each oView In oViews
If oView.ScaleFromBase = False Then
oView.Scale = oScale
End If

Next

 

If this solved a problem, please click (accept) as solution.‌‌‌‌
Or if this helped you, please, click (like)‌‌
Regards
Alan