Find centralized, trusted content and collaborate around the technologies you use most.
Teams
Q&A for work
Connect and share knowledge within a single location that is structured and easy to search.
タイトルのすべて.. Presentation.SectionProperties を使用して、セクションを追加/削除/名前変更できますが、折りたたむ/展開する方法が見つかりません。
興味深い質問です。質問してくれてありがとう。それを理解するのに少し時間がかかりましたが、方法は次のとおりです。
Dim oDW As DocumentWindow Set oDW = Windows(1) With oDW .ExpandSection 2, False End With
PPTオブジェクトモデルの非常に直感的な使用法ではありませんか?