Sub Test() Dim sr1 As ShapeRange, sr2 As ShapeRange Set sr1 = ActivePage.FindShapes(Type:=cdrEllipseShape) Set sr2 = sr1.Duplicate ActiveDocument.ReferencePoint = cdrBottomLeft sr2.PositionX = 0 sr2.PositionY = 0End Sub