大众计算机学习网

专门提供各种电脑教程

PowerPoint窗体和视图在VBA中的示例

Admin | 2012-8-31 8:41:59 | 被阅次数 | 4480

  以下内容均在PowerPoint环境下的VBA中使用。

  ①更改当前视图

  可以使用 ViewType 属性返回或设置当前文档窗口中的当前视图。本示例将当前文档窗口中的视图更改为幻灯片视图。

  ActiveWindow.ViewType = ppViewSlide

  ②更改普通视图中的窗格

  在普通视图中,可以使用当前 Pane 对象的 ViewType 属性返回当前窗格。ViewType 属性将返回下列标识当前窗格的 PpViewType 类型常数之一:ppViewNotesPage、ppViewOutline 或 ppViewSlide。所有其他视图都只有一个窗格,且 ViewType 属性返回与当前文档窗口相同的 PpViewType 类型常数值。

  可以通过设置 ViewType 属性或使用 Activate 方法激活窗格。本示例返回标识当前视图和当前窗格的 ViewType 属性值。如果当前视图是普通视图且当前窗格是备注窗格,则用 Activate 方法激活幻灯片窗格。

  With ActiveWindow
      If .ViewType = ppViewNormal and _
              .ActivePane.ViewType = ppViewNotesPage Then
          .Panes(2).Activate
      End If
  End With

  ③调整窗格大小

  可以使用 SplitHorizontal 属性和 SplitVertical 属性在普通视图中重新放置窗格分隔线,以便按指定百分比分隔可用文档窗口。也会调整分隔线两边窗格的大小。这些属性的最大值总小于 100%,因为幻灯片窗格具有一个最小尺寸(取决于 10% 的缩放水平)。本示例将设置可用文档窗口高度的百分比,其中幻灯片窗格占百分之六十五,剩下的百分之三十五为注释窗格。

  ActiveWindow.SplitVertical = 79