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

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

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

f:id:Infoment:20210816164014p:plain

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

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

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

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

参考まで。