Sets whether or not the vanishing point is shared
Syntax:
Function Share(ByVal Source As EffectExtrude) As Boolean
Parameters:
Name Type Description
Source
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