Your macro code is include ".TextFrame2.TextRange.Font.Size = 30" already. You can change 30 to 17 or need font size.