Shape.CreateExtrude method - Developer Area

API Documentation > CorelDRAW > X8 > 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	cdrExtrudeType	Specifies the extrusion type, and returns cdrExtrudeType
VPType	cdrExtrudeVPType	Specifies the type of vanishing point
VPX	Double	Specifies the x-coordinate of the vanishing point
VPY	Double	Specifies the y-coordinate of the vanishing point
Depth	Double	Specifies the extrusion depth.
Shading	cdrExtrudeShading	Specifies the shading type, and returns cdrExtrudeShading.
BaseColor	Color	Specifies the solid fill color or starting shading color.
ShadingColor	Color	Specifies the ending shading color.
BevelDepth	Double	Specifies the bevel depth.
BevelAngle	Double	Specifies the bevel angle.
BevelColor	Color	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

Version Information:

CorelDRAW:	X7.4, X7, X7.6, X8, 2017, 2018, 2019, 2019.2, 2020, 2021, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25
Corel DESIGNER:	X7, 2017.1, 20.1, 2019.2, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25