EffectExtrude.VanishingPoint property - Developer Area

API Documentation > CorelDRAW > 2021.5 > 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

Version Information:

CorelDRAW:	X7.4, X7, X7.6, X8, 2017, 2018, 2019, 2019.2, 2020, 2021, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25
Corel DESIGNER:	X7, 2017.1, 20.1, 2019.2, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25