有没有办法崩溃/展开PowerPoint部分

Question

所有的标题.. 使用Presentation.SectionProperties，我可以添加/删除/重命名部分，但我找不到一种方法来折叠/展开。

Answer 1

有趣的问题，谢谢你的提问。带我了解一下，但这里是如何：

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

不是一个非常直观的使用PPT对象模型，是吗？