Excel VBAで複数のPowerPointファイルのテーマを一括統一する方法

Excel VBAを使用して、複数のPowerPointファイルのテーマを一括で統一する方法について詳しく解説します。特にビジネスのプレゼンテーションなどで複数のファイルを使用する際、デザインの統一性が求められる場面は多いです。この記事を通じて、効率的にテーマを統一する技術を習得してください。

前提条件

PowerPointのテーマを統一する前に、いくつかの前提条件を整える必要があります。

– ExcelとPowerPointのアプリケーションがインストールされていること
– 対象となるPowerPointファイルが保存されているフォルダのパスを確認すること

コードの基本構造

以下のコードは、指定したフォルダ内のすべてのPowerPointファイルのテーマを統一するための基本的な構造です。

Sub ApplyThemeToAllPPTs()
    Dim pptApp As Object
    Dim pptFile As Object
    Dim pptPath As String
    Dim pptTheme As String
    Dim fileName As String
    ' PowerPointアプリケーションを開く
    Set pptApp = CreateObject("PowerPoint.Application")
    pptApp.Visible = True
    ' フォルダパスとテーマのパスを設定
    pptPath = "C:\Path\To\PPTFiles\"
    pptTheme = "C:\Path\To\DesiredTheme.thmx"
    fileName = Dir(pptPath & "*.pptx")
    Do While fileName <> ""
        Set pptFile = pptApp.Presentations.Open(pptPath & fileName)
        pptFile.ApplyTheme pptTheme
        pptFile.Save
        pptFile.Close
        fileName = Dir
    Loop
    Set pptFile = Nothing
    Set pptApp = Nothing
End Sub

コードの解説

1. 最初に、PowerPointアプリケーションと各PowerPointファイルを操作するためのオブジェクトを定義します。
2. PowerPointアプリケーションを起動し、その後で対象となるPowerPointファイルが保存されているフォルダのパスと適用したいテーマのパスを設定します。
3. `Dir`関数を使用して、指定したフォルダ内のすべてのPowerPointファイルを順次開き、テーマを適用して保存します。
4. すべての処理が終了した後、オブジェクトを解放します。

応用例

応用例1: テーマの適用範囲を限定する

特定のスライドだけにテーマを適用する場合のコード例です。

' ... [前述のコードの続き]
For i = 1 To pptFile.Slides.Count
    If i >= 3 And i <= 5 Then ' 3〜5ページのみテーマを適用
        pptFile.Slides(i).SlideMaster.Theme.ThemeColorScheme.Apply
    End If
Next i
' ...

応用例2: 異なるテーマを複数適用する

ファイル名に応じて異なるテーマを適用するコード例です。

' ... [前述のコードの続き]
If InStr(fileName, "Sales") Then
    pptTheme = "C:\Path\To\SalesTheme.thmx"
ElseIf InStr(fileName, "Marketing") Then
    pptTheme = "C:\Path\To\MarketingTheme.thmx"
End If
pptFile.ApplyTheme pptTheme
' ...

応用例3: テーマの変更をログに記録する

テーマの変更を行ったファイル名と時刻をExcelのシートに記録するコード例です。

' ... [前述のコードの続き]
Dim ws As Worksheet
Dim lastRow As Long

Set ws = ThisWorkbook.Worksheets("Log")
lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row + 1

ws.Cells(lastRow, 1).Value = fileName
ws.Cells(lastRow, 2).Value = Now
' ...

まとめ

Excel VBAを使用して、複数のPowerPointファイルのテーマを一括で統一する方法について詳しく解説しました。実際のビジネスシーンで役立つ応用例も提供しましたので、是非参考にしてください。