Effect.Extrude

Property Extrude As EffectExtrude

Member of Effect

The Extrude property returns the EffectExtrude object for the extrude effect.

The Extrude property returns a read-only value.

The following code 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