Center Objects

Zoom in on the active drawing to a specified center You can move a specific point in your drawing to the center of the graphics area. The ZoomCenter method is useful for resizing an object and bringing it to the center of the viewport. With ZoomCenter, you can specify a scale size by entering a magnification relative to the current view.

Zoom in on the active drawing to a specified center

The following example shows the effects of using ZoomCenter to display a view at the same size and at twice the size:

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