EffectExtrude.UseBevel

Property UseBevel As Boolean

The UseBevel property returns or sets whether to use a bevel for an extrusion. It also allows you to set options for a bevel.

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