Question

我想用图片生成报告，但我无法将图片放到单个单元格中。我可以让图片“漂浮”在我的工作表周围，但我需要将它们放入一个单元格中。我怎么能这样做？

Answer 1

您可以将图片添加到评论中。

右键单击单元格＆gt;插入评论＆gt;右键单击评论框外部的阴影（灰色区域）＆gt;格式注释＆gt;颜色和线条＆gt;填写＆gt;颜色＆gt;填充效果＆gt;图片＆gt; （浏览图片）＆gt;单击“确定”

图片会在鼠标悬停时显示。

Microsoft Office 365（2019）引入了称为评论的新内容，并将旧评论重命名为“notes”。因此，在上述步骤中，请执行New Note而不是Insert Comment。所有其他步骤保持不变，功能仍然存在。

还有一款适用于Windows的20美元产品 - Excel Image Assistant ...

Answer 2

有一些更快的方式（https://www.youtube.com/watch?v=TSjEMLBAYVc）：

将图像（Ctrl + V）插入Excel。
验证＆＃34;图片工具 - ＆gt;对齐 - ＆gt; Snap to Grid＆＃34;已检查
调整图像大小以适合单元格（或单元格数）
右键点击图片，然后选中＆＃34;尺寸和属性... - ＆gt;属性 - ＆gt;使用单元格移动和调整大小＆＃34;

Answer 3

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

      =image("URL", 1)

之后，从谷歌文档选项，下载excel，你将在单元格上有你的图像编辑根据评论，你不需要保持图像URL的存活时间长，只需要足够长的时间来下载它。然后它将保持嵌入文件。

Answer 4

现在我们可以直接轻松地向Excel添加图片。请按照以下说明操作：

转到“插入”标签。
点击图片选项（它位于插图组中）。
在“插入图片”对话框中，找到您的图片想要插入Excel中的单元格。
单击“插入”按钮。
重新调整图片/图片的大小，使其完全适合细胞。
将图片放入单元格中。一个很酷的方法是首先按ALT键，然后用鼠标移动图片。它会一旦它到来，就会按照细胞的边界进行捕捉和排列靠近它。

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

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

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

为此，您需要按照以下步骤执行其他步骤。

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

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

注意：

这个答案来自这个链接：Insert Picture into a Cell in Excel。

Answer 5

虽然我的建议是利用Doality.com专门用于Excel的图片管理器

提供的自动化功能

以下vba代码应符合您的条件。祝你好运！

将按钮控件添加到Excel工作簿，然后双击按钮以转到VBA代码 - ＆gt;

Sub Button1_Click()
    Dim filePathCell As Range
    Dim imageLocationCell As Range
    Dim filePath As String

    Set filePathCell = Application.InputBox(Prompt:= _
        "Please select the cell that contains the reference path to your image file", _
            Title:="Specify File Path", Type:=8)

     Set imageLocationCell = Application.InputBox(Prompt:= _
        "Please select the cell where you would like your image to be inserted.", _
            Title:="Image Cell", Type:=8)

    If filePathCell Is Nothing Then
       MsgBox ("Please make a selection for file path")
       Exit Sub
    Else
      If filePathCell.Cells.Count > 1 Then
        MsgBox ("Please select only a single cell that contains the file location")
        Exit Sub
      Else
        filePath = Cells(filePathCell.Row, filePathCell.Column).Value
      End If
    End If

    If imageLocationCell Is Nothing Then
       MsgBox ("Please make a selection for image location")
       Exit Sub
    Else
      If imageLocationCell.Cells.Count > 1 Then
        MsgBox ("Please select only a single cell where you want the image to be populated")
        Exit Sub
      Else
        InsertPic filePath, imageLocationCell
        Exit Sub
      End If
    End If
End Sub

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

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

Answer 6

您可以在不到一分钟的时间内使用Google云端硬盘（免费，无麻烦）

•批量上传imgur.com上的所有图片

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

•使用http://TextMechanic.co前缀并附加每行：前缀：=image(" AND 后缀：", 1)

所以它看起来像 =image("URL", 1)

•全部复制

•将其粘贴到Google电子表格

•瞧！

参考文献：

http://www.labnol.org/internet/images-in-google-spreadsheet/18167/

https://support.google.com/drive/bin/answer.py?hl=en&answer=87037&from=1068225&rd=1

将图片插入Excel单元格

6 个答案: