Home » パワーポイントマクロ・PowerPoint VBAの使い方 » ノート » 「クリックしてノートを入力」「タップしてノートを追加」を非表示にするパワポマクロ

「クリックしてノートを入力」「タップしてノートを追加」を非表示にするパワポマクロ

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

セミナーの資料を作る際に私は、PowerPointでスライドを作成して、何を話すかをノート欄に入力する、といった作業を行うことがあります。

この際、ノート欄に表示されている「クリックしてノートを入力」という文字列(PowerPoint 2010・2007の場合)や、

「クリックしてノートを入力」「タップしてノートを追加」を非表示にするパワポマクロ

「タップしてノートを追加」という文字列(PowerPoint 2016・2013の場合)が、

「クリックしてノートを入力」「タップしてノートを追加」を非表示にするパワポマクロ

私の思考を邪魔するケースがあることに気づきました。

スライドを見ながら何を話すかを考えているときに「クリックしてノートを入力」「タップしてノートを追加」という文字列が目に入ると、それまで考えていたことが何だか邪魔されるときがあるのです。

そこで「クリックしてノートを入力」「タップしてノートを追加」という文字列が、ノート欄に表示されないようにする簡単なマクロを作成しました。

[スポンサードリンク]

「クリックしてノートを入力」「タップしてノートを追加」を非表示にするサンプルマクロ

以下のマクロを実行すると、アクティブなプレゼンテーションファイルのスライドで、ノートが入力されていないスライドの「クリックしてノートを入力」「タップしてノートを追加」という文字列が表示されなくなります。

Sub ノートを入力という文字列を非表示に()

 Dim sld As Slide

 For Each sld In ActivePresentation.Slides
 With sld.NotesPage.Shapes.Placeholders(2).TextFrame.TextRange
  If .Text = "" Then .Text = " "
 End With
 Next sld

End Sub

サンプルマクロの解説

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

ノートが空白だったときに半角スペースを入力しています。
 With sld.NotesPage.Shapes.Placeholders(2).TextFrame.TextRange
  If .Text = "" Then .Text = " "

ノートに何も入力されていないときに「クリックしてノートを入力」「タップしてノートを追加」が表示されるので、何も入力されていないスライドノートに、半角スペースを入力してしまうというだけのマクロです。

[スポンサードリンク]

Home » パワーポイントマクロ・PowerPoint VBAの使い方 » ノート » 「クリックしてノートを入力」「タップしてノートを追加」を非表示にするパワポマクロ

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

.