API Documentation > CorelDRAW > 2025-v26 > EffectPerspective > IVGEffectPerspective
EffectPerspective.VertVanishingPointY property
Gets or sets the Y-value of the vertical vanishing point
Syntax:
Property Get VertVanishingPointY() As Double
Property Let VertVanishingPointY(ByVal Value As Double)
Remarks:
The VertVanishingPointY property returns or specifies the y-coordinate of the vertical vanishing point in a perspective effect.
Examples:
The following VBA example changes the position of vanishing points for all perspective effects so that the horizontal vanishing point is placed in the middle of the left edge of the page, while the vertical vanishing point is placed in the middle of the top edge of the page.
Sub Test()
Dim s As Shape, eff As Effect
For Each s In ActivePage.Shapes
  For Each eff In s.Effects

 If eff.Type = cdrPerspective Then


With eff.Perspective


  If .UseHorizVanishingPoint Then



 .HorizVanishingPointX = 0



 .HorizVanishingPointY = ActivePage.SizeHeight / 2


  End If


  If .UseVertVanishingPoint Then



 .VertVanishingPointX = ActivePage.SizeWidth / 2



 .VertVanishingPointY = ActivePage.SizeHeight


  End If


End With


Exit For

 End If
  Next eff
Next s 
End Sub