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 = 11End Sub