こんにちは！PowerPointの自動化の海原へようこそ。
マクロの記録ボタンを押して「動いたはいいけれど、中身が全然読めない……」と頭を抱えていませんか？
今回は、実務で最も頭を悩ませるポイントの一つである「SmartArt（スマートアート）」の内部テキストを、VBAで安全に巡回し、一括置換するテクニックを授けます。
通常のテキストボックスなら `Shape.TextFrame.TextRange.Text` で一発ですが、SmartArtは独立した「ブラックボックス（GroupShapes構造）」の中にテキストを隠し持っています。ここを丸裸にして自由自在に操れるようになると、PowerPoint VBAの基本はもうバッチリです。
優しく、かつプロの現場で通用する本質的なアプローチを一緒に紐解いていきましょう！
—
1. なぜSmartArtの置換は難しいのか？（オブジェクトモデルの罠）
PowerPointのスライド上にあるオブジェクトは、すべて `Slide.Shapes` というコレクションに属しています。しかし、SmartArtは単なる「文字の入れ物」ではなく、内部に幾重ものグループシェイプ構造を持っています。
一般的な「文字列置換マクロ」を走らせても、SmartArtの中だけは素通りされてしまい、「あれ？置換しきれてない……」という現象が起きます。
SmartArtを攻略する3つの鉄則
1. 種類の特定: `Shape.HasSmartArt` プロパティを使い、それが本当にSmartArtであるかを厳密に判定する。
2. ノードの巡回: `Shape.SmartArt.AllNodes` を使って、構造化されたノードを一つずつ舐めていく。
3. テキストフレームへのアプローチ: 各ノードの `TextFrame2` に対して文字列の読取・書き込みを行う。
この3ステップをコードに落とし込むことができれば、どんなに複雑な階層構造を持つSmartArtでも、一瞬でクレンジング（文字置換）できるようになります。
—
2. 実装コード：SmartArtテキスト一括置換エンジン
それでは、開発の現場でそのままコピペして使える実用コードを公開します。
アクティブなプレゼンテーションの全スライドを走査し、指定したキーワードを一括置換するマクロです。
Option Explicit
‘ ==============================================================================
‘ 概要: プレゼンテーション内の全スライドからSmartArtを検出し、
‘ 指定したキーワードを安全に一括置換するプロシージャ
‘ ==============================================================================
Public Sub ReplaceTextInSmartArt()
Dim sld As Slide
Dim shp As Shape
Dim targetText As String
Dim replaceText As String
‘ 【設定エリア】必要に応じて書き換えてください
targetText = “旧キーワード”
replaceText = “新キーワード”
If targetText = “” Then
MsgBox “置換元のキーワードが入力されていません。”, vbExclamation, “中断”
Exit Sub
End If
Dim replacedCount As Long
replacedCount = 0
‘ 1. すべてのスライドをループ
For Each sld In ActivePresentation.Slides
‘ 2. スライド上のシェイプをループ
For Each shp In sld.Shapes
‘ 3. SmartArtオブジェクトであるかを厳密に判定
If shp.HasSmartArt = msoTrue Then
‘ 4. SmartArt内部のノードを巡回して置換を実行
Call ProcessSmartArtNodes(shp.SmartArt, targetText, replaceText, replacedCount)
End If
Next shp
Next sld
‘ 完了通知
MsgBox “SmartArtの置換が完了しました！” & vbCrLf & _
“置換回数: ” & replacedCount & ” 箇所”, vbInformation, “処理完了”
End Sub
‘ ==============================================================================
‘ 内部プロシージャ: SmartArtの全ノードを再帰的（または平坦に）巡回し置換する
‘ ==============================================================================
Private Sub ProcessSmartArtNodes(ByRef targetSmartArt As SmartArt, ByVal tgtStr As String, ByVal repStr As String, ByRef count As Long)
Dim node As SmartArtNode
Dim nodeText As String
‘ AllNodesコレクションを使って、階層化されたすべてのノードを走査
For Each node In targetSmartArt.AllNodes
‘ ノードにテキストフレームが存在するか確認
If Not node.TextFrame2 Is Nothing Then
With node.TextFrame2.TextRange
‘ 該当テキストが含まれているかチェック
If InStr(1, .Text, tgtStr, vbTextCompare) > 0 Then
‘ Replace関数で文字列を置換
.Text = Replace(.Text, tgtStr, repStr)
count = count + 1
End If
End With
End If
Next node
End Sub
—
3. コードの解説：ここがプロの技
初心者のうちは「とりあえず動くコード」で満足してしまいがちですが、実務で使うためには「安全性の担保」と「適切なオブジェクトの選択」が不可欠です。
① `shp.HasSmartArt = msoTrue` による厳密な型チェック
通常の図形や画像に対してSmartArt用のプロパティを誤って操作すると、VBAは容赦なく実行時エラー（エラー438: オブジェクトは、このプロパティまたはメソッドをサポートしていません）を吐き出します。
必ず `HasSmartArt` で判定フィルターを一枚噛ませるのが、エラーを出さないエンジニアの鉄則です。
② `TextFrame2` と `TextRange` の活用
現代のPowerPoint VBA（PowerPoint 2007以降）では、従来の `TextFrame` よりもリッチな書式を保持できる `TextFrame2` を使うのがデファクトスタンダードです。SmartArtのノード操作においても、`TextFrame2.TextRange.Text` を経由することで、文字化けやレイアウト崩れを防ぎながら安全にテキストを書き換えることができます。
—
4. 陥りやすい罠とトラブルシューティング
実際にこのコードを運用する中で、つまずきやすいポイントを先回りして解説しておきます。
- Q: 「置換されたはずなのに、見た目が変わらない」現象が起きる
- 原因: SmartArtのレイアウト（図表の種類）によっては、文字数が多すぎてボックスからはみ出している場合があります。
- 対策: テキスト置換後にフォントサイズが自動調整される設定になっているか確認してください。基本的には `TextFrame2` 経由であれば自動調整の恩恵を受けられますが、極端な長文への置換はレイアウト崩れの原因になるため注意が必要です。
- Q: グループ化された図形の中にあるSmartArtがヒットしない
- 原因: `sld.Shapes` は最クローズドな階層しか見ていないため、グループ化（Group）された奥底にあるSmartArtはスルーされてしまいます。
- 対策: 本格的な業務自動化ツールを作る場合は、グループシェイプを再帰的に掘り下げる「再帰関数（Recursive Function）」を組む必要があります。（今回は基本のステップとして単体SmartArtの網羅に絞っています）
—
まとめ
今回は、PowerPoint VBAにおける難所の一つ「SmartArtのテキスト一括置換」をテーマに、オブジェクトモデルの正しい攻略法をお伝えしました。
- SmartArtは `HasSmartArt` で厳密にキャッチする
- 内部のテキストは `AllNodes` と `TextFrame2` で操作する
- エラーハンドリングを意識して堅牢なマクロを書く
ここをクリアできたあなたなら、もう「マクロの記録の奴隷」ではありません。自分の手でビジネス文書の構造を支配する、立派なVBAエンジニアです。
日々の退屈なコピペ作業はマクロにすべて任せて、あなたしか生み出せないクリエイティブな仕事に集中しましょう。それでは、次回の極限知見でお会いしましょう！
