vba - 如何使用 vba 在 PowerPoint 中将 ActiveWindow.ViewType 更改为 ppViewThumbnails

Question

ActiveWindow.ViewType = ppViewThumbnails

上面的代码运行到以下错误消息：

"DocumentWindow (unknown member) : Invalid enumeration value."

请帮忙

Answer 1

您的问题非常简短……可以证明是一个给出公平答案的问题。但是，查看您的错误消息（感谢上帝，它就在那里）您可以检查以下内容：

当您尝试以编程方式查看 Microsoft PowerPoint 演示文稿的缩略图时，您可能会收到一条运行时错误消息。出现此问题的原因是 PowerPoint 并非旨在让您查看整个活动窗口中的缩略图。缩略图只能在幻灯片窗格左侧的缩略图窗格中查看。“症状”部分中描述的代码行尝试在整个活动窗口中显示缩略图。

上述知识库文章中给出了解决方法。如果您仍然卡住，请遵循并告诉我们：

要解决此问题，您需要测试以找出哪个窗格处于活动状态，然后激活缩略图窗格。

与其假设您的观点是ppthumnails，不如先尝试使用以下方法对其进行验证IF：

  With ActiveWindow
  If .ActivePane.ViewType <> ppViewThumbnails Then
        .Panes(1).Activate
        .ViewType = ppViewThumbnails
         CheckView = True
  Else
      CheckView = False
      End If
   End With