在 Excel 单元格中插入图片

我试图生成一个包含图片的报告,但是我无法将图片放入单个单元格中。我可以让这些图片在我的工作表中“浮动”,但是我需要把它们放到一个单元格中。我怎么能这么做?

715309 次浏览

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

右键单击单元格 > 插入评论 > 右键单击评论框外部的阴影(灰色区域) > 格式评论 > 颜色和线条 > 填充 > 颜色 > 填充效果 > 图片 > (浏览到图片) > 单击 OK

图像将出现在悬停。

Microsoft Office 365(2019) 引入了新的东西称为注释,并将旧的注释重新命名为“ 笔记”。因此在上面的步骤中用 New Note代替 Insert Comment。所有其他步骤保持不变,功能仍然存在。


还有一个价值20美元的 Windows-图像助理产品..。

你可以用 Google Drive 在不到一分钟的时间内完成(而且是免费的,没有任何麻烦)

•大量上传你在 imgur.com 上的所有图片

‧复制所有图像的连结,并附上。JPG.只有 imgur 允许将所有的图像链接复制到一起,使用右上角的 image 选项卡。

•使用 http://TextMechanic.co在每一行后面加上以下内容: 前缀: =image("和 后缀: ", 1)

看起来就像这个 =image("URL", 1)

•全部复制

•粘贴到谷歌电子表格中

瞧!

参考文献:

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

只要去谷歌文档和粘贴这作为一个公式,其中 URL 是一个链接到您的 img

      =image("URL", 1)

之后,从谷歌文档选项,下载为 Excel,你会有你的手机上的图像 剪辑 根据每条评论,您不需要保持图像 URL 存在那么长时间,只需要足够长的时间让 Excel 下载它。然后它就会一直嵌在文件里。

虽然我的建议是利用自动化可从 Doality.com特别是图片管理器的 Excel

下面的 vba 代码应该符合您的标准。祝您好运!

将 Button 控件添加到 Excel 工作簿中,然后双击该按钮以进入 VBA Code —— >

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

有一些更快的方法(https://www.youtube.com/watch?v=TSjEMLBAYVc) :

  1. 在 Excel 中插入图像(Ctrl + V)。
  2. 检查“ Picture Tools-> Align-> Snap To Grid”是否有效
  3. 调整图像大小以适应单元格(或单元格数量)
  4. 右键单击图像并选中“大小和属性...-> 属性-> 移动和单元格大小”

现在我们可以直接轻松地在 Excel 中添加图片了,只需按照下面的说明操作:

  1. 转到“插入”选项卡。
  2. 单击 Pictures 选项(它在插图组中)。 image1
  3. 在「插入图片」对话方块中,找出您的 要插入到 Excel 中的单元格中。 image2
  4. 单击“插入”按钮。 image3
  5. 重新调整图片/图像的大小,使其完全适合 手机。 image4
  6. 把图片放在单元格里。一个很酷的方法是先放在单元格里 按下 ALT 键,然后用鼠标移动图片 按照单元格的边框对齐并排列它自己 很接近了。

如果有多个图像,则可以一次选择并插入所有图像(如步骤4所示)。

还可以通过选择图像并拖动边缘来调整图像的大小。在商标或产品图像的情况下,您可能希望保持图像的纵横比完好无损。为了保持高宽比的完整性,可以使用图像的角来调整它的大小。


使用上述步骤在单元格中放置图像时,如果调整、筛选或隐藏单元格,图像将不会与单元格粘在一起。如果希望图像粘附在单元格上,则需要将图像锁定在其放置的单元格上。

为此,您需要遵循下面所示的附加步骤。

  1. 右键单击图片并选择“格式化图片”。 image5
  2. 在“图片格式”窗格中,选择“大小和属性”,并使用 在“属性”中选择“移动并调整单元格的大小”。 image6

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


注意:

这个答案来自这个链接: 在 Excel 中向单元格中插入图片