获取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