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

ノートをすべて削除するPowerPointマクロ

対象:PowerPoint97, PowerPoint2000, PowerPoint2002, PowerPoint2003

PowerPointにノートという機能があります。

スライドの補足説明やメモなどを入力することのできる便利な機能です。

このノートに関して、
「一気にすべてのノートを削除する方法はないのでしょうか?」
といったご質問をいただくことがあります。

作成したPPTファイルを取引先に渡すようなことは実務ではあり、そのときに取引先に知られたくないような内容がノートに入力されているようなこともあるわけで、そんなときにこのご質問をいただきます。

[スポンサードリンク]

ノートをすべて削除するサンプルマクロ

あってもよさそうなものですが、残念ながらPowerPointの標準機能としては、ノートの一括削除機能は用意されていないようです。

こんなときはVBA(Visual Basic for Applications)でマクロを作成しましょう。
Sub ノートをすべて削除する()
 Dim sld As Slide 
 For Each sld In ActivePresentation.Slides
  sld.NotesPage.Shapes.Placeholders(2) _
   .TextFrame.TextRange.Delete
 Next
End Sub

サンプルマクロの解説

アクティブなプレゼンテーションファイルの、すべてのスライドに対してFor Each~Nextループを回して、
  For Each sld In ActivePresentation.Slides

各スライドのノートの文字列を表すTextRangeオブジェクトの、Deleteメソッドを実行しています。
   sld.NotesPage.Shapes.Placeholders(2) _
    .TextFrame.TextRange.Delete

関連語句
パワポのノートのテキストだけ消去する方法, パワーポイントでノートを消す

最終更新日時:2018-09-14 05:22

[スポンサードリンク]

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

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

.