In diesem Beispiel wird die Größe des Textrahmens in der ersten Form automatisch dem Text angepasst.
Worksheets(1).Shapes(1).TextFrame.AutoSize = True