Sub Test() Dim s As Shape Dim e As Effect For Each s In ActivePage.Shapes For Each e In s.Effects If e.Type = cdrExtrude Then If e.Extrude.Depth > 10 Then e.Extrude.Depth = 10 End If Next e Next s End Sub