EffectExtrude.VanishingPoint

Property VanishingPoint As ExtrudeVanishingPoint

The VanishingPoint property returns or sets an ExtrudeVanishingPoint object that allows you to change the coordinates of an extrude’s vanishing point.

The following code example sets the vanishing point to the center of the control shape:

Sub Test() 
 Dim s As Shape, ext As EffectExtrude 
 ActiveDocument.ReferencePoint = cdrCenter 
 For Each s In ActivePage.Shapes 
  If s.Type = cdrExtrudeGroupShape Then 
   Set ext = s.Effect.Extrude 
   With ext.VanishingPoint 
    .Type = cdrVPLockedToShape 
    .PositionX = 0 
    .PositionY = 0 
   End With 
  End If 
 Next s 
End Sub