Previous Document Next Document

Object Model Reference : Classes : E : EffectExtrude : Properties : EffectExtrude.BevelAngle


EffectExtrude.BevelAngle

Property BevelAngle As Double

Description

Member of EffectExtrude

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

 
See also the EffectExtrude.SetBevel method.
VBA example

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

Previous Document Next Document Back to Top

Copyright 2013 Corel Corporation. All rights reserved.