Object Model Reference : Classes : E : EffectExtrude : Properties : EffectExtrude.VanishingPoint
|
|
| Object Model Reference : Classes : E : EffectExtrude : Properties : EffectExtrude.VanishingPoint |
Property VanishingPoint As ExtrudeVanishingPoint
Member of EffectExtrude
The VanishingPoint property returns or specifies an ExtrudeVanishingPoint object, which lets you change the coordinates of an extrusion’s vanishing point.
The following VBA example sets the vanishing point to the center of the control shape.
Sub Test() |
Dim s As Shape, ext As EffectExtrude |
ActiveDocument.ReferencePoint = cdrCenter |
For Each s In ActivePage.Shapes |
If s.Type = cdrExtrudeGroupShape Then |
Set ext = s.Effect.Extrude |
With ext.VanishingPoint |
.Type = cdrVPLockedToShape |
.PositionX = 0 |
.PositionY = 0 |
End With |
End If |
Next s |
End Sub |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.