如何在Visio Plan 2中将Excel OLE链接改为相对路径并批量编辑？

一、正确设置相对路径的方法 #

• 先纠正一个错误：你之前用的..\是指向上一级目录的路径符号，但你的Visio和Excel文件在同一文件夹，完全不需要加这个，用反了才导致重新打开找不到文件。直接用Excel的**纯文件名（比如data.xls）**作为链接路径就可以。
• 具体操作步骤：
  1. 打开Visio文档，点击顶部菜单栏的**「数据」选项卡，选择「编辑链接」**（如果找不到，可在「视图」面板调出「数据」工具）。
  2. 在「链接」对话框里选中要修改的链接，点击**「更改源」**。
  3. 在文件选择窗口中，找到同一文件夹下的目标Excel文件，选中后点「确定」——此时Visio会自动把路径设为相对路径（前提是Visio文件已经保存在这个文件夹里）。
  4. 保存Visio文档，之后只要Visio和Excel始终在同一目录下，不管整个文件夹移到哪里，其他用户打开都能正常加载链接。

二、批量编辑OLE链接的简便方法 #

手动改200个链接效率太低，用Visio自带的VBA宏可以批量操作：

1. 打开Visio文档，按Alt + F11打开VBA编辑器。
2. 在左侧「项目」面板右键点击当前Visio文档，选择**「插入」→「模块」**。
3. 把下面的代码粘贴到模块窗口：

Sub BatchUpdateOLELinks()
    Dim vsoShape As Visio.Shape
    Dim oleObj As OLEObject
    Dim newFileName As String
    ' 替换成你实际的Excel文件名（比如"销售数据.xls"）
    newFileName = "你的Excel文件名.xls"
    
    ' 遍历当前页面所有形状
    For Each vsoShape In ActivePage.Shapes
        If vsoShape.Type = visTypeOLE2 Then
            Set oleObj = vsoShape.OLEObject
            ' 更新为同一文件夹下的文件名（相对路径）
            oleObj.SourceFullName = newFileName
            oleObj.Update
        End If
    Next vsoShape
    MsgBox "批量更新完成！"
End Sub

4. 修改代码里的newFileName为你的实际Excel文件名。
5. 按F5运行宏，就能批量把所有OLE链接改成同一文件夹下的相对路径。

补充：如果你的Visio文档有多个页面，把代码里的ActivePage改成ActiveDocument.Pages，再套一层循环遍历每个页面即可。

内容的提问来源于stack exchange，提问作者carpboy