EffectPerspective.VertVanishingPointX

Property VertVanishingPointX As Double

The VertVanishingPointX property returns or sets the x-coordinate of the vertical vanishing point in a perspective effect.

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