大众计算机学习网

专门提供各种电脑教程

VBA编程之View对象与WebOptions

Admin | 2014-2-5 8:35:58 | 被阅次数 | 3597

  一、View对象

  代表指定文档窗口中当前编辑的视图。

  使用 View 对象

  使用 DocumentWindow 对象的 View 属性返回 View 对象。以下示例设置第一个窗口的大小,并将缩放比例设为适应新窗口大小。

  With Windows(1)
      .Height = 200
      .Width = 250
      .View.ZoomToFit = True
  End With

  注意  View 对象可以代表任何文档窗口视图:普通视图、幻灯片视图、大纲视图、幻灯片浏览视图、备注页视图、幻灯片母版视图、讲义母版视图或备注母版视图。View 对象的某些属性和方法仅在特定视图中使用。如果试图使用不适合 View 对象的属性或方法,将产生错误。

  二、WebOptions对象

  包含演示文稿级的属性,当将整个或部分演示文稿作为 Web 页发布和保存或在打开 Web 页时,Microsoft PowerPoint 会使用这些属性。用户可以在应用程序(全局)级或演示文稿级返回或设置属性。(请注意,不同演示文稿的属性值可能不同,取决于在保存演示文稿时的属性值。)演示文稿级的属性设置会覆盖应用程序级的属性设置。应用程序级的属性包含在 DefaultWebOptions 对象中。

  使用 WebOptions 对象

  使用 WebOptions 属性可返回 WebOptions 对象。以下示例将检查在第一篇演示文稿中是否可以将可移植网络图形 (PNG) 作为图像格式使用。如果允许使用 PNG,则以下示例会将大纲窗格中的文字颜色设置为白色,将大纲和幻灯片窗格中的背景色设置为黑色。

  Set objAppWebOptions = Presentations(1).WebOptions
  With objAppWebOptions
      If .AllowPNG = True Then
          .FrameColors = ppFrameColorsWhiteTextOnBlack
      End If
  End With