Object Model Reference : Classes : E : EffectPerspective : Properties : EffectPerspective.VertVanishingPointY
|
|
| Object Model Reference : Classes : E : EffectPerspective : Properties : EffectPerspective.VertVanishingPointY |
Property VertVanishingPointY As Double
Member of EffectPerspective
The VertVanishingPointY property returns or specifies the y-coordinate of the vertical vanishing point in a perspective effect.
The following VBA example changes the position of vanishing points for all perspective effects so that the horizontal vanishing point is placed in the middle of the left edge of the page, while the vertical vanishing point is placed in the middle of the top edge of the page.
Sub Test() |
Dim s As Shape, eff As Effect |
For Each s In ActivePage.Shapes |
For Each eff In s.Effects |
If eff.Type = cdrPerspective Then |
With eff.Perspective |
If .UseHorizVanishingPoint Then |
.HorizVanishingPointX = 0 |
.HorizVanishingPointY = ActivePage.SizeHeight / 2 |
End If |
If .UseVertVanishingPoint Then |
.VertVanishingPointX = ActivePage.SizeWidth / 2 |
.VertVanishingPointY = ActivePage.SizeHeight |
End If |
End With |
Exit For |
End If |
Next eff |
Next s |
End Sub |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.