插入图片到Excel单元格
这可能听起来很愚蠢，但是我需要用图片生成一个报告，而且我不能把这些图片放到一个单元格中。 我可以让图片在我的工作表中“漂浮”，但是我需要把它们放到一个单元格中。 我该怎么做？
您可以将图像添加到评论中。
右键单击单元格>插入注释>右键单击评论框外的阴影（灰色区域）>格式注释>颜色和线条>填充>颜色>填充效果>图片>（浏览到图片）>单击确定
图像会出现在hover在上方。
。
还有一个20美元的Windows产品 – Excel Image Assistant …
有一些更快的方法（ https://www.youtube.com/watch?v=TSjEMLBAYVc ）：
- 插入图像（Ctrl + V）到Excel中。
- validation“图片工具 – >alignment – >alignment网格”被选中
- 调整图像的大小以适应单元格（或单元格的数量）
- 右键单击图像，然后选中“大小和属性… – >属性 – >移动和单元格大小”
只要去谷歌文档并粘贴这个公式，其中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
