API Documentation > CorelDRAW > 2025-v26 > EffectPerspective > IVGEffectPerspective
EffectPerspective.HorizVanishingPointX property
Gets or sets the X-value of the horizontal vanishing point
Syntax:
Property Get HorizVanishingPointX() As Double
Property Let HorizVanishingPointX(ByVal Value As Double)
Remarks:
The HorizVanishingPointX property returns or specifies the x-coordinate of the horizontal 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