Sub SelectAllObjects()
 ActiveSheet.DrawingObjects.Select
End Sub