こんにちは。自動化の世界へようこそ。
PowerPoint VBAを触り始めたばかりの多くの方が、ある日突然直面する「絶望」があります。それが、`Slide.CustomLayout`を切り替えた瞬間に、丁寧に作り込んだスライドが真っ白にリセットされる現象です。
「マクロの記録」に頼っているうちは、この仕様の壁は越えられません。しかし、オブジェクトのライフサイクルを理解すれば、この「破壊的なレイアウト変更」を「魔法の移行」に変えることができます。
今日は、伝説的な自動化エンジニアとして、あなたのコードを一段上のレベルへ引き上げる秘伝のロジックを伝授します。
—
なぜレイアウト変更でデータが消えるのか？
PowerPointにおいて、`CustomLayout`を差し替えるという行為は、単なる見た目の変更ではありません。スライドが参照している「ひな形（テンプレート）」をすげ替える行為です。
PowerPointのエンジンは、新しいレイアウトに合致しないプレースホルダーや、紐付けが不明確なシェイプを「不要なゴミ」と見なし、問答無用で削除します。我々エンジニアに必要なのは、「削除される前に、シェイプの情報を一時退避させ、移行後に再構築（または再紐付け）する」という賢い立ち回りです。
—
移行の極意：3ステップ・アルゴリズム
ただ闇雲に操作してはいけません。以下の手順をコードに落とし込みます。
1. メタデータ抽出: 既存シェイプの座標、テキスト、名前、タイプを「辞書（Dictionary）」に退避。
2. レイアウト差し替え: ここで一度、破壊的変更を許容する。
3. オブジェクト復元: 退避させた情報を新しいレイアウト上に再描画、またはプレースホルダーへ流し込む。
—
実践コード：安全なレイアウト移行ロジック
このコードは、スライド内の全てのシェイプを一度スナップショットとして保持し、レイアウト変更後に「名前」をキーにして復元を試みる汎用的な設計です。
‘ ※参照設定: Microsoft Scripting Runtime を追加推奨
Sub SafeLayoutMigration(targetSlide As Slide, newLayout As CustomLayout)
Dim shp As Shape
Dim dict As Object
Set dict = CreateObject(“Scripting.Dictionary”)
‘ 1. 退避処理：既存シェイプの情報を記憶する
For Each shp In targetSlide.Shapes
‘ シェイプ名やテキストをキーと値として保存
‘ 独自シェイプを識別するために「Name」プロパティを事前に付けておくのがコツ
dict.Add shp.Name, shp.TextFrame.TextRange.Text
Next shp
‘ 2. 破壊的変更：レイアウトを差し替える
targetSlide.CustomLayout = newLayout
‘ 3. 復元処理：新しいレイアウト上でシェイプを探し、情報を戻す
For Each shp In targetSlide.Shapes
If dict.Exists(shp.Name) Then
On Error Resume Next ‘ プレースホルダーの制限を回避するため
shp.TextFrame.TextRange.Text = dict(shp.Name)
On Error GoTo 0
End If
Next shp
MsgBox “移行完了。情報の断絶を防ぎました。”
End Sub
—
初学者が必ず陥る罠と回避策
1. `Name`プロパティの重要性
PowerPointのデフォルトのシェイプ名は `TextBox 1` や `Rectangle 5` といった味気ないものです。これに頼ってはいけません。移行前に、自分だけの識別子（例: `MainTitle_01`）を`.Name`プロパティに割り当てておく習慣をつけてください。これが「自動化の守護神」となります。
2. プレースホルダーの「読み取り専用」エラー
新しいレイアウトのプレースホルダーには、書式設定の制限がかかっている場合があります。`On Error Resume Next` を適切に使い、書き込めないシェイプは無視するような「強靭なエラーハンドリング」を意識しましょう。
—
最後に：エンジニアとしての視点
レイアウト移行は、単なるVBAの操作ではなく、「情報の整合性を維持するためのデータ移行プロジェクト」です。
今回紹介したロジックは氷山の一角ですが、ここをクリアすれば「マクロの記録」で生成された脆弱なコードからは完全に卒業です。次は、スライドのメタデータ（タグ機能）を使って、もっとスマートにシェイプを管理する方法を学んでみてください。
「動けばいい」コードから「壊れない」コードへ。その一歩を、今日ここから踏み出しましょう。応援していますよ。
