API Documentation > CorelDRAW > 2025-v26 > EffectExtrude > IVGEffectExtrude
EffectExtrude.VanishingPoint property
Gets or sets the vanishing point
Syntax:
Property Get VanishingPoint() As ExtrudeVanishingPoint
Property Set VanishingPoint(ByVal Value As ExtrudeVanishingPoint)
Remarks:
The VanishingPoint property returns or specifies an ExtrudeVanishingPoint object, which lets you change the coordinates of an extrusion's vanishing point.
Examples:
The following VBA example sets the vanishing point to the center of the control shape.
Sub Test()
Dim s As Shape, ext As EffectExtrude
ActiveDocument.ReferencePoint = cdrCenter
For Each s In ActivePage.Shapes
  If s.Type = cdrExtrudeGroupShape Then

 Set ext = s.Effect.Extrude

 With ext.VanishingPoint


.Type = cdrVPLockedToShape


.PositionX = 0


.PositionY = 0

 End With
  End If
Next s 
End Sub