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 sEnd Sub