Object Model Reference : Classes : E : ExtrudeVanishingPoint : Methods : ExtrudeVanishingPoint.Share |
Function Share(Source As EffectExtrude) As Boolean
Member of ExtrudeVanishingPoint
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.
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 |
Copyright 2013 Corel Corporation. All rights reserved.