テキストボックスに合わせてフォントサイズを変えたい（未解決）

テキストボックス内の文字サイズを、テキストボックスの幅に
合わせて変更したくなった。
↓ こんなイメージ。

色々と調べるうちに、ここに辿り着いた。
docs.microsoft.com

これは便利！ということで、早速実行してみる。

Sub Macro1()
    Selection.ShapeRange.TextFrame2.AutoSize = msoAutoSizeTextToFitShape
End Sub

しかし、実行してもフォントサイズは変わらず、期待した結果を得られなかった。
これは先に挙げたサンプルのように、PowerPoint限定なのだろうか？

ということで、現時点で未解決。もう少し探ってみるが、駄目なら機能を手作り
するしかないかも。

参考まで。