Object Model Reference : Classes : E : EffectExtrude : Properties : EffectExtrude.UseBevel
|
|
| Object Model Reference : Classes : E : EffectExtrude : Properties : EffectExtrude.UseBevel |
Property UseBevel As Boolean
Member of EffectExtrude
The UseBevel property returns or specifies whether to use a bevel for an extrusion. It also allows you to set options for a bevel.
• |
See also the EffectExtrude.SetBevel method.
|
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 |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.