アクティブ」という検索でアクセスがあることに気付きました。VBAで、スライドショーのウィンドウをアクティブにするには、どのようなコードを書けばいいのかを探していらしたのでしょう。前」も、もしかすると同じことを探していたのかもしれません。スライドショーをアクティブにするサンプルマクロスライドショーが実行されているときに、以下のSubプロシージャを実行すると、スライドショーがアクティブになります。名前のとおりスライドショーをアクティブにできます。1から0へ」という実行時エラーが発生します。それにしてもこのエラーメッセージは意味不明すぎです。.Item(1).Activateと、SlideShowWindowsコレクションオブジェクトのCountプロパティを確認するIf文を入れています。指定したプレゼンテーションのスライドショーをアクティブにするサンプルマクロ複数のスライドショーが実行されているときに、指定したスライドショーをアクティブにしたいのなら、以下のようなSubプロシージャでしょうか。Sub上記のSubプロシージャを実行すると、test.pptxのスライドショーがアクティブになりますSlideShowWindowオブジェクトのPresentationプロパティを使うと、Presentationオブジェクトを取得できますから、そのNameプロパティで、アクティブにしたいスライドショーかどうかを判定しています。Each~Next文を使うほうが、多少スッキリしたコードになります。教本』は、オブジェクトブラウザーの使い方を丁寧に解説した教本でもあります。Officeの使い方などを紹介し続け(2012年頃からはVBA関連記事が多め)、毎日5万人の方にご覧いただいています。