ExtrudeVanishingPoint.Share

Function Share(Source As EffectExtrude) As Boolean

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 the same vanishing point.


Parameters	Description
Source	Identifies the extrusion that has the vanishing point that you want to share

The following code 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