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 a vanishing point.


Parameter	Description
Source	Specifies the extrusion with the vanishing point to be shared

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