The Extrude property returns the EffectExtrude object for the extrusion effect.
Examples:
The following VBA example checks all extruded objects on a page to make sure that no extrudes have an extrusion depth greater than 10.
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