API Documentation > CorelDRAW > 2025-v26 > EffectPerspective > IVGEffectPerspective
EffectPerspective.UseHorizVanishingPoint property
Gets or sets whether or not to use the horizontal vanishing point
Syntax:
Property Get UseHorizVanishingPoint() As Boolean
Property Let UseHorizVanishingPoint(ByVal Value As Boolean)
Remarks:
The UseHorizVanishingPoint property returns or specifies whether to use a horizontal vanishing point in a perspective effect. If UseHorizVanishingPoint is set to False, the corresponding vanishing point is set to infinity.
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