EffectExtrude.SetBevel

Sub SetBevel(Depth As Double, Angle As Double, ShowBevelOnly As Boolean)

The SetBevel method sets all of the properties for the bevel in an extrusion.


Parameters	Description
Depth	Sets the depth percentage of the bevel
Angle	Sets the degree of the bevel
ShowBevelOnly	Sets avalue that indicates whether to show only the bevel in the extrude effect

The following code example creates an extruded text shape with a bevel:

Sub Test() 
 Dim s As Shape 
 Set s = ActiveLayer.CreateArtisticText(2.75, 5, "Text") 
 With s.Text.FontProperties 
  .Name = "Arial Black" 
  .Size = 150 
 End With 
 s.Fill.UniformColor.RGBAssign 0, 0, 255 
 s.Outline.SetProperties 0.01, , CreateRGBColor(0, 0, 0) 
 With s.CreateExtrude(cdrExtrudeSmallBack, cdrVPLockedToShape, 4, 
8, , cdrExtrudeSolidFill, CreateRGBColor(0, 128, 0)).Extrude 
  .SetBevel 0.05, 45, False 
  .UseExtrudeColorForBevel = False 
  .BevelColor.RGBAssign 255, 255, 0 
 End With 
End Sub