The following VBA example creates an extruded text shape. The extrusion is created with a yellow bevel that is 0.1" wide and has a 45° slope.
Sub Test()
Dim s As Shape, eff As Effect
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))
With eff.Extrude
.UseBevel = True
.BevelAngle = 45
.BevelDepth = 0.1
.UseExtrudeColorForBevel = False
.BevelColor.RGBAssign 255, 255, 0
End With
End Sub