Object Model Reference : Classes : E : Effect : Properties : Effect.Extrude |
Property Extrude As EffectExtrude
Member of Effect
The Extrude property returns the EffectExtrude object for the extrusion effect.
The Extrude property returns a read-only value.
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 |
Copyright 2013 Corel Corporation. All rights reserved.