插入圖片到Excel單元格

Question

這聽起來很愚蠢，但我需要生成帶圖片的報告，並且我無法將圖片放入單個單元格。我可以讓圖片在我的工作表上「漂浮」，但我需要將它們放入單元格中。我怎樣才能做到這一點？

Answer 1

您可以將圖片添加到評論中。

右鍵單擊單元格>插入註釋>右鍵單擊評論框外部的陰影（灰色區域）>格式註釋>顏色和線條>填充>顏色>填充效果>圖片>（瀏覽圖片） >點擊確定

圖像會出現在懸停狀態。

。

也有20 $的產品的Windows - Excel Image Assistant ...

Answer 2

你可以用谷歌驅動器（和自由，沒有麻煩）

•批量上傳做一個不到一分鐘imgur.com上的所有圖片

•將所有圖像的鏈接複製在一起，並附上.jpg。只有imgur可以將所有圖像鏈接複製到一起，然後使用右上方的圖像選項卡執行此操作。

•使用http://TextMechanic.co到前置和後置與此的每一行： 前綴：=image("和 後綴：", 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

Answer 3

只是去谷歌Docs和粘貼此爲一個公式，其中URL是你的IMG鏈接

 =image("URL", 1) 

之後，從谷歌文檔選項，下載excel，你將有你的形象在細胞 編輯 根據評論，你不需要保持圖像的URL長久，只要足夠長的時間讓Excel下載它。然後它將保持嵌入在文件中。

Answer 4

雖然我的建議是利用自動化提供Doality.com專圖片管理器爲Excel

下面的VBA代碼應該符合你的標準。祝你好運！

Button控件添加到您的Excel工作簿，然後雙擊以點擊按鈕進入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 

然後創建您的插入方法如下：

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 5

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

1. 插入圖像（CTRL + V）對Excel。
2. 驗證「圖片工具 - >對齊 - >對齊網格」被選中
3. 調整圖像的大小以適應單元格（或單元數），在圖像上
4. 單擊鼠標右鍵，選中「大小和屬性。 .. - >屬性 - >移動和單元格的大小「

Answer 6

現在我們可以直接輕鬆地將圖片添加到Excel。只需按照以下說明操作：

1. 轉到「插入」選項卡。
2. 單擊圖片選項（它位於插圖組中）。
3. 在「插入圖片」對話框中，找到想要插入Excel中單元格的圖片。
4. 單擊插入按鈕。
5. 重新調整圖片/圖片的大小，以便它可以完全適合 單元格。
6. 將圖片放在單元格中。一個很酷的方法是首先按下ALT鍵，然後用鼠標移動圖片 。這將 快照和安排自己與細胞的邊界儘快到達 靠近它。

---

如果有多個圖像，則可以一次選擇並插入所有圖像（如步驟4）。

您也可以通過選擇圖像並拖動邊緣來調整圖像大小。對於徽標或產品圖像，您可能希望保持圖像的高寬比不變。要保持縱橫比不變，請使用圖像的角來調整它的大小。

---

當放置使用上述步驟在細胞內的圖像時，它不會與細胞粘在調整尺寸的情況下，過濾器，或隱藏的細胞。如果你想讓圖像粘貼到單元格上，則需要將圖像鎖定到它放置的單元格n。

要做到這一點，您需要按照如下所示的其他步驟。在圖片上，選擇設置圖片格式

1. 單擊鼠標右鍵。
2. 在設置圖片格式窗格中，選擇大小&屬性，並與屬性 選項中，選擇「與細胞移動和調整大小」。

現在你可以移動細胞，將其過濾，或隱藏，並且畫面也將移動/過濾/隱藏。

---

注：

這個答案已採取從這個鏈接：Insert Picture into a Cell in Excel。