Set Drawing View Width

By Adam Nagy

You cannot set the Width or Height of a DrawingView directly. However, you can calculate the Scale necessary to achieve the width or height you need. Here is a VBA code demonstrating it. First you need to select the drawing view in question through the UI then run the code:

Sub SetDrawingViewWidth()
  Dim dv As DrawingView
  Set dv = ThisApplication.ActiveDocument.SelectSet(1)
  
  ' Current width
  Dim cw As Double
  cw = dv.Width
  
  ' New width we want
  ' Set in 'cm' (internal length unit)
  Dim nw As Double
  nw = 10
  
  ' New scale
  Dim ns As Double
  ns = nw / cw * dv.Scale
  
  dv.[Scale] = ns
  
  Call MsgBox("Width = " + Str(dv.Width))
End Sub