« 図形の位置を微調整する
PowerPoint VBA - 全スライドのノートを削除する »
HOME / PowerPoint VBA - 全スライド上のテキストのフォントを変更する -

PowerPoint VBA - 全スライド上のテキストのフォントを変更する

パワポのトリセツ。RSS 2.0.

  1. 文字が入力されているオートシェイプをもつスライドを持つPPTファイルを起動します。
  2. その上で、下記VBAプログラムを実行します｡
  3. 全スライド上の全オートシェイプ中のテキストのフォントが変更されます。
    (下記サンプルの場合、Arialに変更されます。)
Sub chgFont()
    Dim mySlide As Slide
    Dim myShape As Shape
    Dim myRng   As TextRange
    With ActivePresentation
        For Each mySlide In .Slides
            For Each myShape In mySlide.Shapes
                If myShape.HasTextFrame Then
                    Set myRng = myShape.TextFrame.TextRange
                    myRng.Font.Name = "Arial"
                    myRng.Font.Color.RGB = RGB(0, 0, 255)
                End If
            Next
        Next
    End With
End Sub