Object Model Reference : Classes : S : Shape : Methods : Shape.CreateExtrude
|
|
| Object Model Reference : Classes : S : Shape : Methods : 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 a shape, returning an Effect object that represents the extrusion properties.
|
Parameter
|
Description
|
|
Type
|
Specifies the extrusion type, and returns cdrExtrudeType
|
|
VPType
|
Specifies the type of vanishing point
|
|
VPX
|
Specifies the x-coordinate of the vanishing point
|
|
VPY
|
Specifies the y-coordinate of the vanishing point
|
|
Depth
|
Specifies the extrusion depth. This parameter is optional, and its default value is 20.
|
|
Shading
|
Specifies the shading type, and 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
|
Specifies whether to use only a bevel. This parameter is optional, and its default value is False.
|
The following VBA 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 |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.