API Documentation > CorelDRAW > 2025-v26 > ShapeRange > IVGShapeRange
ShapeRange.SetPosition method
Move a shape range to a specific location
Syntax:
Sub SetPosition(ByVal PositionX As Double, ByVal PositionY As Double)
Parameters:
Name Type Description
PositionX
Double
PositionY
Double
Remarks:
The SetPosition method sets the horizontal and vertical positions of all the shapes in a shape range, treating the range as a single object. The position of the range is set relative to a reference point specified by the Document.ReferencePoint property.
Examples:
The following VBA example aligns the selected shapes to the upper-right corner of the page.
Sub Test()
ActiveDocument.ReferencePoint = cdrTopRight
ActiveSelectionRange.SetPosition ActivePage.SizeWidth, ActivePage.SizeHeight 
End Sub