Object Model Reference : Classes : E : EffectExtrude : Methods : EffectExtrude.SetBevel
|
|
| Object Model Reference : Classes : E : EffectExtrude : Methods : EffectExtrude.SetBevel |
Sub SetBevel(Depth As Double, Angle As Double, ShowBevelOnly As Boolean)
Member of EffectExtrude
The SetBevel method specifies all properties for the bevel in an extrusion.
|
Parameter
|
Description
|
|
Depth
|
Specifies the depth percentage of the bevel
|
|
Angle
|
Specifies the degree of the bevel
|
|
ShowBevelOnly
|
Specifies whether to show only the bevel in the extrusion effect
|
The following VBA 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 |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.