CHANGE FONT SIZES
Sub IncreaseAllFontSizes() Dim sld As Slide Dim shp As Shape Dim IncreaseBy As Single IncreaseBy = 4 'Change this to...Read More
Sub ShrinkTextOnOverflow_AllSlides() Dim sld As Slide Dim shp As Shape For Each sld In ActivePresentation.Slides For Eac...