Home » パワーポイントマクロ・PowerPoint VBAの使い方 » ノート » ノートのフォントサイズを一括変更するPowerPointマクロ

ノートのフォントサイズを一括変更するPowerPointマクロ

対象:PowerPoint2003, PowerPoint2007, PowerPoint2010

PowerPointでノート表示にすれば、配布資料のノート部分のフォントサイズを個々に変更することができます。

バラバラになったノートのフォントサイズを統一したいと感じることがありました。

そのためにPowerPointマクロをVBA(Visual Basic for Applications)で作成しましたのでご紹介しておきます。

[スポンサードリンク]

ノートのフォントサイズを一括変更するサンプルマクロ

すべてのスライドの、ノートのフォントサイズを一括して変更するマクロです。

Sub ノートの文字サイズを一括変更する()

 Const FNT_SZ = 20

 Dim sld As Slide
 
 For Each sld In ActivePresentation.Slides
  sld. _
   NotesPage.Shapes.Placeholders(2). _
    TextFrame.TextRange.Font.Size _
  = FNT_SZ
 Next

End Sub

サンプルマクロの解説

すべてのスライドに対してFor Each~Nextループを回して
For Each oSld In ActivePresentation.Slides

ノートのフォントサイズをに指定しています。
 sld
  .NotesPage
   .Shapes
    .Placeholders(2)
     .TextFrame
      .TextRange
       .Font.Size = FNT_SZ

フォントサイズを他のサイズにしたい場合は、定数・FNT_SZの値を変更してください。

関連語句
パワーポイントのクリックしてノートを入力の文字サイズ変更の仕方
[スポンサードリンク]

Home » パワーポイントマクロ・PowerPoint VBAの使い方 » ノート » ノートのフォントサイズを一括変更するPowerPointマクロ

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

.