EffectExtrude.ExtrudeGroup

Property ExtrudeGroup As Shape

The ExtrudeGroup property returns a Shape object which represents the extrude group.

You must separate the extrusion from its control shape before using the Shape object.

The ExtrudeGroup property returns a read-only value.

The following code example creates an extruded text shape with a bevel, separates the extrude, 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 extrude to the 
selection 
 sBevel.Selected = True ' Add the bevel group to the selection 
 ActiveSelection.Separate ' Separate the selection 
 sBevel.Move 0, 3 
End Sub