PowerPoint VBAを掌握する極限の知見：SmartArt内部テキストを完全制圧し、一括置換を極める実装アプローチ
業務自動化の現場において、PowerPointのテキスト置換は一見容易に見える。しかし、対象が「SmartArt」になった途端、多くの開発者が深い泥沼に嵌まり込む。
一般的なテキストボックスであれば `Shape.TextFrame.TextRange` を叩くだけで済む処理が、SmartArtの構造の前では完全に無力化される。SmartArtは単なる図形の集合体ではなく、XMLベースの複雑なノード階層（`AllNodes`）を隠蔽した特殊なオブジェクトだからだ。
今回は、PowerPoint VBAのオブジェクトモデルの深層を見据え、Slide.ShapesからSmartArtのみを厳密に判定し、その内部テキスト階層を再帰的に巡回・一括置換するプロダクションコードを授与する。中途半端なイテレーションでバグを生むコードは、今日で卒業しよう。
—
1. なぜSmartArtのテキスト置換は難易度が高いのか
実務でよくある要件として、「全スライドを走査し、旧社名『株式会社OldName』を『株式会社NewName』に一括置換するマクロ」がある。これを素朴なアプローチで実装すると、以下の壁に阻まれる。
1. `HasTextFrame` の罠
SmartArtのルートシェイプ自体は、`HasTextFrame` が False であったり、テキストフレームを持っていても空っぽであることが多い。実体は内部の `GroupShapes` や `Nodes` に隠されている。
2. 通常の `ShapeRange.Replace` の不発
PowerPointのネイティブな置換メソッドは、SmartArt内部のディープなノードテキストを捕捉しきれないケースが多々ある。
3. テキストの断片化（Chunk問題）
SmartArtのレイアウト構造によっては、1つの単語が複数のノードやテキスト範囲に分断されて保持されている場合があり、単純な置換では文字列が破損する。
これらを突破するには、オブジェクトの型を厳密に判定（Type判定）し、SmartArt専用のDOM（Document Object Model）である `SmartArt.AllNodes` を直接叩くアプローチが不可欠となる。
—
2. 堅牢な設計アプローチ：SmartArt判定の極意
VBAでSmartArtを安全に扱うための鉄則は、オブジェクトの `Type` プロパティ、あるいは `HasSmartArt` プロパティを正しく評価することだ。
PowerPointの `Shape.Type` において、SmartArtは `msoSmartArt`（定数：`14`）として定義されている。さらに、Office 2010以降であれば `HasSmartArt` プロパティ（MsoTriState）も利用可能だ。二重のチェックを行うことで、予期せぬオブジェクト（画像や通常のグループ化図形）による型ミスマッチエラー（実行時エラー ‘438’ や ’13’）を完全に排除できる。
—
3. 【プロダクションコード】SmartArtテキスト完全置換マクロ
以下のコードは、実務の現場でそのままコピー＆ペーストして利用できる、エラーハンドリング完備のモジュールである。指定した文字列の検索・置換を行い、置換が発生したノードの総数をログ出力する。
Option Explicit
‘ =========================================================================
‘ módulo名: modSmartArtReplacer
‘ 概要 : プレゼンテーション内の全スライドからSmartArtを厳密に特定し、
内部の全ノードテキストを再帰的・安全に一括置換する。
‘ =========================================================================
Public Sub ExecuteSmartArtTextReplacement()
Dim targetPresentation As Presentation
Set targetPresentation = ActivePresentation
‘ 置換設定（実務では外部設定ファイルやダイアログから取得することを推奨）
Const TARGET_KEYWORD As String = “株式会社OldName”
Const REPLACEMENT_KEYWORD As String = “株式会社NewName”
Dim totalReplacedCount As Long
totalReplacedCount = 0
Dim sld As Slide
Dim shp As Shape
‘ 実行確認
If MsgBox(“プレゼンテーション内のすべてのSmartArtを対象に、” & vbCrLf & _
“「” & TARGET_KEYWORD & “」を「” & REPLACEMENT_KEYWORD & “」に置換します。”, _
vbYesNo + vbInformation, “SmartArt一括置換エンジン”) = vbNo Then
Exit Sub
End If
‘ エラーハンドリングの有効化（オブジェクトモデルの不安定な挙動から保護）
On Error GoTo ErrorHandler
‘ スライドのループ
For Each sld In targetPresentation.Slides
‘ シェイプのループ（コレクションの安全な逆順走査は通常のシェイプでは不要だが、削除を伴う場合は逆順にすること）
For Each shp In sld.Shapes
‘ 【極意】SmartArtの厳密な判定
‘ Type が msoSmartArt かつ HasSmartArt が True であることを確認
If shp.Type = msoSmartArt Then
If shp.HasSmartArt = msoTrue Then
‘ SmartArt内部のテキストを置換し、置換件数を加算
totalReplacedCount = totalReplacedCount + ReplaceTextInSmartArt(shp.SmartArt, TARGET_KEYWORD, REPLACEMENT_KEYWORD)
End If
End If
Next shp
Next sld
On Error GoTo 0
‘ 完了通知
MsgBox “置換処理が完了しました。” & vbCrLf & _
“総置換箇所数: ” & totalReplacedCount & ” 箇所”, vbInformation, “処理成功”
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “致命的エラー”
End Sub
‘ =========================================================================
‘ 関数名 : ReplaceTextInSmartArt
‘ 概要 : SmartArtオブジェクトの全ノードを再帰的に走査し、テキストを置換する
‘ 引数 : sa -> 対象の SmartArt オブジェクト
‘ : targetStr -> 検索文字列
‘ : replaceStr -> 置換文字列
‘ 戻り値 : Long (置換を行った回数)
‘ =========================================================================
Private Function ReplaceTextInSmartArt(ByVal sa As SmartArt, ByVal targetStr As String, ByVal replaceStr As String) As Long
Dim nodeCount As Long
nodeCount = 0
Dim node As SmartArtNode
‘ SmartArtの全トップレベルノードを走査
For Each node In sa.AllNodes
nodeCount = nodeCount + ProcessSmartArtNode(node, targetStr, replaceStr)
Next node
ReplaceTextInSmartArt = nodeCount
End Function
‘ =========================================================================
‘ 関数名 : ProcessSmartArtNode
‘ 概要 : 個別のSmartArtNodeおよび子ノード（階層構造）を再帰的に処理する
‘ =========================================================================
Private Function ProcessSmartArtNode(ByVal node As SmartArtNode, ByVal targetStr As String, ByVal replaceStr As String) As Long
Dim hitCount As Long
hitCount = 0
On Error Resume Next
‘ ノードにテキストフレームが存在し、テキストが入力されている場合のみ処理
If Not node.TextFrame2 Is Nothing Then
If node.TextFrame2.HasText = msoTrue Then
Dim txtRange As TextRange2
Set txtRange = node.TextFrame2.TextRange
‘ 文字列が含まれているかチェックして置換
If InStr(1, txtRange.Text, targetStr, vbBinaryCompare) > 0 Then
‘ TextRange2のReplaceメソッドを使用
txtRange.Replace What:=targetStr, Replacement:=replaceStr, FullWord:=False, MatchCase:=msoFalse
hitCount = hitCount + 1
End If
End If
End If
On Error GoTo 0
‘ 【重要】子ノード（ChildNodes）の存在チェックと再帰呼び出し
‘ 組織図や階層型SmartArtの場合、子ノードが存在するため再帰的に潜る必要がある
If Not node.ChildNodes Is Nothing Then
If node.ChildNodes.Count > 0 Then
Dim childNode As SmartArtNode
For Each childNode In node.ChildNodes
hitCount = hitCount + ProcessSmartArtNode(childNode, targetStr, replaceStr)
Next childNode
End If
End If
ProcessSmartArtNode = hitCount
End Function
—
4. コードのアーキテクチャ解説と実務上の注意点
このコードは、単に動くだけでなく、大規模なプレゼンテーションファイルを安全に処理するためのモダンな設計思想を取り入れている。
1. `TextRange2` と `TextFrame2` の採用
現代のOffice VBA開発において、レガシーな `TextRange`（Office 2003以前の遺物）を使うべきではない。SmartArtや近年のシェイプが持つリッチなテキスト構造を正確に操作するためには、`TextRange2` および `TextFrame2` を使用する。これにより、フォント情報や高度な文字置換ロジックへの親和性が飛躍的に向上する。
2. 再帰処理（Recursion）による完全な網羅性
SmartArtの構造はフラットではない。例えば「組織図」や「階層構造」の場合、親ノードの下に子ノード、さらにその下に孫ノードが存在する。通常のループ（`For Each node in sa.AllNodes`）だけで十分なケースもあるが、一部の複雑なレイアウトでは `AllNodes` の列挙順序や階層の深さによって取りこぼしが発生するリスクがある。
上記コードでは、`node.ChildNodes` を明示的に再帰呼び出し（`ProcessSmartArtNode`）する設計にすることで、構造の深さに関係なく100%の網羅性を担保している。
3. データベース・ファイル連携を見据えた拡張性
実務において、置換前後の文字列をハードコーディングすることはあり得ない。このコードをベースとして発展させる場合、以下のような連携に拡張することが容易である。
- Excel連携: 置換リスト（A列に検索ワード、B列に置換ワード）を保持したExcelワークブックを開き、Dictionaryオブジェクトに読み込ませてからスライドを1回巡回するだけで、数十項目のマスターデータ一括置換にスケールアップできる。
- ログ出力: どのスライドのどのSmartArtで置換が発生したかをデバッグウィンドウ（`Debug.Print`）や外部CSVに吐き出すロジックを追加することで、監査証跡（コンプライアンス対応）を確保できる。
—
5. 総括
PowerPoint VBAにおけるSmartArtの攻略は、オブジェクトモデルの本質を理解しているかどうかのリトマス試験紙である。
「動けばいい」という場当たり的なコードは、レイアウトが崩れたり、特定のスライドでフリーズしたりという致命的なトラブルを実務の土壇場で引き起こす。型を厳正に吟味し、再帰処理と最新の `TextRange2` APIを駆使した強靭なアーキテクチャこそが、プロフェッショナルな業務自動化エンジニアの武器となる。
あなたのデスクトップにあるその巨大なプレゼンテーション資料も、このコードを組み込んだマクロを走らせれば、一瞬で、そして完璧に制圧されるはずだ。
