Sub Test() Dim s As Shape Set s = ActiveDocument.Selection If s.Shapes.Count = 0 Then MsgBox "No Object Selected" Exit Sub End If ActiveDocument.ReferencePoint = cdrBottomLeft s.SetPosition 0, 0 s.SetSize 3, 3End Sub