こんにちは！PowerPoint VBAの世界へようこそ。
マクロの記録ボタンを押して動かすだけのレベルから一歩抜け出し、「本物の自動化エンジニア」への階段を登り始めたあなたへ、今日はとても実践的で、かつ少しディープな技術をお伝えします。
現場でよくあるこんなお悩み、ありませんか？
- 「社名が変わったので、プレゼン資料全体にあるSmartArtの中のテキストも一括で書き換えたいのに、通常の置換ではヒットしない…」
- 「普通のテキストボックスなら簡単なのに、SmartArtを相手にすると中の文字がどこに隠れているのか分からない！」
そうなんです。PowerPointのSmartArtは、見た目はただの図解ですが、内部構造はひとつの「独立したブラックボックス（XMLの塊）」のような特殊なオブジェクト。通常のテキスト操作のロジックでは太刀打ちできません。
でも、ここをクリアすれば、あなたのPowerPoint VBAスキルは一気に「中級者の壁」を突破します。
今日は、優しく、そして本質的なアプローチで、SmartArtの奥深くまで潜り込み、テキストを完全制圧する方法を一緒に見ていきましょう。ここをクリアすれば、もう怖くありませんよ！
—
1. なぜSmartArtのテキスト置換は難しいのか？
まずは敵を知ることから始めましょう。
PowerPointのスライド上にある要素は、すべて `Slide.Shapes` というコレクション（入れ物）の中に格納されています。
普通のテキストボックスであれば、以下のようなコードですぐに中身を触れます。
‘ 普通のテキストボックスの例
Dim shp As Shape
Set shp = ActivePresentation.Slides(1).Shapes(1)
shp.TextFrame.TextRange.Text = “書き換えたい文字”
しかし、SmartArtを同じように扱おうとすると、こう言われます。
> 「おいおい、このシェイプはSmartArtなんだから、直接TextFrameなんて持ってないよ！」（実行時エラー）
SmartArtは、内部に `GroupShape` や `DiagramNode` という独自の階層構造を持っています。つまり、SmartArtのテキストを操作するには、「SmartArtを正確に見つけ出し、その内部のノード（階層）を再帰的に（もれなくすべて）巡回する」という技術が必要になるのです。
—
2. 【極限の知見】SmartArtの判定と安全なアクセス
では、どうやって「それがSmartArtである」と判定し、中身にアクセスするのでしょうか。
ここが今回の最大のポイントです。
VBAには、シェイプの種類を判定する `HasTextFrame` や `Type` プロパティがありますが、SmartArtを確実に捉えるには `HasSmartArt` プロパティ を使います。
さらに、SmartArtの内部テキストを操作するためには、`Shape.SmartArt.AllNodes` というプロパティを使います。これにより、箇条書きの階層構造（親子関係）に関係なく、すべてのテキストノードをリストのように平坦に、あるいは構造的に取得できるのです。
—
3. 実装コード：SmartArtテキスト一括置換マクロ
それでは、開発の現場でそのままコピペして使える、実用的なコードを公開します。
このコードは、アクティブなプレゼンテーション内のすべてのスライドを走査し、SmartArtを見つけたら指定したキーワードを別の文字列に一括置換するプロシージャです。
Option Explicit
‘ メイン処理：プレゼン全体のSmartArtから特定キーワードを置換する
Sub ReplaceTextInSmartArtAllSlides()
Dim sld As Slide
Dim shp As Shape
Dim targetText As String
Dim replaceText As String
Dim totalCount As Long
‘ 置換前後の文字列を指定（必要に応じて変更してください）
targetText = “旧株式会社”
replaceText = “新株式会社”
totalCount = 0
‘ 念のため画面描画を停止して処理速度を爆発的に上げる
Application.ScreenUpdating = False
‘ 1. すべてのスライドをループ
For Each sld In ActivePresentation.Slides
‘ 2. スライド内のすべてのシェイプをループ
For Each shp In sld.Shapes
‘ 【重要】それがSmartArtであるかを正確に判定する
If shp.HasSmartArt Then
‘ 3. SmartArt内部のテキストを置換するサブルーチンを呼び出す
totalCount = totalCount + ReplaceInSmartArtNode(shp.SmartArt, targetText, replaceText)
End If
Next shp
Next sld
‘ 画面描画を復元
Application.ScreenUpdating = True
‘ 完了メッセージ
MsgBox “処理が完了しました！” & vbCrLf & _
“置換されたSmartArtノード数: ” & totalCount & ” 箇所”, vbInformation, “SmartArt一括置換”
End Sub
‘ サブルーチン：SmartArtの各ノード（内部テキスト）を走査して置換を行う
Private Function ReplaceInSmartArtNode(smartArtObj As SmartArt, ByVal targetStr As String, ByVal replaceStr As String) As Long
Dim node As SmartArtNode
Dim count As Long
count = 0
‘ SmartArtのすべてのノードを巡回
‘ ※AllNodesを使うことで、入れ子になった階層も漏れなく取得できます
For Each node In smartArtObj.AllNodes
‘ ノードにテキストフレームが存在し、かつ文字列が含まれている場合
If Not node.TextFrame2 Is Nothing Then
If InStr(node.TextFrame2.TextRange.Text, targetStr) > 0 Then
‘ 文字列の置換を実行
node.TextFrame2.TextRange.Text = Replace(node.TextFrame2.TextRange.Text, targetStr, replaceStr)
count = count + 1
End If
End If
Next node
‘ 置換した回数を返す
ReplaceInSmartArtNode = count
End Function
—
4. コードの解説と「エンジニアのこだわりポイント」
ここで、上記のコードがなぜ優秀なのか、プロの視点からいくつか解説しておきます。
① `Application.ScreenUpdating = False` の魔法
PowerPoint VBAにおいて、スライドやシェイプを大量にループ処理する際、画面がちらつき、処理が劇的に遅くなります。冒頭でこれを `False` にし、最後に `True` に戻すことで、バックグラウンドで高速に処理を終わらせることができます。実務では必須のテクニックです。
② `shp.HasSmartArt` による厳密なエラー回避
もしこの判定を入れずに `shp.SmartArt` にアクセスしようとすると、通常の図形や画像にあたった瞬間、容赦なくVBAがエラーで停止します。「処理する前に、そもそもその資格（SmartArtであること）を持っているか確認する」というのは、堅牢なプログラムを作る上での鉄則です。
③ `TextFrame2` と `TextRange` の活用
現代のPowerPoint（Office 2007以降）では、従来の `TextFrame` よりも、より高度なフォント設定や図形効果をサポートする `TextFrame2` が主流です。SmartArtの内部テキストは `TextFrame2.TextRange.Text` で安全に読み書きができます。
—
5. 陥りやすい罠とエラー対策
実際にこのコードを運用する際、初心者が陥りがちなポイントをいくつかシェアしておきます。
- 「グループ化された図形」の中にあるSmartArt
今回のコードはスライドの直下（`sld.Shapes`）をループしていますが、もしSmartArtが「グループ化された図形」の内部に隠れている場合、このままでは検知できません。極限の環境（複雑なレイアウトの資料）では、グループ化を再帰的に分解・走査するロジックが必要になります。（※まずは今回の基本形をマスターしてから挑戦してみてください！）
- 文字のフォントやサイズがリセットされてしまう？
`node.TextFrame2.TextRange.Text = “新しい文字”` と書き換えると、テキストの「文字列」自体は変わりますが、SmartArt側が自動でフォントサイズを調整するため、レイアウトが崩れることは基本的にありません。ただし、文字列の一部だけの色を変えていたような特殊なケースでは、テキスト全体の置換によって装飾がリセットされることがあるので注意してください。
—
まとめ：ここをクリアすればPowerPoint VBAは怖くない！
いかがでしたでしょうか？
今回は、普通のテキストボックスとは一味違う「SmartArt」という特殊なオブジェクトをターゲットに、安全に判定し、内部のテキストを書き換えるテクニックを解説しました。
- `shp.HasSmartArt` で安全に門番を突破する
- `SmartArt.AllNodes` で複雑な階層構造をフラットに巡回する
- 再帰的な発想でスマートにコードを分割する
このアプローチが身につけば、どんなに複雑なテンプレートや社内資料であっても、一瞬でクレンジングや一括置換ができるようになります。手作業で何百枚ものスライドを目視チェックしていた悪夢から、あなたを解放してくれる強力な武器になるはずです。
ここをクリアしたあなたなら、もうPowerPoint VBAの基礎はバッチリです！
ぜひ、実際の業務資料で試してみてくださいね。次回の応用編もお楽しみに！
