12-14-2021
11:50 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
12-14-2021
11:50 PM
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
Or if this helped you, please, click (like)
Regards
Alan