Home » パワーポイントマクロ・PowerPoint VBAの使い方 » Slide・スライド » PowerPoint VBAで最後のスライドのコピーを作成する－Slide.Duplicateメソッド

PowerPoint VBAで最後のスライドのコピーを作成する－Slide.Duplicateメソッド

動作検証バージョン：Windows 10 Pro（64-bit）+ 32bit PowerPoint（バージョン2212 ビルド15928.20216 Microsoft Store）

「VBA powerpoint 最後のスライドコピー」
という検索でアクセスがありました。

［スポンサードリンク］

最後のスライドのコピーを作成するサンプルマクロ

以下のPowerPointマクロを参考にしてください。

Sub 最後のスライドのコピーを作成する()
　With ActivePresentation.Slides
　　.Item(.Count).Duplicate
　End With
End Sub

コピーを作成できます。

「VBA powerpoint 最後のスライドコピー」
とのことですから、Slides.Countプロパティで取得できるスライドの枚数を、

With ActivePresentation.Slides
　.Item(.Count).Duplicate

Slides.Itemメソッドの引数に指定することで最後のスライドを表すSlideオブジェクトを取得しています。

With ActivePresentation.Slides
　.Item(.Count).Duplicate

以下のPowerPointマクロで、最後のスライドのコピーが先頭に作成されます。

Sub 最後のスライドのコピーを先頭に作成する()
　With ActivePresentation.Slides
　　.Item(.Count).Duplicate.MoveTo toPos:=1
　End With
End Sub

Slide.Duplicateメソッドには何も引数が指定できないため、Slide.Duplicateメソッドの戻り値であるSlideRangeオブジェクトに用意されているMoveToメソッドの

引数toPosに「1」を指定することで、コピーを作成したあとに、先頭へ移動を行っています。

［スポンサードリンク］

Home » パワーポイントマクロ・PowerPoint VBAの使い方 » Slide・スライド » PowerPoint VBAで最後のスライドのコピーを作成する－Slide.Duplicateメソッド

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

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