插入图片到Excel单元格

这可能听起来很愚蠢,但是我需要用图片生成一个报告,而且我不能把这些图片放到一个单元格中。 我可以让图片在我的工作表中“漂浮”,但是我需要把它们放到一个单元格中。 我该怎么做?

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

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

图像会出现在hover在上方。

还有一个20美元的Windows产品 – Excel Image Assistant …

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

  1. 插入图像(Ctrl + V)到Excel中。
  2. validation“图片工具 – >alignment – >alignment网格”被选中
  3. 调整图像的大小以适应单元格(或单元格的数量)
  4. 右键单击图像,然后选中“大小和属性… – >属性 – >移动和单元格大小”

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

  =image("URL", 1) 

然后,从谷歌文档选项,下载Excel的,你会有你的形象在单元格编辑每注释,你不需要保持图像的URL活得那么久,只要足够的时间让Excel下载它。 然后它将保持embedded在文件中。

虽然我的build议是利用Doality.com专门提供的自动化,特别是Excel的图片pipe理器

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

将一个button控件添加到您的Excel工作簿,然后双击button,以获得VBA代码 – >

 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 

然后创build您的插入方法如下:

 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 

您可以在不到一分钟的时间内使用Google云端硬盘(而且免费,没有麻烦)

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

•将所有图像的链接一起复制,并附上.jpg。 只有imgur可以将所有的图像链接复制到一起,使用图像选项卡右上angular的图像链接。

•使用http://TextMechanic.co预先添加并附加每行:Prefix:; =image(" AND Suffix: ", 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