如何让Excel链接图片随数据区域大小按比例调整？

方案1：VBA自动适配（一劳永逸） #

这是最靠谱的解决方式，通过代码监听数据变化，自动同步图片尺寸：

操作步骤： #

1. 打开VBA编辑器：按Alt+F11调出编辑器。
2. 找到数据源工作表：在左侧工程窗口里双击你的数据源所在工作表（比如存A2:C数据的Sheet1）。
3. 粘贴代码：把下面的代码粘贴到右侧代码窗口：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim srcRange As Range
    Dim monitorPic As Shape
    Dim targetSheet As Worksheet
    
    ' 动态获取数据源范围：A2到C列最后一行有数据的行
    Set srcRange = Me.Range("A2:C" & Me.Cells(Me.Rows.Count, "A").End(xlUp).Row)
    ' 指定放置监视图片的工作表（改成你的监视表名称）
    Set targetSheet = ThisWorkbook.Sheets("Sheet2")
    
    ' 查找目标表中的监视图片（名称要对应）
    On Error Resume Next
    Set monitorPic = targetSheet.Shapes("MonitorPic")
    On Error GoTo 0
    
    ' 删除旧图片
    If Not monitorPic Is Nothing Then monitorPic.Delete
    
    ' 重新生成链接图片
    srcRange.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    targetSheet.Paste
    Set monitorPic = targetSheet.Shapes(targetSheet.Shapes.Count)
    
    ' 给图片命名，方便后续查找
    monitorPic.Name = "MonitorPic"
    
    ' 设置图片位置（改成你想要的放置位置，比如B2单元格左上角）
    monitorPic.Top = targetSheet.Range("B2").Top
    monitorPic.Left = targetSheet.Range("B2").Left
    
    ' 核心：让图片尺寸和数据源完全匹配
    monitorPic.Height = srcRange.Height
    monitorPic.Width = srcRange.Width
End Sub

4. 初始化图片：
   • 手动复制一次数据源区域，用「复制为图片→链接到单元格」粘贴到监视工作表。
   • 右键图片→重命名，改成MonitorPic（和代码里的名称一致）。
   • 或者直接修改数据触发代码，会自动生成命名好的图片。

效果 #

以后只要数据源的行数或列宽变化，代码会自动删除旧图片，生成和数据源尺寸完全一致的新链接图，绝对不会拉伸压缩。

方案2：手动应急调整 #

如果不想碰代码，每次数据变化后手动调整：

• 选中监视图片，右键→大小和属性。
• 勾选锁定纵横比，避免变形。
• 直接在属性面板里输入数据源区域的高度（所有行高总和）和宽度（所有列宽总和），或者拖动边缘对齐到合适大小。

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