Excel VBA里藏了个“遥控器”?用LinkFormat对象实现图表、图片自动更新,摸鱼时间翻倍!

一个有多年经验的Excel老司机，今天跟你聊聊LINK怎么“活”起来

Excel用了十年，VBA写了五年，踩坑无数，摸鱼有成。

今天聊一个很多人忽略、但一旦用上就再也回不去的对象——

LinkFormat。

如果你还在手动更新Excel里的链接图表、链接图片，那你可能已经落后这个对象“一个时代”了。

一、LinkFormat是什么？一句话讲清楚

LinkFormat 是Excel VBA里用来控制“外部链接对象”的接口。

什么叫外部链接对象？

比如：

你把另一个Excel文件的图表“贴链接”过来

你把一张网络图片用链接方式插入

你把Word、PPT里的表格通过链接嵌入Excel

这些“链接”对象，在VBA里都有一个共同的身份——LinkFormat。

类比一下：

LinkFormat 就像你家电视的遥控器，

以前你要走到电视前按按钮（手动更新链接），

现在用VBA写一行代码，躺着也能换台。

二、LinkFormat的核心三件套（摸鱼三键）

1️⃣ .Update —— 一键刷新链接

这是最常用的方法。

ActiveSheet.Shapes(1).LinkFormat.Update

意思是：把第一个形状（如果是链接过来的图表或图片）强制更新为源文件的最新状态。

适合场景：

每天早上数据源更新了，你不需要手动去点“更新链接”，

写个定时宏，Excel自己刷新，你喝咖啡去。

2️⃣ .AutoUpdate —— 自动更新的开关

这是一个布尔值属性（True/False）。

ActiveSheet.Shapes(1).LinkFormat.AutoUpdate = True

设为True后，每次打开文件，Excel自动更新这个链接内容。

注意：

这个“自动”仅限于打开文件时。

如果你在文件打开期间源文件变了，它不会实时更新，还是要靠.Update。

所以最佳实践是：

AutoUpdate = True + 定时/事件触发 .Update

3️⃣ .Source —— 知道你的“根”在哪

这属性告诉你这个链接对象来自哪个文件、哪个单元格、哪个图表。

MsgBox ActiveSheet.Shapes(1).LinkFormat.Source

输出类似：

C:\报告\销售数据.xlsx!Sheet1!R1C1:R20C5

摸鱼心法：

当同事发来一个破Excel，里面一堆链接，偏偏又找不到源文件时，

用.Source直接把它“老底”揭穿。

三、实战场景：用了LinkFormat，我每天多摸鱼1小时

场景1：日报里的“动态封面图”

很多公司日报Excel第一页是一张封面图（比如公司logo+日期标题）。

这张图每天都不一样，来自某个共享文件夹的daily.png。

如果每次手动“插入→图片→链接”，然后手动更新，太累了。

VBA写法：

Sub 更新日报封面()    Dim 图片 As Shape    On Error Resume Next    Set 图片 = ActiveSheet.Shapes("封面图")    If 图片 Is Nothing Then        Set 图片 = ActiveSheet.Shapes.AddPicture( _            Filename:="C:\日报图\daily.png", _            LinkToFile:=msoTrue, _            SaveWithDocument:=msoFalse, _            Left:=50, Top:=50, Width:=400, Height:=200)        图片.Name = "封面图"    Else        图片.LinkFormat.Source = "C:\日报图\daily.png"        图片.LinkFormat.Update    End IfEnd Sub

每天运行这个宏 → 封面自动更新。

你只需要“F5一下，图就换了”。

场景2：销售仪表盘里的跨文件图表

你做了个销售仪表盘，里面6个图表全链接着6个不同部门的数据文件。

以前：

打开仪表盘 → 弹窗问“是否更新链接” → 点是 → 等 → 分给同事时他们乱点“否” → 图表不变 → 被骂。

用LinkFormat一劳永逸：

Sub 强制刷新所有链接图表()    Dim sh As Shape    For Each sh In ActiveSheet.Shapes        If sh.Type = msoLinkedOLEObject Then            sh.LinkFormat.Update        End If    Next    MsgBox "所有外部图表已更新，老板看不出你昨天在摸鱼", vbInformationEnd Sub

效果：

一键更新所有跨文件图表，不用解释，不用挨骂。

四、翻车警告！LinkFormat的三个常见坑

⚠️ 坑1：形状类型不对

Shapes(1).LinkFormat 如果该形状不是链接对象，直接报错。

✅ 安全写法：

If sh.Type = msoLinkedOLEObject Or sh.Type = msoLinkedPicture Then    sh.LinkFormat.UpdateEnd If

⚠️ 坑2：源文件路径变了

.Update 找不到源文件 → 报错。

✅ 先判断文件存在：

If Dir(sourcePath) = "" Then    MsgBox "源头文件没了，是不是小王删的？"    Exit SubEnd If

⚠️ 坑3：自动更新导致打开巨慢

某个链接的源文件在服务器上，打开时Excel去连→卡死。

✅ 解决方案：

Application.AskToUpdateLinks = False

Workbooks.Open "仪表盘.xlsx"

Application.AskToUpdateLinks = True

或者直接把 AutoUpdate 设 False，用你自己的按钮手动更新。

五、一个完整小工具：链接管理器（赠送给你的读者）

为了方便经常用链接的朋友，我写了个极简版“链接管理器”：

Sub 链接管理器()    Dim sh As Shape, i As Integer    i = 1    For Each sh In ActiveSheet.Shapes        If sh.Type = msoLinkedOLEObject Or sh.Type = msoLinkedPicture Then            Cells(i, 1) = sh.Name            Cells(i, 2) = sh.LinkFormat.Source            i = i + 1        End If    Next    If i = 1 Then        MsgBox "当前工作表没有找到任何链接对象"    Else        Columns("A:B").AutoFit        MsgBox "已列出" & i - 1 & "个链接对象"    End IfEnd Sub

运行后会把当前工作表里所有链接对象的名称和来源路径列出来，

查岗、排错、交接工作，都好用。

最后唠两句

很多人学VBA，整天盯着Range、Cells、Workbooks，

却忘了Excel里还有一批“外来户”——链接过来的图表、图片、OLE对象。