Gets or sets the vanishing point type of cdrVPType type
Syntax:
Property Get Type() As cdrExtrudeVPType
Property Let Type(ByVal Value As cdrExtrudeVPType)
Remarks:
The Type property returns or set the type of vanishing point for an extrusion. This property returns a value of cdrExtrudeVPType.
Examples:
The following VBA example locks, to the page, all vanishing points for all extrusions on the page, and it 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