Examples:
The following VBA example creates a rectangular grid in the lower-left corner of a 8.5" × 11" page, and applies horizontal perspective with a vanishing point at the lower-right corner of the page. It then modifies the perspective to add a vertical vanishing point at the upper-left corner of the page.
Sub Test()
Dim s As Shape, e As Effect
Set s = ActiveLayer.CreateGridBoxes(0, 0, 3, 3, 7, 7)
Set e = s.CreatePerspective(8.5, 0)
e.Perspective.VertVanishingPointX = 0
e.Perspective.VertVanishingPointY = 11
End Sub