Powerpoint VBA TextFrame2.AutoSizeの反映不具合

スライドショーの実行中にAddShapeした吹き出し型のTextFrame2に対してAutoSizeプロパティを変更したところ、反映されず、スライドショーを終わらせてから軽く移動などさせると、さきほどのAutoSizeの変更が反映されました。 ( 動画を参照ください )
Powerpointのバグ、あるいは仕様なのかもしれないですが、これを何とかしてスライドショー実行中に反映できないでしょうか？
この現象はVBAだけではなく、VSTOアドインでも同じく発生します。

vba
1Sub test()
2    Dim sl As Slide
3    Dim sh As Shape
4    Dim pr As Presentation
5    
6    Set pr = ActivePresentation
7    pr.SlideShowSettings.Run
8    Set sl = pr.SlideShowWindow.View.Slide
9    Set sh = sl.Shapes.AddShape(msoShapeRoundedRectangularCallout, 100, 100, 100, 100)
10    sh.TextFrame2.TextRange.Text = "長い文字列長い文字列長い文字列長い文字列長い文字列長い文字列長い文字列長い文字列長い文字列"
11    sh.TextFrame2.AutoSize = msoAutoSizeTextToFitShape
12    
13End Sub
14

試してみても効果が無かった事：
1．AutoSizeを一度msoAutoSizeNoneにしてから設定してみる
2．AutoSize変更後にselect()してみる
3．AutoSize変更後に2回テキストを変更してみる
4．AutoSize変更後にWordWrapを変更してみる
5．AutoSize変更前にWordWrapを変更してみる
6．AutoSize変更後にLeftを変更（座標変更）してみる

環境： Windows 10, Microsoft 365

行動規範の内容に同意します

回答1件

ベストアンサー

編集モードで動かしたらちゃんと収まるあたりバグっぽいですが、昔からある悩みみたいですね。

たとえばこちら様「powerpoint vba はみ出すテキストの処理 (現状失敗)」
http://chemiphys.hateblo.jp/entry/2018/10/27/powerpoint_vba_%E3%81%AF%E3%81%BF%E5%87%BA%E3%81%99%E3%83%86%E3%82%AD%E3%82%B9%E3%83%88%E3%81%AE%E5%87%A6%E7%90%86_%28%E7%8F%BE%E7%8A%B6%E5%A4%B1%E6%95%97%29

結局自力でAutosizeさせてやるしかないようで、
http://www.vbaexpress.com/forum/showthread.php?44977-Textframe2-autowrap-amp-AutoSize

を参考に、

VBA
1With sh.TextFrame2
2    .TextRange = "長い文字列長い文字列長い文字列長い文字列長い文字列長い文字列長い文字列長い文字列長い文字列"
3    .AutoSize = msoAutoSizeTextToFitShape
4
5    While .TextRange.BoundHeight > sh.Height
6        .TextRange.Font.Size = .TextRange.Font.Size - 1
7    Wend
8End With