対象：PowerPoint2007, PowerPoint2010, PowerPoint2013
「パワーポイント ペンの色を変えるマクロ」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。
PowerPointにはプレゼンテーション中に書き込みをする［ペン］機能があります。
「パワーポイント ペンの色を変えるマクロ」
という検索は、このペン機能の、ペンの色を変更するマクロ・VBA（Visual Basic for Applications）のコードを探している方によるものでしょう。
［スポンサードリンク］
アクティブなプレゼンテーションのペンの色を変更するサンプルマクロ
以下のようなマクロで、アクティブなプレゼンテーションのペンの色を、緑色にすることができます。
Sub アクティブプレゼンテーションのペンの色を変更する()
ActivePresentation.SlideShowSettings.PointerColor.RGB _
= RGB(0, 255, 0)
End Sub
ActivePresentation.SlideShowSettings.PointerColor.RGB _
= RGB(0, 255, 0)
End Sub
Presentationオブジェクトの
SlideShowSettingsオブジェクトの
PointerColorオブジェクトの
RGBプロパティで、ペンの色を指定することができます。
開いているプレゼンテーションのペンの色を変更するサンプルマクロ
以下のようなマクロにすれば、開いているプレゼンテーションのペンの色を、まとめて変更することができます。
Sub 開いているプレゼンテーションのペンの色を変更する()
Dim prs As Presentation
For Each prs In Presentations
prs.SlideShowSettings.PointerColor.RGB _
= RGB(0, 255, 0)
Next prs
End Sub
Dim prs As Presentation
For Each prs In Presentations
prs.SlideShowSettings.PointerColor.RGB _
= RGB(0, 255, 0)
Next prs
End Sub
開いている全プレゼンテーションに対してループを回して、
For Each prs In Presentations
先のマクロと同様に、
Presentationオブジェクトの
SlideShowSettingsオブジェクトの
PointerColorオブジェクトの
RGBプロパティで、ペンの色を指定しています。
最終更新日時：2020-01-20 05:43
［スポンサードリンク］
Home » パワーポイントマクロ・PowerPoint VBAの使い方 » スライドショー » ペンの色を変更するPowerPointマクロ
