対象: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
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
[スポンサードリンク]
- Newer:ブック名を表示する−4.0マクロ関数
- Older:対数グラフの作り方−対数目盛を表示する
Home » パワーポイントマクロ・PowerPoint VBAの使い方 » ノート » ノートをすべて削除するPowerPointマクロ