【実務中級】PowerPoint VBA：SmartArtの内部構造を完全掌握し、テキストを一括置換する極限の自動化術
エンタープライズ環境におけるプレゼンテーション資料の統制、あるいはM&Aや大規模プロジェクトに伴う機密情報のクレンジングにおいて、手作業による資料のしらみつぶしなチェックはシステム管理者のリソースを不当に奪う悪しき慣習である。
特に、通常の `Shape.TextFrame` では一切捕捉できない「SmartArt」オブジェクトの存在は、多くのVBAエンジニアを絶望の淵に追いやってきた。SmartArtは単なるテキストボックスの集合体ではなく、独自のXMLスキーマと複雑なグループ化の階層構造（`GroupShape`）を持つブラックボックスだからだ。
今回は、PowerPoint VBAのオブジェクトモデルの深層に切り込み、`Shape.HasSmartArt` プロパティの判定から、内部ノード（`SmartArtNode`）の再帰的走査、そしてメモリ効率を極限まで高めたテキストの一括置換アルゴリズムを実装する。
—
1. SmartArtオブジェクトの構造的特異性と判定の罠
多くの開発者が陥る最初の罠は、SmartArtを通常のシェイプと同様に扱おうとして型ミスマッチ（エラー 13）を引き起こすことだ。
PowerPointの `Shapes` コレクションに存在するシェイプがSmartArtであるかを正確に判定するには、以下の2段階のガードが必要となる。
1. `HasTextFrame` や `Type` の判定ではなく、`Shape.HasSmartArt` プロパティが `msoTrue` であること。
2. `Shape.SmartArt` プロパティが有効なインスタンスを返すこと（COMの参照切れや保護されたグループの考慮）。
これらを無視して直接 `TextEffect` や `TextFrame` にアクセスしようとすると、COM例外が発生し、自動化スクリプトは容赦なくクラッシュする。
—
2. 再帰的走査とメモリ最適化の設計思想
SmartArtの内部は、`SmartArt.Nodes` コレクションによってツリー構造を形成している。階層がネストしている場合（組織図やプロセス図の一部など）、親ノードから子ノード（`SubNodes`）へ再帰的に潜り込むアルゴリズムが不可欠となる。
また、大規模なプレゼンテーション（100スライド超、各スライドに複数のSmartArtが存在する環境）を処理する場合、VBAの不完全なガベージコレクションに起因するメモリリークは致命的な問題となる。
オブジェクト変数は必ず明示的に `Nothing` を代入し、COMの参照カウントを確実にデクリメントしなければならない。
—
3. 実装コード：SmartArtテキスト一括置換エンジン
以下のコードは、アクティブプレゼンテーション内の全スライドを巡回し、SmartArtの内部テキストに含ま指定キーワードを安全かつ高速に置換する実用プロシージャである。
Option Explicit
‘ =========================================================================
‘ 模块名: clsSmartArtCleaner (または標準モジュール)
‘ 概要: PowerPointのSmartArt内部テキストを再帰的に走査し、一括置換を行う
‘ =========================================================================
Public Sub ExecuteSmartArtCleansing()
Dim targetPresentation As Presentation
Set targetPresentation = ActivePresentation
Dim targetKeyword As String
Dim replaceKeyword As String
‘ 実務上の運用を想定し、置換前後の文字列を変数定義
targetKeyword = “旧プロジェクト名”
replaceKeyword = “新統合プロジェクト”
Dim slideCounter As Long
Dim replacedCount As Long
replacedCount = 0
‘ パフォーマンス向上のため画面描画を停止
With Application
.ScreenUpdating = False
.DisplayAlerts = ppAlertsNone
End With
On Error GoTo ErrorHandler
Dim sld As Slide
For Each sld In targetPresentation.Slides
replacedCount = replacedCount + ProcessShapesInContainer(sld.Shapes, targetKeyword, replaceKeyword)
Next sld
MsgBox “SmartArtのクレンジングが完了しました。” & vbCrLf & _
“総置換ノード数: ” & replacedCount & ” 件”, vbInformation, “自動化完了”
CleanUp:
‘ 画面描画の復元とメモリ解放
With Application
.ScreenUpdating = True
.DisplayAlerts = ppAlertsAll
End With
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “致命的エラー”
Resume CleanUp
End Sub
‘ =========================================================================
‘ 役割: シェイプコレクションを走査し、SmartArtまたはグループシェイプを再帰処理
‘ =========================================================================
Private Function ProcessShapesInContainer(ByVal shapesCol As Shapes, ByVal target As String, ByVal rep As String) As Long
Dim shp As Shape
Dim count As Long
count = 0
For Each shp In shapesCol
‘ 1. SmartArtオブジェクトの判定と処理
If shp.HasSmartArt = msoTrue Then
count = count + TraverseSmartArtNodes(shp.SmartArt.Nodes, target, rep)
‘ 2. グループ化されたシェイプの中にSmartArtが埋め込まれている場合の再帰処理
ElseIf shp.Type = msoGroup Then
count = count + ProcessShapesInContainer(shp.GroupItems, target, rep)
End If
Next shp
ProcessShapesInContainer = count
End Function
‘ =========================================================================
‘ 役割: SmartArtのノードツリーを再帰的に巡回し、テキストを置換する
‘ =========================================================================
Private Function TraverseSmartArtNodes(ByVal nodes As SmartArtNodes, ByVal target As String, ByVal rep As String) As Long
Dim node As SmartArtNode
Dim count As Long
count = 0
For Each node In nodes
‘ ノードがテキストフレームを持っている場合のみ処理
If Not node.TextFrame2 Is Nothing Then
If node.TextFrame2.HasText = msoTrue Then
If InStr(1, node.TextFrame2.TextRange.Text, target, vbTextCompare) > 0 Then
‘ 文字列の置換実行
node.TextFrame2.TextRange.Text = Replace(node.TextFrame2.TextRange.Text, target, rep)
count = count + 1
End If
End If
End If
‘ 子ノード（SubNodes）が存在する場合は再帰的に処理
If node.Nodes.Count > 0 Then
count = count + TraverseSmartArtNodes(node.Nodes, target, rep)
End If
Next node
TraverseSmartArtNodes = count
End Function
—
4. コードの深層解説とアーキテクチャの要点
`TextFrame2` と `TextRange` の活用
レガシーな `TextFrame` ではなく、現代のOfficeアーキテクチャに最適化された `TextFrame2` を採用している。これにより、フォントのレンダリングエンジンやOpenXML形式との親和性が担保され、置換処理時に予期せぬ文字化けやスタイル崩壊を防ぐ。
グループシェイプ（`msoGroup`）への対応
実務で作成されるパワポ資料の多くは、SmartArtがさらに別の図形や枠線とグループ化されているケースが見受けられる。本コードでは `shp.Type = msoGroup` を検知した瞬間に `shp.GroupItems` を親と同じ関数へ再帰的に投入するため、どれほど深くネストされた構造であっても取りこぼしが発生しない。
`ScreenUpdating` による爆発的な高速化
プレゼンテーションの操作をVBAで行う際、GUIの描画コストはパフォーマンス低下の最大の要因となる。処理の冒頭で `Application.ScreenUpdating = False` を宣言することで、OSのリソースを純粋なオブジェクト操作とメモリ上の文字列置換に集中させ、数秒単位の処理時間短縮を実現している。
—
総括
PowerPoint VBAにおける真のエンジニアリングとは、単に動くコードを書くことではない。オブジェクトモデルの制約を正確に理解し、メモリ管理と例外耐性を極限まで高めた堅牢な構造を構築することにある。
今回解説したSmartArtの再帰的走査ロジックは、単なるテキスト置換に留まらず、社内ニッチなドキュメント監査ツールや、多言語展開（ローカライズ）の自動化基盤としても応用可能である。レガシーな手作業の時代に別れを告げ、完全自動化されたモダンな文書管理体制をあなたの手で構築してほしい。
