PowerPoint2013特にたくさんのスライドの含まれるプレゼンテーションファイルをPowerPointで作る際に頻繁に発生する操作があります。作成済みの前のほうにあるスライドをコピーして、それをプレゼンテーションファイルの末尾に貼り付けるという操作です。前のほうにあるスライドと同じレイアウト・似た内容のスライドを少しでも楽に作成しようとするときに、この操作が発生します。スライドの枚数が多ければ多いほど、プレゼンテーションの前のほうに行ったり、末尾に戻ったりが面倒になります。そんなときに使えるPowerPointマクロをご紹介しておきます。[スポンサードリンク]アクティブスライドをプレゼンテーションの末尾にコピーするサンプルマクロアクティブなスライドを、プレゼンテーションの末尾にコピーして、コピーした末尾のスライドをアクティブにするマクロです。Subコピーしたいスライドがアクティブな状態で上記のマクロを実行すると、そのスライドを末尾にコピーして、コピーしたその末尾のスライドがアクティブになります。現在のプレゼンテーションファイルのスライドの枚数を取得して、その枚数に「+1」した値を変数・end_idに格納しておきます。1アクティブなスライドの複製を作成して、その複製したスライドを末尾に移動します。_toPos:=end_idSlideRangeオブジェクトのDuplicateメソッドは、.Selection.SlideRange.Duplicate...スライドの複製を元のスライドの直後に作成して、複製で新たに作られたスライドを表すSlideRangeオブジェクトを返します。その返されたSlideRangeオブジェクトをMoveToメソッドで、プレゼンテーションの末尾に移動しています。_toPos:=end_idスライドの複製が終わったら、ViewオブジェクトのGotoSlideメソッドで、末尾のスライドをアクティブにしています。教本』は、オブジェクトブラウザーの使い方を丁寧に解説した教本でもあります。Officeの使い方などを紹介し続け(2012年頃からはVBA関連記事が多め)、毎日5万人の方にご覧いただいています。