vba - Word マクロで選択した画像のファイル パスを取得する

Question

複数の画像を含む Word 文書があります。画像はハード ドライブのサブフォルダにあり、Word ドキュメントにリンクされています。

画像を選択してマクロを実行すると、メッセージ ボックスが開き、画像のフル パスが表示されます。

Answer 1

コードは次のとおりです。

Sub GetFullPath()

On Error Resume Next
    Dim fullPath As String
    fullPath = Selection.ShapeRange(1).LinkFormat.SourceFullName
    fullPath = Selection.InlineShapes(1).LinkFormat.SourceFullName
    MsgBox fullPath

End Sub