Shape.CreateExtrude

Function CreateExtrude(Type As cdrExtrudeType, VPType As cdrExtrudeVPType, VPX As Double, VPY As Double, [Depth As Double = 20], [Shading As cdrExtrudeShading = cdrExtrudeObjectFill], [BaseColor As Color], [ShadingColor As Color], [BevelDepth As Double], [BevelAngle As Double = 45], [BevelColor As Color], [BevelOnly As Boolean = False]) As Effect

Member of Shape

The CreateExtrude method extrudes the shape. This method returns an Effect object that represents the extrude effect properties.


Parameters	Description
Type	Specifies the extrude type. This property returns cdrExtrudeType.
VPType	Specifies the vanishing point
VPX	Specifies the x-coordinate of the vanishing point
VPY	Specifies the y-coordinate of the vanishing point
Depth	Specifies the extrude depth This parameter is optional, and its default value is 20.
Shading	Specifies the shading type. This property returns cdrExtrudeShading. This parameter is optional, and its default value is cdrExtrudeObjectFill (0).
BaseColor	Specifies the solid fill color or starting shading color This parameter is optional, and its default value is Nothing.
ShadingColor	Specifies the ending shading color This parameter is optional, and its default value is Nothing.
BevelDepth	Specifies the bevel depth This parameter is optional, and its default value is 0.
BevelAngle	Specifies the bevel angle This parameter is optional, and its default value is 45.
BevelColor	Specifies the bevel color This parameter is optional, and its default value is Nothing.
BevelOnly	Determines whether to use only a bevel This parameter is optional, and its default value is False.

The following code example creates an extruded text object:

Sub Test() 
 Dim sText As Shape, eff As Effect 
 Set sText = ActiveLayer.CreateArtisticText(4.25, 7, "Extrude") 
 With sText.Text.FontProperties 
  .Name = "Arial" 
  .Size = 120 
  .Style = cdrBoldFontStyle 
 End With 
 sText.Text.AlignProperties.Alignment = cdrCenterAlignment 
 sText.Fill.UniformColor.CMYKAssign 100, 0, 0, 0 
 Set eff = sText.CreateExtrude(cdrExtrudeSmallBack, 
cdrVPLockedToShape, 4.25, 0.45, 40, _ 
   cdrExtrudeColorShading, CreateCMYKColor(0, 0, 0, 100), 
CreateCMYKColor(0, 0, 0, 0)) 
 eff.Extrude.UseFullColorRange = True 
End Sub