【入門編】【中級者】プレゼンテーション内のすべての「スマートアート（SmartArt）」を静的な図形グループに自動分解した上で、外部環境での互換性を100%保証した状態で別名保存する互換性向上マクロ – PowerPoint VBA解析バイブル

SmartArtの「崩壊」を防げ。互換性を極限まで高める、プロフェッショナルな変換術

こんにちは。技術の世界へようこそ。

マクロの記録機能を使って、「あ、これ自動化できそうだな」と感じるようになったあなた。素晴らしい一歩です。しかし、実務という戦場において、私たちは「動けばいい」という段階から、「どんな環境でも、誰が使っても、完璧に動く」という、より高次な次元へと進む必要があります。

今日、私たちが挑むテーマは、PowerPointユーザーを最も悩ませる問題の一つ、「SmartArt（スマートアート）の互換性問題」です。

「自分のPCでは綺麗に見えるのに、クライアントに送ったら図形が重なって表示されている」「Googleスライドで開いたら、中身が消えてしまった」……。こうしたトラブルは、SmartArtが「ただの図形」ではなく、独自の描画エンジンを持つ「動的なオブジェクト」であることに起因します。

今回は、そのSmartArtを、見た目を維持したまま「静的な図形グループ」へと一括変換し、外部環境での表示崩れを100%防ぐための、極限の互換性向上マクロを伝授しましょう。

なぜSmartArtは「壊れる」のか？：オブジェクトの正体を知る

プログラミングにおいて、対象となるオブジェクトの「性質」を理解することは、設計の第一歩です。

通常の「四角形」や「円」は、座標（X, Y）とサイズ（幅, 高さ）を持つ単純なデータです。しかし、SmartArtは違います。それは、「テキスト情報」と「レイアウト計算エンジン」が密結合した、複雑なコンテナ（入れ物）なのです。

他のプレゼンテーションソフトや古いバージョンのPowerPointには、この「レイアウト計算エンジン」が存在しません。エンジンがない場所でSmartArtを動かそうとすると、計算ができず、形が崩れたり、消えてしまったりするのです。

これを防ぐ唯一のプロの手法は、「エンジンに頼らずとも成立する、ただの図形の集合体（GroupShapes）」へと事前に分解してしまうことです。

究極の互換性向上マクロ：SmartArt to Static Shapes

このコードは、プレゼンテーション内のすべてのスライドを巡回し、SmartArtを見つけ次第、標準的な図形へと変換します。

実装のポイント：逆順ループの極意

ここで、初級者と中級者を分ける決定的なテクニックを教えましょう。図形を変換すると、元の「SmartArt」というオブジェクトが消え、代わりに「Group（グループ）」という新しいオブジェクトが生成されます。
もし、前から順番（`For Each` や `1 To Count`）に処理していくと、「今消したはずのオブジェクトを、次にまた探そうとする」というエラーや、「生成された新しい図形をまた処理対象にしてしまう」という無限ループに近い挙動に陥ります。

これを回避するため、プロは必ず「後ろから（カウントダウン方式で）」ループを回します。

Option Explicit

''' <summary>
''' プレゼンテーション内の全SmartArtを静的な図形グループに変換し、
''' 互換性を確保した状態で別名保存する。
''' </summary>
Sub ConvertSmartArtToStaticShapesAndSave()
    Dim targetPres As Presentation
    Dim sld As Slide
    Dim shp As Shape
    Dim i As Integer, j As Integer
    Dim savePath As String
    Dim newFileName As String

    ' 現在開いているプレゼンテーションを対象とする
    Set targetPres = ActivePresentation
    
    ' 画面更新を停止してパフォーマンスを向上させる（プロの作法）
    Application.ScreenUpdating = False

    On Error GoTo ErrorHandler

    Debug.Print "--- 変換プロセス開始 ---"

    ' 1. 全スライドをループ
    ' スライドの追加・削除が発生する可能性がある場合は、ここも逆順が定石
    For Each sld In targetPres.Slides
        Debug.Print "処理中スライド: " & sld.SlideIndex
        
        ' 2. スライド内のシェイプを【後ろから】ループ
        ' これにより、オブジェクトの置換（SmartArt -> Group）によるインデックスのズレを防ぐ
        For i = sld.Shapes.Count To 1 Step -1
            Set shp = sld.Shapes(i)
            
            ' SmartArtかどうかを判定
            If shp.Type = msoSmartArt Then
                Debug.Print "  SmartArtを発見: " & shp.Name
                
                ' 【重要】CommandBarsを使用して、UI上の「図形に変換」機能を実行する
                ' これが最も確実かつ、見た目を維持したまま分解する方法です
                shp.Select
                CommandBars.ExecuteMso ("SmartArtConvertShape")
                
                Debug.Print "  変換成功: " & shp.Name
            End If
        Next i
    Next sld

    ' 3. 別名で保存する準備
    ' 元のファイル名に "_Compatible" を付与
    If targetPres.Path = "" Then
        MsgBox "ファイルを一度保存してから実行してください。", vbCritical
        Exit Sub
    End If

    savePath = targetPres.Path & "\"
    newFileName = Left(targetPres.Name, InStrRev(targetPres.Name, ".") - 1) & "_Compatible.pptx"

    ' 4. 保存実行
    targetPres.SaveAs Filename:=savePath & newFileName
    
    Application.ScreenUpdating = True
    MsgBox "完了しました！" & vbCrLf & "保存先: " & newFileName, vbInformation, "Success"
    
    Exit Sub

ErrorHandler:
    Application.ScreenUpdating = True
    MsgBox "予期せぬエラーが発生しました。" & vbCrLf & _
           "エラー番号: " & Err.Number & vbCrLf & _
           "内容: " & Err.Description, vbCritical, "Error"
End Sub

コードの深層解説：なぜこれで動くのか？

1. `CommandBars.ExecuteMso (“SmartArtConvertShape”)`

これがこのコードの「心臓部」です。
VBAのリファレンスをいくら探しても、`SmartArt.ConvertToShapes` のような直接的なメソッドは見当たりません。なぜなら、それは非常に複雑なプロセスだからです。
そこで、私たちは「ユーザーがボタンをクリックする操作」をVBAから直接命令（ExecuteMso）します。これにより、PowerPoint本体が持つ最も信頼性の高い変換ロジックをそのまま利用できるのです。

2. `For i = sld.Shapes.Count To 1 Step -1`

先ほど述べた通り、コレクション（図形の集まり）を操作する際の鉄則です。
「1番目の図形を変換して2つの図形に増やす」と、2番目だった図形は3番目に押し出されます。次にループが「2番目」を見に行くと、本来の2番目を飛ばしてしまうのです。
後ろから処理すれば、インデックスが変化しても、まだ処理していない図形の番号には影響しません。これは「コレクションの変異（Mutation）への対策」と呼ばれる、極めて重要なテクニックです。

3. `Application.ScreenUpdating = False`

大量のスライドを処理する場合、画面の描画更新は膨大なリソースを消費します。これを止めるだけで、処理速度は劇的に向上します。これは「ユーザーへの配慮」であると同時に、「処理の安定化」にも繋がります。

陥りやすい罠と、プロのアドバイス

このマクロを使う上で、以下の2点は必ず覚えておいてください。

1. 「後戻りはできない」
SmartArtを変換すると、それは「ただの図形」になります。後から「やっぱりSmartArtのテキスト編集機能を使いたい」と思っても、もう元には戻せません。
必ず「別名保存」を行うロジック（本コードに実装済み）を使い、マスターデータは保護してください。

2. 「アニメーションの消失」
SmartArtに設定していたアニメーションは、図形に分解された瞬間に失われます。もしアニメーションが必要な場合は、変換後にグループに対して改めてアニメーションを設定し直す必要があります。

おわりに

「マクロの記録」は、いわば単語を覚える段階です。
そして、今回学んだ「オブジェクトの性質を理解し、コレクションの特性を制御する」技術は、文章を組み立てる段階への入り口です。

ここまで読み進めたあなたは、もうただの「マクロ使い」ではありません。システムの挙動を予測し、制御しようとする「エンジニア」の思考を手に入れ始めています。

ここをクリアすれば、PowerPoint VBAの基本はバッチリですよ。
さあ、次はもっと複雑な、もっと美しい自動化の世界へ踏み出しましょう。応援しています。