Object Model Reference : Classes : E : EffectExtrude : Properties : EffectExtrude.ShowBevelOnly
|
|
| Object Model Reference : Classes : E : EffectExtrude : Properties : EffectExtrude.ShowBevelOnly |
Property ShowBevelOnly As Boolean
Member of EffectExtrude
The ShowBevelOnly property returns or specifies whether to show only the bevel of an extrusion. When set to True, only the bevel is visible.
The following VBA example finds extruded text shapes. It adds a bevel to extrusions and makes only the bevel visible.
Sub Test() |
Dim s As Shape, ext As EffectExtrude |
For Each s In ActivePage.Shapes |
If s.Type = cdrExtrudeGroupShape Then |
Set ext = s.Effect.Extrude |
If ext.FaceShape.Type = cdrTextShape And Not ext.UseBevel Then |
ext.UseBevel = True |
ext.BevelAngle = 45 |
ext.BevelDepth = 0.1 |
ext.UseExtrudeColorForBevel = True |
ext.ShowBevelOnly = True |
End If |
End If |
Next s |
End Sub |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.