EffectPerspective.VertVanishingPointX property - Developer Area

API Documentation > CorelDRAW > X7.4 > EffectPerspective > IVGEffectPerspective

EffectPerspective.VertVanishingPointX property

Gets or sets the X-value of the vertical vanishing point

Syntax:

Property Get VertVanishingPointX() As Double
Property Let VertVanishingPointX(ByVal Value As Double)

Remarks:

The VertVanishingPointX property returns or specifies the x-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

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