概要 - オブジェクトをセンタリングする(VBA/ActiveX)

アクティブな図面を指定された中心までズームする

図面内の特定の点をグラフィックス領域の中心に移動することができます。オブジェクトをサイズ変更し、それをビューポートの中心に移動するには、ZoomCenter メソッドが便利です。ZoomCenter を使用すると、現在のビューに対して相対的な倍率を入力して拡大/縮小サイズを指定できます。

アクティブな図面を指定された中心までズームする

ZoomCenter を使用してビューを同一サイズと 2 倍のサイズで表示した場合を、次の例に示します。

Sub Ch3_ZoomCenter()
  MsgBox "Perform a ZoomCenter using:" & vbCrLf & _
  "Center 3, 3, 0" & vbCrLf & _
  "Magnification: 10", , "ZoomCenter"

  Dim Center(0 To 2) As Double
  Dim magnification As Double

  Center(0) = 3: Center(1) = 3: Center(2) = 0
  magnification = 10

  ThisDrawing.Application.ZoomCenter Center, magnification
End Sub