FrontEnd`MoveCursorToInputField
AttachedCells
SelectionMove
Scale
Normal@TransformedRegion[#, ScalingTransform[{1.1, 1.1}, Mean[List @@ #]]] &@ Rectangle[{53.`, -8.`}, {53.5`, -8.2`}]