更改PowerPoint备注正常视图中的帧大小

Question

如何使用VBA以编程方式更改PPT幻灯片和幻灯片下方的注释之间出现的滑块的位置？ （在下图中红框中突出显示的滑杆）

在MSDN上搜索，我找不到任何似乎控制此滑块位置的属性。但是，当我将其拖动到新位置并保存演示文稿时，滑块的位置被保存，所以我认为必须有某种方法来设置它。

Answer 1

它存储在属性SplitVertical的DocumentWindow对象

Sub Test() 
    Dim app As Application 
    Set app = Application 
    Dim oWindow As DocumentWindow 

    For Each oWindow In app.Windows 

     Debug.Print oWindow.SplitHorizontal 
     Debug.Print oWindow.SplitVertical 

    Next oWindow 
End Sub