Atribución de escala a una vista
Utilización de zoom
Visualización de límites y extensiones del dibujo
Ampliación del dibujo activo a un centro especifico Puede mover un punto específico de su dibujo para centrarlo en el área gráfica. El método ZoomCenter resulta especialmente útil a la hora de reajustar el tamaño de un objeto y situarlo en el centro de la ventana gráfica. ZoomCenter permite especificar la escala mediante una ampliación relativa a la vista actual
Ampliación del dibujo activo a un centro específico
El siguiente ejemplo ilustra el efecto del método ZoomCenter cuando se aplica para mostrar una vista en su tamaño real o al doble de su tamaño:
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