Previous Document Next Document

Object Model Reference : Classes : E : EffectPerspective : Properties : EffectPerspective.UseHorizVanishingPoint


EffectPerspective.UseHorizVanishingPoint

Property UseHorizVanishingPoint As Boolean

Description

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.

VBA example

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

Previous Document Next Document Back to Top

Copyright 2013 Corel Corporation. All rights reserved.