【入門編】【中級者】スライド内のすべての「SmartArt」や「グラフ」を、解像度を保ったまま「EMF（拡張メタファイル）」形式の画像に変換して貼り直し、ファイルサイズを劇的に軽量化して別名保存するマクロ – PowerPoint VBA解析バイブル

プレゼンの「重さ」と「崩れ」を過去にする。SmartArtとグラフをEMFへ一括変換して軽量化する極限の技術

こんにちは。技術の荒波を共に乗り越えていく、あなたの先輩エンジニアです。

PowerPointを使っていて、こんな経験はありませんか？

「グラフやSmartArtをたくさん入れたら、ファイルサイズが数百MBになってしまった……」
「他人のPCでファイルを開いたら、SmartArtのレイアウトが微妙に崩れていて、プレゼンが台無しになった……」

これらは、PowerPointが「動的なオブジェクト（編集可能なデータ）」を保持しようとするがゆえに起こる、いわば「情報の重み」による副作用です。

今日は、そんな悩みを一撃で解決する、中級者への登竜門となるテクニックを伝授します。それは、「動的オブジェクトを、解像度を維持したままベクター形式の静止画（EMF）に変換して焼き付ける」という手法です。

これをマスターすれば、あなたの作る資料は「絶対に崩れない、かつ驚くほど軽い」プロ仕様のファイルへと進化します。さあ、一緒にコードの深淵を覗いてみましょう。

なぜ「画像化」が必要なのか？ その戦略的理由

まず、なぜ単なる「スクリーンショット（PNGやJPG）」ではいけないのか、その理由を理解することがエンジニアへの第一歩です。

1. 動的オブジェクトのコスト

SmartArtやグラフは、単なる絵ではありません。その中には「どのような色か」「どんなフォントか」「データ値は何か」という膨大なXMLデータが詰まっています。これが積み重なると、ファイルサイズは膨れ上がり、描画エンジンが計算を行うたびに動作が重くなります。

2. レイアウト崩れのリスク

グラフやSmartArtは、閲覧環境（フォントの有無、Officeのバージョン、OSの違い）によって、微妙に配置がズレることがあります。

3. なぜ「EMF」なのか？

ここで登場するのが EMF（Enhanced Metafile） です。

• PNG/JPG（ラスタ形式）: 点（ピクセル）の集合体。拡大するとボヤけます。
• EMF（ベクター形式）: 数式による図形の集合体。拡大しても、どれだけズームしても、輪郭が一切ボヤけません。

つまり、「編集機能は捨てるが、見た目の美しさと軽さを極限まで追求する」。これが今回の戦略です。

魂のコード：SmartArt & グラフ一括EMF変換マクロ

それでは、実際に動作するコードを見てみましょう。このコードは、スライド内のすべてのSmartArtとグラフを検出し、それらを「元の位置・サイズ」を保ったまま、EMF画像に置き換えます。

Option Explicit

''' <summary>
''' プレゼンテーション内のSmartArtとグラフをEMF形式に変換し、
''' ファイルサイズを軽量化して別名保存するプロフェッショナル用マクロ
''' </summary>
Sub FlattenDynamicObjectsToEMF()
    Dim osld As Slide
    Dim oshp As Shape
    Dim i As Integer
    Dim targetPath As String
    Dim newFileName As String
    Dim shapeLeft As Single
    Dim shapeTop As Single
    Dim shapeWidth As Single
    Dim shapeHeight As Single
    Dim convertedCount As Integer
    
    ' 処理の高速化と画面のチラつき防止
    ' ※PowerPointにはExcelのようなScreenUpdatingがないため、
    ' 描画負荷を抑えるために慎重にオブジェクトを操作します。
    
    convertedCount = 0
    
    ' 1. 変換対象のスライドをループ
    For Each osld In ActivePresentation.Slides
        
        ' スライド内の図形を後ろからループ（削除によるインデックスずれを防ぐ定石）
        For i = osld.Shapes.Count To 1 Step -1
            Set oshp = osld.Shapes(i)
            
            ' 2. 対象が SmartArt または Chart かを判定
            If oshp.Type = msoSmartArt Or oshp.Type = msoChart Then
                
                ' 現在の形状情報を記憶（これがないと貼り直し時にズレる）
                shapeLeft = oshp.Left
                shapeTop = oshp.Top
                shapeWidth = oshp.Width
                shapeHeight = oshp.Height
                
                ' 3. オブジェクトをコピー
                oshp.Copy
                
                ' 4. EMF形式で貼り付け
                ' PasteSpecial を使い、ベクター形式である ppPasteEMF を指定
                osld.Shapes.PasteSpecial DataType:=ppPasteEMF
                
                ' 5. 新しく貼り付けられた図形（最後に追加された図形）を調整
                With osld.Shapes(osld.Shapes.Count)
                    .Left = shapeLeft
                    .Top = shapeTop
                    .Width = shapeWidth
                    .Height = shapeHeight
                End With
                
                ' 6. 元の動的オブジェクトを削除
                oshp.Delete
                
                convertedCount = convertedCount + 1
            End If
        Next i
    Next osld
    
    ' 7. 別名で保存（元のファイルを壊さないための安全策）
    If convertedCount > 0 Then
        newFileName = Left(ActivePresentation.FullName, InStrRev(ActivePresentation.FullName, ".") - 1) & "_flattened.pptx"
        
        ' 既に同名ファイルがある場合の衝突回避
        On Error Resume Next
        ActivePresentation.SaveAs FileName:=newFileName
        If Err.Number <> 0 Then
            MsgBox "保存に失敗しました。同名のファイルが開いていないか確認してください。", vbCritical
            Exit Sub
        End If
        On Error GoTo 0
        
        MsgBox "完了しました！" & vbCrLf & _
               "変換したオブジェクト数: " & convertedCount & vbCrLf & _
               "保存先: " & newFileName, vbInformation, "Success"
    Else
        MsgMsgBox "変換対象のSmartArtまたはグラフは見つかりませんでした。", vbExclamation
    End If
End Sub

コードの深層解説：エンジニアとしての視点

このコードには、単なる「記録」では決して到達できない、プロのテクニックがいくつか隠されています。

① ループの「逆順」処理 (`Step -1`)

ここが最も重要なポイントです。
`For i = osld.Shapes.Count To 1 Step -1`
図形を削除する場合、前から順番に処理すると、図形を消した瞬間に残りの図形の「インデックス番号」がズレてしまい、一部の図形をスキップしてしまいます。「削除を伴うループは後ろから回す」。これはVBAにおける鉄則です。

② オブジェクトの「属性の継承」

`oshp.Copy` して `PasteSpecial` すると、新しい図形はスライドのデフォルト位置に配置されてしまいます。元の位置にピタッと戻すために、`Left`, `Top`, `Width`, `Height` を変数に退避させ、貼り付け直後に再適用しています。これがないと、プレゼン資料がバラバラになってしまいます。

③ `ppPasteEMF` の選択

`ppPastePNG` ではなく `ppPasteEMF` を選んでいる点に注目してください。これにより、拡大しても文字や図形が一切ボケない、極めて高品質な「静止画」が手に入ります。

陥りやすいエラーと回避策

このマクロを実戦で使う際、以下の点に注意してください。

1. グループ化された図形の中身:
このマクロは「スライド直下の図形」を対象としています。グループ化された中にあるSmartArtには届きません。もしグループ内も対象にしたい場合は、再帰処理（関数の中で自分自身を呼ぶ手法）が必要になります。
2. 編集不能になる:
一度実行すると、SmartArtのテキストを打ち直すことはできません。必ず 「別名保存」 を行う設計にしています。作業用ファイルと、配布用ファイルを明確に分ける習慣をつけましょう。
3. メモリ不足:
非常に巨大なスライド（数百枚規模）で実行すると、コピー＆ペーストの繰り返しによりメモリを消費します。その場合は、スライドごとに保存・分割するなどの戦略が必要になります。

まとめ：一歩上のエンジニアへ

「動くものを作る」フェーズから、「運用に耐えうるものを作る」フェーズへ。
今回学んだ「オブジェクトのライフサイクルを制御し、最適な形式へ変換する」という考え方は、PowerPointに限らず、あらゆる業務自動化に応用できる本質的な知見です。

「ただ動くだけ」のマクロを書くのは簡単です。しかし、「美しく、軽く、壊れない」アウトプットを生み出すのが、プロフェッショナルなアーキテクトの仕事です。

ここをクリアすれば、あなたのPowerPoint VBAスキルは確実に一段上のステージへ到達していますよ。自信を持って、次の自動化に挑戦してくださいね！