EffectExtrude.BevelAngle

Property BevelAngle As Double

The BevelAngle returns or sets the bevel angle for an extrusion.

See also the SetBevel method.

The following code example creates an extruded text shape. The extrude 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