Home » パワーポイントマクロ・PowerPoint VBAの使い方 » Slide・スライド » アクティブスライドを末尾にコピーするPowerPointマクロ

アクティブスライドを末尾にコピーするPowerPointマクロ

対象：PowerPoint2007, PowerPoint2010, PowerPoint2013

特にたくさんのスライドの含まれるプレゼンテーションファイルをPowerPointで作る際に頻繁に発生する操作があります。

作成済みの前のほうにあるスライドをコピーして、それをプレゼンテーションファイルの末尾に貼り付けるという操作です。前のほうにあるスライドと同じレイアウト・似た内容のスライドを少しでも楽に作成しようとするときに、この操作が発生します。

ですが、スライドの枚数が多ければ多いほど、プレゼンテーションの前のほうに行ったり、末尾に戻ったりが面倒になります。

そんなときに使えるPowerPointマクロをご紹介しておきます。

［スポンサードリンク］

アクティブスライドをプレゼンテーションの末尾にコピーするサンプルマクロ

アクティブなスライドを、プレゼンテーションの末尾にコピーして、コピーした末尾のスライドをアクティブにするマクロです。

Sub アクティブスライドをプレゼンテーションの末尾にコピーする()

　Dim end_id As Long

　end_id = ActivePresentation.Slides.Count + 1

　With ActiveWindow
　　.Selection.SlideRange.Duplicate.MoveTo _
　　　toPos:=end_id
　　.View.GotoSlide end_id
　End With

End Sub

コピーしたいスライドがアクティブな状態で上記のマクロを実行すると、そのスライドを末尾にコピーして、コピーしたその末尾のスライドがアクティブになります。

サンプルマクロの解説

現在のプレゼンテーションファイルのスライドの枚数を取得して、その枚数に「+1」した値を変数・end_idに格納しておきます。
　end_id = ActivePresentation.Slides.Count + 1

アクティブなスライドの複製を作成して、その複製したスライドを末尾に移動します。
　With ActiveWindow
　　.Selection.SlideRange.Duplicate.MoveTo _
　　　toPos:=end_id

SlideRangeオブジェクトのDuplicateメソッドは、
　　.Selection.SlideRange.Duplicate...

スライドの複製を元のスライドの直後に作成して、複製で新たに作られたスライドを表すSlideRangeオブジェクトを返します。

アクティブスライドを末尾にコピーするPowerPointマクロ

その返されたSlideRangeオブジェクトをMoveToメソッドで、

アクティブスライドを末尾にコピーするPowerPointマクロ

プレゼンテーションの末尾に移動しています。
　　.Selection.SlideRange.Duplicate.MoveTo _
　　　toPos:=end_id

スライドの複製が終わったら、ViewオブジェクトのGotoSlideメソッドで、末尾のスライドをアクティブにしています。
　　.View.GotoSlide end_id

アクティブスライドを末尾にコピーするPowerPointマクロ

▼『いちばんやさしい PowerPoint VBA の教本』は、一番易しいパワポマクロ入門書、というわけではありませんので、ご注意ください。
いちばんやさしいPowerPoint VBAの教本
［スポンサードリンク］

Home » パワーポイントマクロ・PowerPoint VBAの使い方 » Slide・スライド » アクティブスライドを末尾にコピーするPowerPointマクロ

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓ Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓ 『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓ PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓ 日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓ 上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓ Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓ 小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓ 数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓ 図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓ グラフを操作するExcel VBAの基本を解説したキンドル本も出しました↓↓ Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓


「Slide・スライド」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.