Sub Test() Dim shp1 As Shape Set shp1 = ActiveLayer.CreateRectangle2(0,0,10,20) shp1.Project cdrProjectTop, cdrProjectRightEnd Sub