「リンク切れ」の恐怖から解放される。PowerPoint VBAで実現する、真のポータビリティ（相対パス化）の極意
「完成したプレゼン資料をクライアントに送った直後、『グラフのデータが更新できません』というメールが届く……」
もしあなたが、これまで一度でもこの経験があるなら、あなたは「マクロの記録」という魔法の杖を卒業し、「オブジェクトの構造」を理解するエンジニアへの階段を登る準備ができています。
こんにちは。今日は、PowerPoint VBAにおける「ポータビリティ（持ち運びやすさ）」という、実務において最も泥臭く、かつ最も価値のあるテーマについてお話ししましょう。
なぜ、あなたのグラフは「リンク切れ」を起こすのか？
原因はシンプルです。PowerPointに貼り付けられたExcelグラフなどのリンクは、デフォルトでは「絶対パス」で記録されているからです。
- あなたのPC: `C:\Users\YourName\Documents\Project\Data.xlsx`
- 相手のPC: `C:\Users\Guest\Documents\Project\Data.xlsx`
この「`YourName`」の部分が食い違うだけで、PowerPointは「データが見つかりません！」と悲鳴を上げます。これを防ぐには、パスを「相対パス（プレゼン資料からの相対的な位置）」に書き換える必要があります。
しかし、PowerPointの標準機能には「すべてのリンクを相対パスに一括変換する」というボタンは存在しません。だからこそ、私たちの出番なのです。
掌握すべきオブジェクトモデルの「階層」
コードを書く前に、PowerPointという宇宙の構造を理解しましょう。プログラミングとは、巨大な構造の中から目的の「部品」を特定し、その「プロパティ（属性）」を書き換える作業です。
今回のターゲットとなる階層は以下の通りです。
1. Presentation（プレゼンテーション）: ファイル全体
2. Slide（スライド）: 各ページ
3. Shape（シェイプ）: スライド上の図形、画像、グラフ
4. LinkFormat（リンクフォーマット）: ここが重要！ シェイプが持つ「リンクに関する情報」を司るオブジェクト
私たちは、全スライドの全シェイプを巡回し、`LinkFormat` を持っているものを見つけ出し、その `SourceFullName`（ソースのフルパス）を書き換える、というミッションに挑みます。
実装：相対パス変換マクロ
それでは、魂を込めて書いたコードを見ていきましょう。このコードは、単にパスを書き換えるだけでなく、「プレゼン資料と同じフォルダ内にあるExcelファイル」を自動で見つけ出し、リンクを再構築するように設計しています。
Option Explicit
''' <summary>
''' プレゼンテーション内の全ての外部リンクを、
''' 資料と同じフォルダを基準とした相対的な関係に再構成する。
''' </summary>
Sub ConvertLinksToRelative()
Dim pptPres As Presentation
Dim pptSlide As Slide
Dim pptShape As Shape
Dim currentPath As String
Dim linkPath As String
Dim newLinkPath As String
Dim linkCount As Integer
Set pptPres = ActivePresentation
' 1. プレゼンテーションが保存されているパスを取得
' 保存されていない場合は、相対パスの概念が作れないためエラーとする
currentPath = pptPres.Path
If currentPath = "" Then
MsgBox "先にプレゼンテーションを保存してください。", vbCritical, "エラー"
Exit Sub
End If
' パスの末尾に必ず "\" が付くように調整（FileSystemObjectを使う方法もあるが、軽量化のため）
If Right(currentPath, 1) <> "\" Then currentPath = currentPath & "\"
linkCount = 0
' 画面更新を止めることはPowerPointでは直接できないが、
' 処理を高速化するために、無駄なSelect操作を避ける設計にする
On Error Resume Next ' リンク情報を持たないシェイプでエラーが出るのを防ぐ
' 2. 全スライドをループ
For Each pptSlide In pptPres.Slides
' 3. 各スライド内の全シェイプをループ
For Each pptShape In pptSlide.Shapes
' 4. シェイプが「リンク」を持っているか判定
' msoLinkedChart (グラフ) や msoLinkedOLEObject (Excel図形等) を対象とする
If pptShape.Type = msoLinkedChart Or pptShape.Type = msoLinkedOLEObject Then
' リンク先のフルパスを取得
linkPath = pptShape.LinkFormat.SourceFullName
' 5. リンク先が「現在のプレゼンと同じフォルダ」または「そのサブフォルダ」にあるか判定
' ここでは、絶対パスの中に現在のパスが含まれているかをチェックする
If InStr(1, linkPath, currentPath, vbTextCompare) > 0 Then
' 6. パスの書き換えロジック
' 絶対パスから、現在のフォルダ部分を削ぎ落とし、相対的なパス構造を再構築する
' ※PowerPointのLinkFormat.SourceFullNameは、内部的に
' フルパスで保持される性質があるため、
' 「同じフォルダ内にある」ことを確認した上で、接続を再確立させる。
' 実際には、SourceFullNameに相対パスを代入しても、
' PowerPointが賢くフルパスとして解釈し直してくれる特性を利用する。
' リンク先ファイル名だけを抽出
Dim fileName As String
fileName = Mid(linkPath, InStrRev(linkPath, "\") + 1)
' 新しいパスを構築（現在のフォルダ + ファイル名）
newLinkPath = currentPath & fileName
' リンクを更新
pptShape.LinkFormat.SourceFullName = newLinkPath
linkCount = linkCount + 1
End If
End If
Next pptShape
Next pptSlide
On Error GoTo 0
' 7. 結果報告
If linkCount > 0 Then
MsgBox linkCount & " 個のリンクを再設定しました。" & vbCrLf & _
"Excelファイルがプレゼン資料と同じフォルダにあることを確認してください。", vbInformation, "完了"
Else
MsgBox "書き換え対象となる、同じフォルダ内のリンクは見つかりませんでした。", vbExclamation, "通知"
End If
End Subプロの視点：このコードの「急所」を解説する
このコードを単なる「コピペ用ツール」で終わらせないために、エンジニアとして意識すべき3つのポイントを伝授します。
1. `On Error Resume Next` の使いどころ
VBAにおいて、この命令は「諸刃の剣」です。すべてのエラーを無視してしまうと、致命的なバグを見逃します。
しかし、今回のように「`LinkFormat` プロパティを持たない通常の図形（四角形やテキストボックス）」に対してアクセスしようとすると、VBAはエラーを吐いて止まってしまいます。
ここでは、「リンクを持っていないシェイプは無視して次に進む」という目的のために、限定的に使用しています。
2. パスの「境界線」を意識する
`currentPath` を取得する際、末尾に `\` があるかないかで、文字列操作の結果は劇的に変わります。
`InStr` 関数でパスの包含関係をチェックする際、この「境界線の扱い」を誤ると、意図しないファイル（全く別のフォルダにある同名ファイルなど）をリンクしてしまうリスクがあります。実務では、常に「境界条件（エッジケース）」を疑ってください。
3. ポータビリティの「前提条件」
このマクロは魔法ではありません。「ExcelファイルとPowerPointファイルを同じフォルダ（またはその配下）にまとめておく」という運用ルールがあって初めて機能します。
エンジニアとしてクライアントに提案する際は、「マクロを使えば解決します」だけでなく、「資料を送る際は、必ずフォルダごとZip圧縮して送ってください」という「運用設計」もセットで伝えるのが一流です。
おわりに：脱・マクロ記録の第一歩
「マクロの記録」は、いわば「決まった動きの録画」です。しかし、今回のように「もし〜だったら、こうする」という条件分岐（If）や、同じ作業を繰り返すループ（For Each）を組み合わせることで、マクロは「知能を持ったツール」へと進化します。
オブジェクトの階層を辿り、その中身を書き換える。この感覚を掴めば、PowerPoint VBAの世界はあなたの思い通りに動き始めます。
ここをクリアすれば、PowerPoint VBAの基本はバッチリですよ。
さあ、次の自動化へ進みましょう！
