Autofit context to box

Sub ShrinkTextOnOverflow_AllSlides()     Dim sld As Slide     Dim shp As Shape     For Each sld In ActivePresentation.Slides         For Eac...