怎么在excel单元格插入图片-搜搜范文

搜搜范文>学习资料>

怎么在excel单元格插入图片

时间：2025-12-05 13:26:17 文档下载投诉投稿

别急，我知道你可能想说，在Excel单元格里插个图片，这不就是“插入”菜单里点一下的事儿吗？就跟把大象放进冰箱一样，分三步走。

你要是真这么想，那我敢打赌，你肯定被那些“自由的”图片折磨过。

它们就像一群不听话的哈士奇，在你的表格里四处乱窜。你辛辛苦苦做好的产品清单，哇，图文并茂，堪称完美。结果呢？你稍微筛选一下数据，图片原地不动，表格下去了，整个版面瞬间变成车祸现场。或者你只是想调整一下行高，图片要么被压成一张长长的“面条”，要么就倔强地戳穿上下单元格的边界，那种感觉，就好像精心画好的妆，被自己手一抖给糊了。

这根本不是我们想要的在单元格插入图片。

我们追求的，是那种“人图合一”的境界。图片，它不是一个独立的图层，一个漂浮在表格上空的幽灵。不。它应该是单元格的一部分，是它的血肉。单元格胖，它就跟着胖；单元格瘦，它也跟着瘦。你对单元格排序、筛选，它就得像个忠诚的卫士，寸步不离。

这，才是真正的艺术。

一、告别“漂浮灵”，最基础的自我救赎

我们先从最常见，也是最多人踩坑的方法说起。就是那个你最熟悉的路径：【插入】->【图片】->【此设备】。

选好一张图，点插入。砰，一张硕大无比的图片就这么砸在了你的工作表上，遮天蔽日。你小心翼翼地缩放它，拖动它，把它挪到你想要的那个小小的单元格里。长舒一口气，搞定！

真的搞定了吗？

试试看，筛选一下数据。或者在图片上方插入几行。看到了吗？你的图片，它还在那里，像一座孤岛，而它本该跟随的数据，早已漂向了远方。

这就是问题的根源：默认插入的图片，它的属性是“在单元格上方浮动”。它和单元格，从一开始就是两个世界的人。

怎么解决？别慌，右键点击你那张“不听话”的图片，在菜单里找到【设置图片格式】。

点开后，右侧会弹出一个任务窗格。找到那个像四个方向箭头一样的图标，叫【大小和属性】。点它。

展开【属性】这个选项，你会看到三个让你选择困难症发作的选项。

大小和位置随单元格而变
大小随单元格而变，位置不变
大小和位置均不变

默认选中的是第三个，万恶之源。

现在，请毫不犹豫地选择第一个——【大小和位置随单元格而变】。这个选项，就是我们给图片下的第一道“紧箍咒”。

选完之后，再去试试筛选、排序、调整行高列宽。你会发现，世界瞬间美好了。图片真的会跟着单元格跑了！它会根据单元格的大小，努力地调整自己，虽然有时候会被拉伸得有点滑稽，但至少，它不再乱跑了。

这是最基本，也是必须要掌握的一招。对于偶尔处理一两张图片的需求，这招已经足够让你从抓狂的边缘解脱出来。

二、Office 365 / Excel 2021以上版本？恭喜你，你活在未来

如果你用的是比较新的Excel版本，那上面那套操作，对你来说，就像是蒸汽时代的古董。微软终于听到了群众的呼声，推出了一个堪称“神级”的功能，彻底改变了图片插入的逻辑。

请注意菜单栏的【插入】->【图片】。这次，不要选【此设备】，而是把目光移到它旁边一个低调的选项——【在单元格中放置】。

看到没？“在单元格中”！这几个字就如同天籁。

点击它，然后选择【此设备】。

选中一张图片，插入。

接下来，就是见证奇迹的时刻。图片没有“砰”地一下砸在工作表上，而是……直接、完美、嵌入到了你当前选中的那个单元格里。它不再是一个浮动的图层对象，它的本质，就跟单元格里的一个数字、一个文本，没有两样。

你可以像拖动公式一样，拖动单元格右下角的填充柄，图片甚至可以被复制填充。你对这一列进行任何的筛选和排序，图片都绝对忠诚地跟随着它所在的行。调整行高列宽，图片会以保持原始纵横比的方式，在单元格内自动缩放，居中对齐。

这才是真正的单元格图片！

这种方式插入的图片，你甚至可以直接在单元格里写文字，图片会和文字并存。你也可以用XLOOKUP或者VLOOKUP这样的函数，去查找返回一个包含图片的单元格。是的，你没看错，图片现在可以作为函数的结果了。这在以前，简直是天方夜譚。

如果你拥有这个功能，忘掉第一种方法吧。拥抱它，享受它，你会觉得你的工作效率提升了不止一个档次。

三、当图片成百上千：VBA，终极“魔法咒语”

好了，现在问题来了。如果你的任务不是插一张两张图，而是要给一个有500个产品型号的清单，配上对应的500张产品图，怎么办？

一张一张手动插入，然后设置属性？或者用新版的【在单元格中放置】功能，一张一张点？

你可以这么做，如果你有一个下午的时间，并且想体验一下什么叫真正的“机械式重复劳动”。

但我们是聪明人，我们得用“魔法”。在Excel里，这个魔法的名字，叫VBA。

别一听到代码就头大。相信我，解决这个问题需要的VBA代码，比你想象中简单得多。它就像一段咒语，你只需要知道在哪里念，以及怎么念对就行。

场景设定：

我们有一个工作表。
A列是产品型号（比如：product_001.jpg, product_002.jpg ...）。
B列是空的，我们准备在这里放入对应的图片。
所有的产品图片，都以A列的型号命名，并且存放在了电脑的某个文件夹里，比如 D:\产品图片\。

施法步骤：

按下 Alt + F11，打开VBA编辑器这个“魔法阵”。
在左侧的工程窗口，找到你的工作簿，右键点击，选择【插入】->【模块】。你会得到一个空白的代码窗口。
把下面这段“咒语”复制粘贴进去：

```vb Sub BatchInsertPictures() Dim Rng As Range Dim PicPath As String Dim Shp As Shape

' --- 请在这里修改你的图片文件夹路径 ---
Const PicFolder As String = "D:\产品图片\"

' --- 设置一个错误处理，防止因为找不到图片而中断宏 ---
On Error Resume Next

' --- 遍历你选中的单元格区域 ---
For Each Rng In Selection
    ' --- 根据同行A列的单元格内容，拼接出完整的图片路径 ---
    PicPath = PicFolder & Rng.Offset(0, -1).Value

    ' --- 如果拼接出的路径下，真的有这个文件 ---
    If Dir(PicPath) <> "" Then
        ' --- 在当前单元格（比如B列的单元格）插入图片 ---
        Set Shp = Rng.Parent.Shapes.AddPicture( _
            Filename:=PicPath, _
            LinkToFile:=False, _
            SaveWithDocument:=True, _
            Left:=Rng.Left, _
            Top:=Rng.Top, _
            Width:=-1, _
            Height:=-1)

        ' --- 这部分是关键，用来控制图片大小和位置 ---
        With Shp
            .LockAspectRatio = msoTrue ' 锁定图片纵横比
            .Width = Rng.Width * 0.95 ' 设置图片宽度为单元格宽度的95%
            .Top = Rng.Top + (Rng.Height - .Height) / 2 ' 垂直居中
            .Left = Rng.Left + (Rng.Width - .Width) / 2 ' 水平居中
            .Placement = xlMoveAndSize ' 设置为随单元格移动和调整大小！
        End With
    End If
    Set Shp = Nothing
Next Rng

End Sub ```

咒语解读：

Const PicFolder As String = "D:\产品图片\"：这是唯一需要你修改的地方，把你存放图片的文件夹路径替换进去。
For Each Rng In Selection：它的意思是，这段代码会对你选中的所有单元格生效。
PicPath = PicFolder & Rng.Offset(0, -1).Value：这是核心逻辑。它会根据你当前选中的单元格（比如B2），去偏移-1列（也就是A2），读取A2单元格的值（比如product_001.jpg），然后和你的文件夹路径拼接成一个完整的图片地址。
.Placement = xlMoveAndSize：看到了吗？这就是我们第一种方法里，手动在界面上点的那个选项。现在，我们用代码让它自动化了。

如何释放魔法？