概要 - 窓ズームを定義する(VBA/ActiveX)

領域のコーナーを定義することで、特定の領域にすばやく拡大ズームすることができます。

領域の境界を指定して領域を拡大ズームするには、ZoomWindow メソッドまたは ZoomPickWindow メソッドを使用します。ZoomWindow メソッドを使用すると、ズーム窓を表す 2 点をプログラムで定義できます。ZoomPickWindow を使用する場合は、ユーザが 2 点を選択します。選択したこの 2 つの点が、ズーム窓になります。

アクティブな図面を 2 点で定義された窓にズームする

Sub Ch3_ZoomWindow()
  ' ZoomWindow
  MsgBox "Perform a ZoomWindow with:" & vbCrLf & _
  "1.3, 7.8, 0" & vbCrLf & _
  "13.7, -2.6, 0", , "ZoomWindow"

  Dim point1(0 To 2) As Double
  Dim point2(0 To 2) As Double
  point1(0) = 1.3: point1(1) = 7.8: point1(2) = 0
  point2(0) = 13.7: point2(1) = -2.6: point2(2) = 0
  ThisDrawing.Application.ZoomWindow point1, point2
  ' ZoomPickWindow
  MsgBox "Perform a ZoomPickWindow", , "ZoomPickWindow"

  ThisDrawing.Application.ZoomPickWindow
End Sub