Object Model Reference : Classes : E : ExtrudeVanishingPoint : Properties : ExtrudeVanishingPoint.Type
|
|
| Object Model Reference : Classes : E : ExtrudeVanishingPoint : Properties : ExtrudeVanishingPoint.Type |
Property Type As cdrExtrudeVPType
Member of ExtrudeVanishingPoint
The Type property returns or set the type of vanishing point for an extrusion.
This property returns a value of cdrExtrudeVPType.
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.