EffectExtrude.BevelGroup property - Developer Area

API Documentation > CorelDRAW > 2021.5 > 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

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