EffectExtrude.FaceShape

Property FaceShape As Shape

The FaceShape property returns a Shape object representing the control shape of the extrusion.

The FaceShape property returns a read-only value.

The following code example finds all extruded shapes on a page, fills the control shapes with yellow, and changes the extrude 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