PowerPointのノートの文字サイズを一括で変更

iSpringでノートの文字表示するとき、文字サイズが反映されるので、一括変更するのが便利。

VBAスクリプト（すべて18ptにする）

Public Sub SetNoteFontSize()
    Dim objSld As Slide
    Dim objFont As Object
    Dim intFontSize As Integer
    For Each objSld In ActivePresentation.Slides
        Set objFont = objSld.NotesPage.Shapes.Placeholders(2). _
                        TextFrame.TextRange.Font
        objFont.Size = 18
    Next
End Sub

参考

http://nasunoblog.blogspot.jp/2014/05/powerpoint-vba-note-pane-font-size-change.html

この記事内の'が１か所全角になっていて、コピペするとエラーになるので注意