API Documentation > CorelDRAW > 2025-v26 > Shape > IVGShape
Shape.CreateExtrude method
Creates an extrude effect
Syntax:
Function CreateExtrude(ByVal Type As cdrExtrudeType, ByVal VPType As cdrExtrudeVPType, ByVal VPX As Double, ByVal VPY As Double, Optional ByVal Depth As Double = 20, Optional ByVal Shading As cdrExtrudeShading = cdrExtrudeObjectFill, Optional ByVal BaseColor As Color = Nothing, Optional ByVal ShadingColor As Color = Nothing, Optional ByVal BevelDepth As Double = 0, Optional ByVal BevelAngle As Double = 45, Optional ByVal BevelColor As Color = Nothing, Optional ByVal BevelOnly As Boolean = False) As Effect
Parameters:
Name Type Description
Type
VPType
VPX
Double
VPY
Double
Depth
Double
Specifies the extrusion depth.
Shading
Specifies the shading type, and returns cdrExtrudeShading.
BaseColor
Specifies the solid fill color or starting shading color.
ShadingColor
Specifies the ending shading color.
BevelDepth
Double
Specifies the bevel depth.
BevelAngle
Double
Specifies the bevel angle.
BevelColor
Specifies the bevel color.
BevelOnly
Boolean
Specifies whether to use only a bevel.
Remarks:
The CreateExtrude method extrudes a shape, returning an Effect object that represents the extrusion properties.
Examples:
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