EffectPerspective.UseVertVanishingPoint

Property UseVertVanishingPoint As Boolean

The UseVertVanishingPoint property returns or sets whether to use a vertical vanishing point in a perspective effect.

If UseVertVanishingPoint is set to False, the corresponding vanishing point is set to infinity.

The following code 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