Excel VBAでPowerPointの文字サイズを一括調整する方法

Excel VBAを使用して、PowerPointの文字サイズを一括で調整する方法について詳しく解説します。この手法を使えば、大量のスライドにわたる文字のサイズを効率的に変更することが可能となります。具体的なコード例とその解説、さらに応用例を通じて、より深い理解を目指しましょう。

Excel VBAを使ったPowerPointの文字サイズ一括調整の基本

まずは基本的なコードから始めます。このコードは、開いているPowerPointのすべてのスライドの文字サイズを一定の値に設定します。

Sub AdjustTextSizeInPowerPoint()
    Dim pptApp As Object
    Dim pptPresentation As Object
    Dim slide As Object
    Dim shape As Object
    Dim newSize As Integer
    
    newSize = 20 '変更したい文字サイズ

    'PowerPointのインスタンスを取得
    Set pptApp = CreateObject("PowerPoint.Application")
    Set pptPresentation = pptApp.ActivePresentation

    'すべてのスライドのテキストサイズを変更
    For Each slide In pptPresentation.Slides
        For Each shape In slide.Shapes
            If shape.HasTextFrame Then
                shape.TextFrame.TextRange.Font.Size = newSize
            End If
        Next shape
    Next slide
End Sub

コードの詳細解説

– PowerPointのインスタンスを取得するために、`CreateObject(“PowerPoint.Application”)`を使用しています。
– `pptApp.ActivePresentation`を使って、現在アクティブなプレゼンテーションを取得しています。
– 2つの`For Each`ループを使用して、すべてのスライドとそのスライド内のすべての形状を繰り返し処理しています。
– `If shape.HasTextFrame Then`は、形状がテキストフレームを持っているかどうかを確認しています。
– 最後に、`shape.TextFrame.TextRange.Font.Size = newSize`を使用して文字サイズを変更しています。

応用例

1. 特定のスライドだけ文字サイズを変更

Sub AdjustSpecificSlideTextSize()
    Dim pptApp As Object
    Dim pptPresentation As Object
    Dim slide As Object
    Dim shape As Object
    Dim newSize As Integer
    Dim targetSlideIndex As Integer

    newSize = 20 '変更したい文字サイズ
    targetSlideIndex = 5 '変更したいスライドのインデックス

    Set pptApp = CreateObject("PowerPoint.Application")
    Set pptPresentation = pptApp.ActivePresentation
    Set slide = pptPresentation.Slides(targetSlideIndex)

    For Each shape In slide.Shapes
        If shape.HasTextFrame Then
            shape.TextFrame.TextRange.Font.Size = newSize
        End If
    Next shape
End Sub

2. テキストの色も一括変更

Sub AdjustTextSizeAndColor()
    Dim pptApp As Object
    Dim pptPresentation As Object
    Dim slide As Object
    Dim shape As Object
    Dim newSize As Integer
    Dim newColor As Long

    newSize = 20 '変更したい文字サイズ
    newColor = RGB(255, 0, 0) '変更したい文字の色 (赤)

    Set pptApp = CreateObject("PowerPoint.Application")
    Set pptPresentation = pptApp.ActivePresentation

    For Each slide In pptPresentation.Slides
        For Each shape In slide.Shapes
            If shape.HasTextFrame Then
                shape.TextFrame.TextRange.Font.Size = newSize
                shape.TextFrame.TextRange.Font.Color.RGB = newColor
            End If
        Next shape
    Next slide
End Sub

3. 特定のキーワードを含むテキストのみサイズ変更

Sub AdjustSizeForKeywordText()
    Dim pptApp As Object
    Dim pptPresentation As Object
    Dim slide As Object
    Dim shape As Object
    Dim newSize As Integer
    Dim keyword As String

    newSize = 30 '変更したい文字サイズ
    keyword = "重要" '変更対象のキーワード

    Set pptApp = CreateObject("PowerPoint.Application")
    Set pptPresentation = pptApp.ActivePresentation

    For Each slide In pptPresentation.Slides
        For Each shape In slide.Shapes
            If shape.HasTextFrame Then
                If InStr(1, shape.TextFrame.TextRange.Text, keyword, vbTextCompare) > 0 Then
                    shape.TextFrame.TextRange.Font.Size = newSize
                End If
            End If
        Next shape
    Next slide
End Sub

まとめ

Excel VBAを使うことで、PowerPointのスライドのテキストサイズを一括で効率的に調整することができます。基本的な方法から応用例まで、さまざまなニーズに合わせてカスタマイズ可能です。VBAの力を活用して、プレゼンテーション作成の効率を向上させましょう。