ExtrudeVanishingPoint.Share method - Developer Area

API Documentation > CorelDRAW > 2020 > ExtrudeVanishingPoint > IVGExtrudeVanishingPoint

ExtrudeVanishingPoint.Share method

Sets whether or not the vanishing point is shared

Syntax:

Function Share(ByVal Source As EffectExtrude) As Boolean

Parameters:

Name	Type	Description
Source	EffectExtrude	Specifies the extrusion with the vanishing point to be shared

Remarks:

The Share property shares a vanishing point with another extrusion.

You can copy a vanishing point to another object or have multiple vector extrusions share a vanishing point.

Examples:

The following VBA example creates an extruded text object and a circle. It then shares the vanishing point between the two.

Sub Test()
  Dim sText As Shape, eff1 As Effect, eff2 As Effect
  Dim sEllipse As Shape
  Set sText = ActiveLayer.CreateArtisticText(1.5, 5, "3D Text")
  sText.Text.FontProperties.Size = 150
  sText.Fill.UniformColor.RGBAssign 0, 0, 255
  Set eff1 = sText.CreateExtrude(cdrExtrudeSmallBack, cdrVPLockedToPage, 7, 7)
  Set sEllipse = ActiveLayer.CreateEllipse2(4, 9, 2)
  sEllipse.Fill.UniformColor.RGBAssign 255, 255, 0
  Set eff2 = sEllipse.CreateExtrude(cdrExtrudeSmallBack, cdrVPLockedToPage, 5, 10)
  eff2.Extrude.VanishingPoint.Share eff1.Extrude
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