Object Model Reference : Classes : E : EffectExtrude : Properties : EffectExtrude.FaceShape
|
|
| Object Model Reference : Classes : E : EffectExtrude : Properties : EffectExtrude.FaceShape |
Property FaceShape As Shape
Member of EffectExtrude
The FaceShape property returns a Shape object representing the control shape of the extrusion.
The FaceShape property returns a read-only value.
The following VBA example finds all extruded shapes on a page, fills the control shapes with yellow, and changes the extrusion color to a two-color fountain fill that progresses from red to white.
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 |
ext.FaceShape.Fill.UniformColor.RGBAssign 255, 255, 0 |
ext.Shading = cdrExtrudeColorShading |
ext.BaseColor.RGBAssign 255, 0, 0 |
ext.ShadingColor.RGBAssign 255, 255, 255 |
End If |
Next s |
End Sub |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.