07-04-2023
07:24 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
07-04-2023
07:24 AM
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.