API Documentation > CorelDRAW > 2025-v26 > EffectExtrude > IVGEffectExtrude
EffectExtrude.BevelGroup property
Gets the bevel group
Syntax:
Property Get BevelGroup() As Shape
Remarks:
The BevelGroup property returns a Shape object representing a bevel group. You must separate the extrusion from its control shape before using the returned shape.
Examples:
The following VBA example creates an extruded text shape with a bevel, separates the extrusion, and moves the bevel group up by 3".
Sub Test()
Dim s As Shape, eff As Effect, sBevel As Shape
Set s = ActiveLayer.CreateArtisticText(2.75, 5, "Text")
With s.Text.FontProperties
  .Name = "Arial Black"
  .Size = 150
End With
Set eff = s.CreateExtrude(cdrExtrudeSmallBack, cdrVPLockedToShape, 4, _
  8, , cdrExtrudeColorShading, CreateRGBColor(0, 0, 0), CreateRGBColor(255, 255, 255), _
  0.1, 45, CreateRGBColor(255, 0, 0))
Set sBevel = eff.Extrude.BevelGroup
' Effect.Separate doesn't work well on beveled extrudes
' So, let's use ActiveSelection.Separate instead
s.CreateSelection ' Select the control text object
eff.Extrude.ExtrudeGroup.Selected = True ' Add the extrusion to the selection
sBevel.Selected = True ' Add the bevel group to the selection
ActiveSelection.Separate ' Separate the selection
sBevel.Move 0, 3 
End Sub