API Documentation > CorelDRAW > 2025-v26 > EffectExtrude > IVGEffectExtrude
EffectExtrude.SetBevel method
Sets the properties for the bevel
Syntax:
Sub SetBevel(ByVal Depth As Double, ByVal Angle As Double, ByVal ShowBevelOnly As Boolean)
Parameters:
Name Type Description
Depth
Double
Angle
Double
ShowBevelOnly
Boolean
Remarks:
The SetBevel method specifies all properties for the bevel in an extrusion.
Examples:
The following VBA example creates an extruded text shape with a bevel.
Sub Test()
Dim s As Shape
Set s = ActiveLayer.CreateArtisticText(2.75, 5, "Text")
With s.Text.FontProperties
  .Name = "Arial Black"
  .Size = 150
End With
s.Fill.UniformColor.RGBAssign 0, 0, 255
s.Outline.SetProperties 0.01, , CreateRGBColor(0, 0, 0)
With s.CreateExtrude(cdrExtrudeSmallBack, cdrVPLockedToShape, 4, 8, , cdrExtrudeSolidFill, CreateRGBColor(0, 128, 0)).Extrude
  .SetBevel 0.05, 45, False
  .UseExtrudeColorForBevel = False
  .BevelColor.RGBAssign 255, 255, 0
End With 
End Sub