vba - vbaを使用してPowerPointでActiveWindow.ViewTypeをppViewThumbnailsに変更する方法

Question

ActiveWindow.ViewType = ppViewThumbnails

上記のコードは、次のエラーメッセージまで実行されます。

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

助けてください

Answer 1

あなたの質問はかなり短いです...公正​​な答えを与えるための質問として正当化するために。ただし、エラーメッセージ（そこにあるGoodnessに感謝）を見ると、次のことを確認できます。

プログラムでMicrosoftPowerPointプレゼンテーションのサムネイルを表示しようとすると、取得した実行時エラーメッセージが表示される場合があります。この動作は、PowerPointがアクティブなウィンドウ全体にサムネイルを表示できるように設計されていないために発生します。サムネイルは、スライドペインの左側にあるサムネイルペインでのみ表示できます。「症状」セクションで説明されているコード行は、アクティブなウィンドウ全体にサムネイルを表示しようとします。

回避策は上記のkbの記事に記載されています。それに従って、まだ行き詰まっている場合はお知らせください。

この問題を回避するには、どのペインがアクティブであるかをテストしてから、サムネイルペインをアクティブにする必要があります。

ビューがであると想定する代わりに、ppthumnails最初に次を使用して検証してみてくださいIF。

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