AutoSize Property Example

This example adjusts the size of the text frame on shape one to fit its text.

Worksheets(1).Shapes(1).TextFrame.AutoSize = True