ExtrudeVanishingPoint.PositionY

Property PositionY As Double

The PositionY property returns or sets the y-coordinate of a vanishing point for an extrusion.

The following code example locks, to the page, all vanishing points for all extrusions on the page, and moves the vanishing points to the lower left corner of the page:

Sub Test1() 
 Dim s As Shape, eff As Effect, zip As EffectZipperDistortion 
 For Each s In ActivePage.Shapes 
  For Each eff In s.Effects 
   If eff.Type = cdrExtrude Then 
    With eff.Extrude.VanishingPoint 
     .Type = cdrVPLockedToPage 
     .PositionX = 0 
     .PositionY = 0 
     End With 
    Exit For 
   End If 
  Next eff 
 Next s 
End Sub