Previous Document Next Document

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


EffectPerspective.HorizVanishingPointY

Property HorizVanishingPointY As Double

Description

Member of EffectPerspective

The HorizVanishingPointY property returns or specifies the y-coordinate of the horizontal vanishing point in a perspective effect.

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.