一度の作業で複数スライドを作成しよう！
PowerPointで同じようなスライドを複数作成する場合、手動で1枚ずつコピー&ペーストをしていく必要があります。
しかし、マクロを使えば一度の操作で簡単にスライドを自動複製できます。
使用方法
Step1：マクロを開く
PowerPointの画面上部から、「表示」→「Visual Basic」をクリックし、VBAエディタを開きます。
Step2：新しいマクロを作成する
VBAエディタ画面上部の「挿入」→「新しいマクロ」をクリックして新しいマクロを作成します。
Step3：マクロを書く
以下のコードをマクロに追加してください。
“`
Sub DuplicateSlides()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim originalSlide As Slide
Dim newSlide As Slide
j = InputBox(“複製するスライドの数を入力してください”)
For i = 1 To j
Set originalSlide = ActiveWindow.Selection.SlideRange(1)
originalSlide.Select
Set newSlide = ActivePresentation.Slides.AddSlide(i + 1, originalSlide.CustomLayout)
For k = 1 To originalSlide.Shapes.Count
originalSlide.Shapes.Range(k).Copy
newSlide.Shapes.Paste
Next k
Next i
End Sub
“`
このコードには、スライド複製する回数を入力するための入力ボックスが追加されています。
Step4：マクロを実行する
VBAエディタ上部の「実行」→「DuplicateSlides」をクリックしてマクロを実行します。
すると、マクロの実行によって新しいスライドが自動的に複製されます。
使用例
使用例1：同じレイアウトを持つスライドを複数作成する
プレゼン資料の中で、同じレイアウトを持つスライドが複数ある場合、手動でコピー&ペーストをするのは手間がかかります。
このマクロを使えば、1度の操作で同じレイアウトを持つスライドを簡単に複製できます。
使用例2：グラフを使った資料を作成する
グラフを使った資料を作成する場合、同じようなグラフが複数あることがあります。
このマクロを使えば、一度の操作で複数のグラフを作成できます。
まとめ
PowerPointで同じようなスライドを複数作成する場合、手動で1枚ずつコピー&ペーストをするのは手間がかかります。
しかし、マクロを使えば一度の操作で簡単にスライドを自動複製することができます。
プレゼン資料作成時に手間を省き、効率的に作業を進めてみてはいかがでしょうか。
