EffectExtrude.BevelGroup

Property BevelGroup As Shape

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.

The BevelGroup property returns a read-only value.

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