概要 - アクティブなビューポートを分割する(VBA/ActiveX)

アクティブなビューポートは、Split メソッドを使用して複数のビューポートに分割することができます。

このメソッド は、ビューポートを分割する際の設定の種類であるパラメータを 1 つ受け取ります。ウィンドウ設定を指定するには、上記の既定の設定に対応する次のいずれかの定数を使用します。acViewport2Horizontal、acViewport2Vertical、acViewport3Left、acViewport3Right、acViewport3Horizontal、acViewport3Vertical、acViewport3Above、acViewport3Below、またはacViewport4。

ビューポートを 2 つの水平なウィンドウに分割する

以下の例は、ビューポートを新しく作成し 2 つの水平なウィンドウに分割します。

Sub Ch3_SplitAViewport()
  ' Create a new viewport
  Dim vportObj As AcadViewport
  Set vportObj = ThisDrawing.Viewports.Add("TEST_VIEWPORT")

  ' Split vportObj into 2 horizontal windows
  vportObj.Split acViewport2Horizontal

  ' Now set vportObj to be the active viewport
  ThisDrawing.ActiveViewport = vportObj
End Sub