【PowerPoint VBAを掌握する極限の知見】SmartArtの深淵：内部テキストを再帰的かつ安全に一括置換する実務エンジン
レガシーなPowerPoint資産の大規模改修、あるいはM&Aに伴う全社的な社名・ブランドキーワードの一括置換。この泥臭くもクリティカルな要件に直面したとき、多くのVBAエンジニアは絶望する。
通常のテキストボックス（`Shape.TextFrame`）であれば数行のループで処理できるものが、SmartArt（`Shape.HasSmartArt = msoTrue`）が絡んだ途端、コードは沈黙し、あるいは「オブジェクトが見つからない」という冷徹な実行時エラーを吐く。
SmartArtは、単なる図形の集合体ではない。内部に独自のDOM（ドキュメントオブジェクトモデル）構造を持つ、PowerPoint内部の「ブラックボックス」である。
今回は、このSmartArtの迷宮を安全に踏破し、内部のテキスト階層を完全に掌握して一括置換を完遂するための、極限のVBAテクニックを授けよう。
—
1. SmartArtオブジェクトモデルの構造的罠
通常のシェイプ階層とSmartArtのそれとは、根本的に血統が異なる。
- `Shape.TextFrame` の不在: SmartArtの親シェイプ自体には、直接テキストを格納するフレームが存在しないケースが多い。
- `SmartArt.AllNodes` コレクション: テキスト実体は、`SmartArtNode` オブジェクトの階層ツリーとして保持される。
- 再帰的構造: 組織図やプロセス図などのSmartArtは、ノードが子ノード（`SubNodes`）を持つ多重構造を形成する。フラットなループでは、深部にあるテキストを取りこぼす。
これをハックするためには、「ノードの再帰的走査（Recursion）」と、COMコンポーネント特有の「メモリ枯渇を防ぐ参照解放の徹底」が不可欠となる。
—
2. 実装：SmartArtテキスト再帰置換エンジン
以下に提供するコードは、実務の現場で即座に稼働しうる堅牢性を持たせたプロシージャだ。単なる文字列の置換だけでなく、オブジェクトのライフサイクルを厳密に管理する設計にしている。
Option Explicit
‘ ==============================================================================
ニッチかつクリティカルな実務要件に応える SmartArt テキスト一括置換エンジン
‘ ターゲット: ActivePresentation 全スライドの SmartArt 内部ノード
‘ ==============================================================================
Sub ExecuteSmartArtDeepSearchAndReplace()
Dim sld As Slide
Dim shp As Shape
Dim targetCount As Long
targetCount = 0
‘ 画面描画を停止し、COMの描画スレッドを解放することで圧倒的なパフォーマンス向上とチラつき防止を図る
Application.ScreenUpdating = False
On Error GoTo ErrorHandler
For Each sld In ActivePresentation.Slides
For Each shp In sld.Shapes
‘ 1. シェイプが SmartArt を保持しているかを厳密に判定
If shp.HasSmartArt = msoTrue Then
‘ 2. 再帰的プロシージャに SmartArt のノード群を渡す
Call ProcessSmartArtNodes(shp.SmartArt.AllNodes, “旧社名株式会社”, “新社名株式会社”, targetCount)
End If
Next shp
Next sld
Application.ScreenUpdating = True
MsgBox “SmartArtの深層スキャンが完了しました。” & vbCrLf & _
“置換されたノード総数: ” & targetCount & ” 箇所”, vbInformation, “SmartArt Engine”
Exit Sub
ErrorHandler:
Application.ScreenUpdating = True
MsgBox “予期せぬエラーが発生しました: ” & Err.Description & ” (Line: ” & Erl & “)”, vbCritical
End Sub
‘ ==============================================================================
‘ [再帰関数] SmartArtNode コレクションを深さ優先で走査し、テキストを置換する
‘ ==============================================================================
Private Sub ProcessSmartArtNodes(ByVal nodes As SmartArtNodes, ByVal findStr As String, ByVal replaceStr As String, ByRef counter As Long)
Dim node As SmartArtNode
Dim textFrame As TextFrame
Dim nodeText As String
For Each node In nodes
‘ ノードがテキストフレームを持っているか確認
On Error Resume Next
Set textFrame = node.TextFrame
On Error GoTo 0
If Not textFrame Is Nothing Then
If textFrame.HasText Then
nodeText = textFrame.TextRange.Text
‘ 文字列の部分一致置換（必要に応じて完全一致や正規表現に拡張可能）
If InStr(1, nodeText, findStr, vbTextCompare) > 0 Then
textFrame.TextRange.Text = Replace(nodeText, findStr, replaceStr)
counter = counter + 1
End If
End If
End If
‘ 子ノード（SubNodes）が存在する場合は再帰的に潜る
If node.Nodes.Count > 0 Then
Call ProcessSmartArtNodes(node.Nodes, findStr, replaceStr, counter)
End If
‘ 厳格なメモリ管理：オブジェクト変数を明示的に破棄し、VBA特有のCOMメモリリークを防ぐ
Set textFrame = Nothing
Next node
End Sub
—
3. チーフアーキテクトが解説する「コードの急所」
このコードが単なるサンプルと一線を画す、実務レベルの担保ポイントを解説する。
① `Application.ScreenUpdating = False` による高速化とクラッシュ回避
PowerPoint VBAにおいて、スライドやシェイプをプログラムから操作する際、背後でGUIの再描画走走査が走ると、処理速度が数分の一に低下するだけでなく、メモリリーク起因の強制終了（Access Violation）リスクが高まる。必ず処理の囲い込み（Enclosure）を行い、エラーハンドリング内でも確実に `True` に戻すこと。
② COMオブジェクトのライフサイクル管理（メモリ最適化）
ループ内でオブジェクト変数（`node` や `textFrame`）を使用する場合、VBAのガベージコレクションは非常にルーズである。特に多階層のSmartArtノードを再帰処理する際、`Set textFrame = Nothing` による明示的な参照解放を怠ると、数千枚のスライドを処理する過程でメモリ肥大化（Bloat）を引き起こす。
本コードでは、再帰ループの各イテレーションの終端で確実にポインタを解放する設計をとっている。
③ `node.TextFrame` 取得時のエラーハンドリング
SmartArtのレイアウト（特にマトリックスやピラミッドの一部）によっては、特定のノード構造がテキストフレームを物理的に持たない特殊な挙動を示すことがある。ここを `On Error Resume Next` でガードせずにアクセスすると、容赦なく「実行時エラー 438: オブジェクトは、このプロパティまたはメソッドをサポートしていません」が発生し、バッチ処理が途中で頓挫する。実務システムでは「例外の握りつぶし」ではなく「安全なスキップ」が正義となる。
—
4. ささらなる高みへ：システム間連携と大規模運用
もし、このVBAマクロを単体のプレゼンテーション単体ではなく、「社内ファイルサーバーにある数千の `.pptx` ファイルを一括バッチ処理する基幹システム」の一部として組み込む場合、PowerPointのバックグラウンド起動（ヘッドレス実行）と、COMプロセスの厳格なゾンビ化防止（`Quit` メソッドとプロセスの完全破棄）が必要となる。
VB.NETやC#（VSTO / OpenXML SDK）へ移行するのがアーキテクチャの正道ではあるが、現場のインフラ制約により「どうしてもVBAで完結させなければならない」という極限の状況下では、今回解説した「再帰的走査・エラーガード・明示的メモリ解放」の3原則が、あなたのコードを沈没から救う唯一のアンカーとなる。
妥協なきコードを書け。それがプロフェッショナルだ。
