EffectExtrude.BevelDepth

Property BevelDepth As Double

The BevelDepth property returns or sets the bevel depth 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