Controling Text Box font size with VBA

[BaconFaries]

I am working on a code to automate functions for stage design. I have a set of text boxes representing items on the stage. The text boxes are of course resizeable, but the font always remains the same size. When making the items larger, this is fine, as the font doesn't really need to be much bigger. However, when I shrink the text box, bits and pieces of the words disappear one by one as there isn't enough room for them. I know there's an automatic function in PowerPoint for this, but it doesn't exist within Excel. Any help would be appreciated. Thank you so much.