Home » パワーポイントマクロ・PowerPoint VBAの使い方 » スライドショー » ペンの色を変更するPowerPointマクロ

ペンの色を変更するPowerPointマクロ

対象:PowerPoint2007, PowerPoint2010, PowerPoint2013

「パワーポイント ペンの色を変えるマクロ」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。

PowerPointにはプレゼンテーション中に書き込みをする[ペン]機能があります。

「パワーポイント ペンの色を変えるマクロ」
という検索は、このペン機能の、ペンの色を変更するマクロ・VBA(Visual Basic for Applications)のコードを探している方によるものでしょう。

[スポンサードリンク]

アクティブなプレゼンテーションのペンの色を変更するサンプルマクロ

以下のようなマクロで、アクティブなプレゼンテーションのペンの色を、緑色にすることができます。


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

開いている全プレゼンテーションに対してループを回して、
 For Each prs In Presentations

先のマクロと同様に、
Presentationオブジェクトの
 SlideShowSettingsオブジェクトの
  PointerColorオブジェクトの
   RGBプロパティで、ペンの色を指定しています。

[スポンサードリンク]

Home » パワーポイントマクロ・PowerPoint VBAの使い方 » スライドショー » ペンの色を変更するPowerPointマクロ

TrackBack:0

TrackBack URL

Home » パワーポイントマクロ・PowerPoint VBAの使い方 » スライドショー » ペンの色を変更するPowerPointマクロ

「スライドショー」の記事一覧

検索


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

.