API Documentation > CorelDRAW > 2025-v26 > ShapeRange > IVGShapeRange
ShapeRange.Project method
Assigns all shapes to one of our 3D projection planes
Syntax:
Function Project(ByVal Plane As cdrProjectPlane, Optional ByVal ReferencePoint As cdrReferencePoint = cdrCenter, Optional ByVal ApplyToDuplicate As Boolean = False) As ShapeRange
Parameters:
Name Type Description
Plane
ReferencePoint
Specifies the reference point for the conversion.
ApplyToDuplicate
Boolean
Specifies whether to apply the conversion to a duplicate, leaving the original shape range unchanged.
Remarks:
The Project method converts a two-dimensional shape range into a three-dimensional shape range.
Examples:
The following VBA example projects the shape range to the top isometric plane, using the upper-right corner of the bounding box of the shape range as the reference point.
Sub Test()
Dim shp1 As Shape
Dim shp2 As Shape
Dim shpRng As ShapeRange
Set shp1 = ActiveLayer.CreateRectangle2(0,0,3,6)
Set shp2 = ActiveLayer.CreateRectangle2(2,2,5,3)
Set shpRng = ActiveLayer.FindShapes(Type:=cdrRectangleShape)
shpRng.Project cdrProjectTop, cdrProjectRight 
End Sub