有沒有辦法崩潰/展開PowerPoint部分

Question

所有的標題.. 使用Presentation.SectionProperties，我可以添加/刪除/重命名部分，但我找不到一種方法來摺疊/展開。

Answer 1

有趣的問題，謝謝你的提問。帶我瞭解一下，但這裏是如何：

Dim oDW As DocumentWindow 
Set oDW = Windows(1) 
With oDW 
    .ExpandSection 2, False 
End With 

不是一個非常直觀的使用PPT對象模型，是嗎？