powerpoint - 有没有办法折叠/展开 PowerPoint 部分

Question

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

Answer 1

有趣的问题，谢谢提问。我花了一点时间才弄清楚，但方法如下：

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

PPT对象模型的使用不是很直观，是吗？