Sub Test() Dim s As Shape For Each s In ActivePage.Shapes If s.Type = cdrExtrudeGroupShape Then If s.Effect.Extrude.Type = cdrExtrudeBackParallel Then s.Effect.Extrude.Type = cdrExtrudeSmallBack End If End If Next sEnd Sub