Home » パワーポイントマクロ・PowerPoint VBAの使い方 » コメントを削除するPowerPointマクロ

コメントを削除するPowerPointマクロ

対象：PowerPoint2007, PowerPoint2010, PowerPoint2013, Windows版PowerPoint2016

「vba パワーポイントコメントを消す」
という検索キーワードで、このサイト・インストラクターのネタ帳のアクセスがありましたので、いつものようにマクロを作ってみました。

アクティブなスライドからコメントを削除するPowerPointマクロと、
アクティブなプレゼンテーションファイルの全スライドからコメントを削除するPowerPointマクロです。

［スポンサードリンク］

アクティブスライドのコメントを削除するサンプルマクロ

以下のSubプロシージャを実行すると、アクティブなスライド上のコメントがすべて削除されます。

Sub コメントを削除する_アクティブスライド()
　Dim i As Long

　With ActiveWindow.Selection.SlideRange.Comments
　　For i = .Count To 1 Step -1
　　　.Item(i).Delete
　　Next i
　End With
End Sub

PowerPoint VBAでは、削除など、コレクションに含まれる単一オブジェクトの数がループの中で変化する処理を、For Each～Nextループで行おうとすると、上手くいきません。

そのため上記のプロシージャも、
　　For i = .Count To 1 Step -1
と、For～NextループをStep -1で回して、削除を行っています。

「ActiveWindow.Selection.SlideRange」というオブジェクト式は、PowerPoint VBAでアクティブなスライドを取得する定番の書き方です。

アクティブプレゼンテーションのコメントを削除するサンプルマクロ

以下のSubプロシージャを実行すると、アクティブなプレゼンテーションファイル上の全コメントが削除されます。

Sub コメントを削除する_アクティブプレゼンテーション()
　Dim sld As Slide
　Dim i As Long

　For Each sld In ActivePresentation.Slides
　　With sld.Comments
　　　For i = .Count To 1 Step -1
　　　　.Item(i).Delete
　　　Next i
　　End With
　Next sld
End Sub

アクティブプレゼンテーションの全スライドにFor Each～Nextループを回して、
　For Each sld In ActivePresentation.Slides

先のマクロと同じく、Step -1のFor～Nextループで、
　　With sld.Comments
　　　For i = .Count To 1 Step -1

コメントを順番に削除しています。
　　　　.Item(i).Delete

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

［スポンサードリンク］

Home » パワーポイントマクロ・PowerPoint VBAの使い方 » コメントを削除するPowerPointマクロ

『インストラクターのネタ帳』では、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ユーザーに向けに書きました↓↓

「パワーポイントマクロ・PowerPoint VBAの使い方」の記事一覧