将图片插入Excel单元格

我正准备生成一份包含图片的报告，但我无法将图片放入单个单元格中。我可以让图片“漂浮”在我的工作表上，但我需要把它们放进一个单元格中。我该怎么做？

您可以将图像添加到注释中

右键单击单元格>插入注释>右键单击注释框外部的阴影（灰色区域）>设置注释格式>颜色和线条>填充>颜色>填充效果>图片>（浏览到图片）>单击确定

图像将出现在鼠标悬停上方

微软Office 365（2019）引入了一种称为评论的新事物，并将旧评论重命名为“”。因此，在上述步骤中，请执行

新注释

，而不是

插入注释

。所有其他步骤保持不变，功能仍然存在

---

---

还有一款售价20美元的Windows产品-…

使用Google Drive，您可以在不到一分钟的时间内完成它（而且是免费的，没有麻烦）

•在imgur.com上批量上传所有图像

•将所有图像的链接复制到一起，并附加.jpg。只有imgur允许您将所有图像链接复制到一起，请使用右上角的图像选项卡进行复制

•用于在每行前加上以下内容： 前缀：

=图像（

和 后缀：

”，1）

所以它看起来像这样的图像（“URL”，1）

•复制所有

•将其粘贴到谷歌电子表格中

•瞧

参考资料：

---

只需转到谷歌文档并将其粘贴为公式，其中URL是指向您的img的链接

      =image("URL", 1)

然后，从谷歌文档选项下载excel，你的图像就会出现在手机上 编辑

---

根据评论，您不需要让图像URL保持那么长的活动时间，只需要足够长的时间让excel下载即可。然后它将嵌入到文件中。

而我的建议是利用Picture Manager for Excel提供的自动化功能

以下vba代码应符合您的标准。祝你好运

将按钮控件添加到Excel工作簿中，然后双击该按钮以获取VBA代码-->

然后按如下方式创建插入方法：

Private Sub InsertPic(filePath As String, ByVal insertCell As Range)
    Dim xlShapes As Shapes
    Dim xlPic As Shape
    Dim xlWorksheet As Worksheet

    If IsEmpty(filePath) Or Len(Dir(filePath)) = 0 Then
        MsgBox ("File Path invalid")
        Exit Sub
    End If

    Set xlWorksheet = ActiveSheet

    Set xlPic = xlWorksheet.Shapes.AddPicture(filePath, msoFalse, msoCTrue, insertCell.top, insertCell.left, insertCell.width, insertCell.height)
    xlPic.LockAspectRatio = msoCTrue
End Sub

有一种更快的方法（）：

将图像（Ctrl+V）插入excel

验证是否选中“图片工具->对齐->捕捉到网格”

调整图像大小以适合单元格（或单元格数量）

右键单击图像并选中“大小和属性…->属性->移动和调整单元格大小”

---

现在我们可以直接轻松地将图片添加到Excel中。只需遵循以下说明：

转到“插入”选项卡

单击图片选项（在插图组中）。

在“插入图片”对话框中，找到要插入的图片 要插入Excel中的单元格中。

单击“插入”按钮。

重新调整图片/图像的大小，使其完全符合 牢房。

将图片放入单元格中。一个很酷的方法是首先 按ALT键，然后用鼠标移动图片。会的 一旦细胞出现，立即将其与细胞边缘对齐 就在附近

---

如果有多个图像，可以一次选择并插入所有图像（如步骤4所示）

也可以通过选择图像并拖动边缘来调整图像大小。对于徽标或产品图像，您可能希望保持图像的纵横比不变。要保持纵横比不变，请使用图像的角点调整其大小

---

使用上述步骤将图像放置在单元格内时，如果调整单元格大小、过滤或隐藏单元格，图像将不会与单元格粘连。如果希望图像粘贴到单元格中，则需要将图像锁定到其放置的单元格中

要做到这一点，您需要遵循如下所示的其他步骤

右键单击图片并选择“格式化图片”。

在“图片格式”窗格中，选择“大小和属性”，然后使用 在“属性”选项中，选择“随单元格移动并调整大小”。

现在您可以移动单元格、过滤单元格或隐藏单元格，图片也将移动/过滤/隐藏

---

注意：

---

此答案取自此链接：。

一个单元格中需要多少张图片？我需要每个单元格一张图片，我刚刚尝试了插入图像和特殊粘贴。您不能将图片“放入”单元格，只能“覆盖”单元格。工作表上的所有图片都“浮动”。通过将图片的

Top

和

Left

属性设置为单元格的

Top

和

Left

，可以将图片定位到单元格上方。如果你用你正在使用的代码编辑你的问题，建议一种可能适合你的方法会更容易。除了@TimWilliams建议的方法外，你还可以根据需要调整单元格大小以匹配图像（并且不会太可怕地更改工作表格式），请参阅“单元格上方”和“注释”部分方法。很遗憾，它不适用于剪贴板图像。注意。右键单击评论框以外的边框很重要，因为“格式评论”对话框窗口在每种情况下都有不同的选项。我不认为这是令人满意的，因为当我悬停时，我可以看到Excel调整了我的图像大小，从而使其变形并使其变形useless@wytten有一个选项可以锁定纵横比（因此没有扭曲它）。也就是说，我发现图片放在评论框中而不是单元格中很糟糕。似乎在mac上不起作用。无论我做什么，我都看不到“颜色和线条”选项。你知道谁支持textmachine.com吗？Google Drive！=Ms ExcelGetting“URL”保持它的活力是一件很麻烦的事。伙计们，在你从谷歌文档下载excel文件后，你不需要保持url的活力，它会将图片嵌入excel本身。这对于机密数据来说不是一个有用的解决方案。如果我的雇主发现我把东西上传到了Imgur-o

Private Sub InsertPic(filePath As String, ByVal insertCell As Range)
    Dim xlShapes As Shapes
    Dim xlPic As Shape
    Dim xlWorksheet As Worksheet

    If IsEmpty(filePath) Or Len(Dir(filePath)) = 0 Then
        MsgBox ("File Path invalid")
        Exit Sub
    End If

    Set xlWorksheet = ActiveSheet

    Set xlPic = xlWorksheet.Shapes.AddPicture(filePath, msoFalse, msoCTrue, insertCell.top, insertCell.left, insertCell.width, insertCell.height)
    xlPic.LockAspectRatio = msoCTrue
End Sub