Object Model Reference : Classes : E : EffectPerspective : Properties : EffectPerspective.UseHorizVanishingPoint
|
|
| Object Model Reference : Classes : E : EffectPerspective : Properties : EffectPerspective.UseHorizVanishingPoint |
Property UseHorizVanishingPoint As Boolean
Member of EffectPerspective
The UseHorizVanishingPoint property returns or specifies whether to use a horizontal vanishing point in a perspective effect.
If UseHorizVanishingPoint is set to False, the corresponding vanishing point is set to infinity.
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.