Object Model Reference : Classes : E : ExtrudeVanishingPoint : Properties : ExtrudeVanishingPoint.PositionX
|
|
| Object Model Reference : Classes : E : ExtrudeVanishingPoint : Properties : ExtrudeVanishingPoint.PositionX |
Property PositionX As Double
Member of ExtrudeVanishingPoint
The PositionX property returns or specifies the x-coordinate of a vanishing point for an extrusion.
The following VBA example locks, to the page, all vanishing points for all extrusions on the page, and it moves the vanishing points to the lower-left corner of the page.
Sub Test1() |
Dim s As Shape, eff As Effect, zip As EffectZipperDistortion |
For Each s In ActivePage.Shapes |
For Each eff In s.Effects |
If eff.Type = cdrExtrude Then |
With eff.Extrude.VanishingPoint |
.Type = cdrVPLockedToPage |
.PositionX = 0 |
.PositionY = 0 |
End With |
Exit For |
End If |
Next eff |
Next s |
End Sub |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.