API Documentation > CorelDRAW > 2025-v26 > View > IVGView
View.Zoom property
Gets or sets the zoom level of the active view
Syntax:
Property Get Zoom() As Double
Property Let Zoom(ByVal Value As Double)
Remarks:
The Zoom property returns or specifies the magnification level for a view. The Zoom property of a custom view is applicable only if the View.UseZoom property of the view is set to True.
Examples:
The following VBA example increases the zoom level by 50 for each view in the collection. The zoom level is set at 100 for the first view.
Sub Test()
Dim Vw As View
Dim VwCollection As Views
Dim intCounter As Integer
Set VwCollection = ActiveDocument.Views
intCounter = 1
For Each Vw In VwCollection
  intCounter = intCounter + 1
  Vw.Zoom = CDbl(intCounter * 50)
Next Vw
Set Vw = Nothing
Set VwCollection = Nothing 
End Sub