對於我們大多數人來說，將存儲在計算機中的圖像插入工作表很容易。 請這樣做：

1。 在工作表中，單擊要插入圖像的位置。

2。 然後，點擊 插入 > 圖片 > 這個設備，請參見屏幕截圖：

3。 在彈出 插入圖片 窗口，打開包含圖片的文件夾，然後按住 按Ctrl 鍵以選擇要插入的圖像，請參見屏幕截圖：

4。 然後，點擊 插入 按鈕，所選照片已插入到工作表中。 現在，您可以根據需要調整圖像的大小或將其調整為所需的大小，請參見屏幕截圖：

如果您具有Excel 2013或更高版本，則可以從Web或One Drive插入圖像，請按以下步驟操作：

1。 在工作表中，單擊要插入圖像的位置。

2。 然後，點擊 插入 > 圖片 > 在線圖片，請參見屏幕截圖：

3。 將顯示以下窗口。 在裡面 在線圖片 部分，請在文本框中鍵入您要查找的內容，然後按 Enter 鑰匙。 立刻搜索所有對應的圖片，請參見屏幕截圖：

4。 然後，選擇所需的圖片，然後單擊 插入 按鈕。 插入圖片後，請調整圖片大小或將其調整到所需的位置。

以下VBA代碼可以幫助您根據像元大小將多個圖像插入到像元中。 請這樣做：

1。 調整要放置圖片的單元格大小，然後選擇單元格。

2。 然後，按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

3。 點擊 插入 > 模塊，然後將以下宏粘貼到 模塊 窗口。

VBA代碼：根據單元格大小插入多張圖片

Sub InsertPictures()
'Updateby Extendoffice
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
    xRowIndex = Application.ActiveCell.Row
    For lLoop = LBound(PicList) To UBound(PicList)
        Set Rng = Cells(xRowIndex, xColIndex)
        Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        xRowIndex = xRowIndex + 1
    Next
End If
End Sub

4。 然後按 F5 運行此代碼的關鍵。 在裡面 已提交 窗口，請選擇包含圖片的文件夾，然後選擇要插入的圖片，然後單擊 已提交 按鈕，所有選擇的圖片都已根據單元格大小插入到您的選擇中。 看截圖：

如果您不熟悉VBA代碼，則可以在此處使用電源功能- 導入圖片 of Excel的Kutools。 使用此有用的功能，您可以快速，輕鬆地將多個圖像導入單元格。

安裝後 Excel的Kutools，請執行以下步驟：

1。 點擊 Kutools 加 > 進出口 > 導入圖片，請參見屏幕截圖：

2。 在彈出 導入圖片 對話框，請執行以下操作：

• 從“導入順序”下拉列表中指定圖片順序，您可以選擇 垂直填充單元格 or 逐個單元格水平填充;
• 然後，單擊 加入 按鈕選擇圖像文件或文件夾以將圖片添加到 圖片清單;
• 點擊 進口尺寸 按鈕，在 導入圖片尺寸 對話框中，選擇 匹配的細胞大小 選項。
• 

3。 完成設置後，請點擊 進口 按鈕，現在，另一個 導入圖片 彈出，指定要將圖片導入到的目標單元格，請參見屏幕截圖：

4。 然後，點擊 OK 按鈕，所有選定的圖像都已插入，以匹配特定單元格的大小，如下圖所示：

以下VBA代碼可以幫助您快速插入與其名稱匹配的多個圖像，請按以下步驟操作：

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2。 點擊 Insert> 模塊，然後將以下宏粘貼到 模塊 窗口。

VBA代碼：插入與其名稱匹配的多張圖片

Sub InserPictureByName()
'Updateby Extendoffice
Dim xFDObject As FileDialog
Dim xStrPath, xStrPicPath As String
Dim xRgName, xRgInser, xRg, xRgI As Range
Dim xFNum As Integer
Set xFDObject = Application.FileDialog(msoFileDialogFolderPicker)
With xFDObject
    .Title = "Please select the folder:"
    .InitialFileName = Application.ActiveWorkbook.Path
    .Show
    .AllowMultiSelect = False
End With
On Error Resume Next
xStrPath = ""
xStrPath = xFDObject.SelectedItems.Item(1)
If xStrPath = "" Then
Exit Sub
End If
Set xRgName = Application.InputBox("Please select the cells contain the image name:", "Kutools for Excel", , , , , , 8)
If xRgName Is Nothing Then
    MsgBox "No cells are select, exit operation! ", vbInformation, "Kutools for Excel"
    Exit Sub
End If
Set xRgInser = Application.InputBox("Please select the cells to output the images", "Kutools for Excel", , , , , , 8)
If xRgInser Is Nothing Then
    MsgBox " No cells are select, exit operation.! ", vbInformation, "Kutools for Excel"
    Exit Sub
End If
For xFNum = 1 To xRgName.Count
    Set xRg = xRgName.Item(xFNum)
    Set xRgI = xRgInser.Item(xFNum)
    xStrPicPath = xStrPath & "\" & xRg.Text & ".png"
    If Not Dir(xStrPicPath, vbDirectory) = vbNullString Then
        With xRgI.Parent.Pictures.Insert(xStrPicPath)
            .Left = xRgI.Left
            .Top = xRgI.Top
            .ShapeRange.LockAspectRatio = msoFalse
            .ShapeRange.Height = 60
            .ShapeRange.Width = 60
        End With
    End If
Next
End Sub

備註：在以上代碼中，您可以在腳本“.ShapeRange.Height = 60“”.ShapeRange.Width = 60”來滿足您的需求。

3。 然後按 F5 鍵運行此代碼，然後在打開的窗口中，選擇包含要插入圖像的文件夾，請參見屏幕截圖：

4。 然後，單擊 OK 按鈕，會彈出一個提示框，請選擇包含圖像名稱的單元格，請參見屏幕截圖：

5。 繼續點擊 OK 按鈕，然後出現另一個提示框，請選擇要輸出圖像的單元格，請參見屏幕截圖：

6。 最後點擊 OK，並且圖片已根據其名稱立即插入到單元格中，請參見屏幕截圖：

如果你有 Excel的Kutools，其 匹配導入圖片 功能，您可以根據圖像名稱快速輕鬆地插入圖像。

安裝後 Excel的Kutools，請這樣做：

1。 點擊 Kutools 加 > 進出口 > 匹配導入圖片，請參見屏幕截圖：

2。 在彈出 匹配導入圖片 對話框，請執行以下操作：

• 從“導入順序”下拉列表中指定圖片順序，您可以選擇 垂直填充單元格 or 逐個單元格水平填充;
• 然後，從 比賽範圍 在文本框中，選擇要基於其插入圖像的圖片名稱；
• 然後，單擊 加入 按鈕選擇圖像文件或文件夾以將圖片添加到 圖片清單;
• 接下來，您應該指定圖片尺寸。 請點擊 進口尺寸 按鈕，在 導入圖片尺寸 對話框中，根據需要選擇一種圖片尺寸。
• 

3。 完成設置後，請點擊 進口 按鈕，選擇一個單元格或一個單元格列表以從彈出的窗口中找到圖像 匹配導入圖片 對話框，請參見屏幕截圖：

4。 然後，點擊 OK，並且已插入名稱與單元格值匹配的所有圖片，請參見屏幕截圖：

請應用以下VBA代碼以根據網址列表插入圖片。

1。 首先，調整要定位圖像的相鄰像元大小。

2。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

3。 點擊 插入 > 模塊，然後將以下宏粘貼到 模塊 窗口。

VBA代碼：從URL列表中插入圖片

Sub URLPictureInsert()
'Updateby Extendoffice
Dim Pshp As Shape
Dim xRg As Range
Dim xCol As Long
On Error Resume Next
Application.ScreenUpdating = False
Set Rng = ActiveSheet.Range("A2:A5")
For Each cell In Rng
filenam = cell
ActiveSheet.Pictures.Insert(filenam).Select
Set Pshp = Selection.ShapeRange.Item(1)
If Pshp Is Nothing Then GoTo lab
xCol = cell.Column + 1
Set xRg = Cells(cell.Row, xCol)
With Pshp
.LockAspectRatio = msoFalse
If .Width > xRg.Width Then .Width = xRg.Width * 2 / 3
If .Height > xRg.Height Then .Height = xRg.Height * 2 / 3
.Top = xRg.Top + (xRg.Height - .Height) / 2
.Left = xRg.Left + (xRg.Width - .Width) / 2
End With
lab:
Set Pshp = Nothing
Range("A2").Select
Next
Application.ScreenUpdating = True
End Sub

筆記：在上面的代碼中， A2：A5 是包含您要提取圖像的URL地址的單元格範圍，則應根據需要更改單元格引用。

4。 然後按 F5 運行該代碼的關鍵，匹配的圖片將從URL提取到相鄰列，並放置在單元格的中心，請參見屏幕截圖：

Excel的Kutools 具有驚人的功能– 從路徑（URL）插入圖片。 使用此實用程序，可以快速，輕鬆地從URL中提取相應的圖片。

安裝後 Excel的Kutools，請執行以下步驟：

1。 點擊 庫工具 > 插入 > 從路徑插入圖片（URL），請參見屏幕截圖：

2。 在彈出 從路徑插入圖片（URL） 對話框中，請設置以下操作：

• 選擇URL單元列表以及要放置圖像的單元格範圍；
• 根據需要指定圖像的尺寸 圖片尺寸 部分。
• 

3。 然後，單擊 Ok 按鈕，並且所有圖片均已從網址中提取，請參見屏幕截圖：

您可以根據圖像文件路徑應用以下VBA代碼來插入圖像。

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2。 點擊 插入 > 模塊，然後將以下代碼粘貼到 模塊 窗口。

VBA代碼：從一系列文件路徑插入圖像

Sub InsertPicFromFilePath()
'Updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xVal As String
    On Error Resume Next
    Set xRg = Application.InputBox("Please select file path cells:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xVal = xCell.Value
        If xVal <> "" Then
            ActiveSheet.Shapes.AddPicture xCell.Value, msoFalse, msoTrue, _
            xCell.Offset(0, 1).Left, xCell.Top, xCell.Height, _
            xCell.Height
        End If
    Next
    Application.ScreenUpdating = True
End Sub

3。 插入上面的代碼後，按 F5 鍵運行此代碼，然後彈出一個提示框，請選擇文件路徑的單元格，請參見屏幕截圖：

4。 然後點擊 OK 按鈕，基於文件路徑的所有圖像都已顯示在下一列中，如下所示的屏幕截圖：

Excel的Kutools“ 從路徑插入圖片（URL） 功能還可以幫助您顯示文件路徑中的相對圖像。

安裝後 Excel的Kutools，請這樣做：

1。 點擊 庫工具 > 插入 > 從路徑插入圖片（URL），在彈出的對話框中，請根據需要指定文件路徑範圍，輸出圖像的範圍，圖像大小，請參見屏幕截圖：

2。 設置選項後，單擊 Ok 按鈕，圖像將立即插入到選定的單元格中，請參見屏幕截圖：

保養竅門：有時，您可能會發現圖像與工作表的數據區域重疊，如下圖所示。 發生這種情況的原因是圖像太大，並且不會自動調整其大小以適合頁眉或頁腳節框。

要解決此問題，您只需調整頁眉或頁腳中的圖片大小，請執行以下步驟：

1。 單擊圖像所在的頁眉或頁腳部分，然後單擊“確定”。 格式化圖片 在 設計 標籤，請參見屏幕截圖：

2。 在 格式化圖片 對話框中的 尺寸 標籤，請調整圖像的大小以適合頁眉或頁腳部分的框，請參見屏幕截圖：

3。 然後，單擊 OK，您將根據需要獲得結果。

1。 打開要在其中插入背景圖像的工作表。

2。 然後，點擊 頁面佈局 > 背景，請參見屏幕截圖：

3。 在彈出 插入圖片 窗口，請根據需要從計算機，網站或OneDrive中選擇一張圖片，請參見屏幕截圖：

4。 現在，該圖像已作為背景插入到工作表中，如下圖所示：

使用上述方法，您無法更改插入的背景圖像的透明度，因此，如果背景圖像的顏色較深，將不方便您讀取工作表的數據。 在本節中，我將討論如何在單元格後面插入透明圖片。

1。 點擊 插入 > 形狀，然後選擇一個矩形形狀，請參見屏幕截圖：

2。 然後，在活動工作表中繪製所需形狀的形狀。

3。 繪製形狀後， 繪圖工具 選項卡顯示在功能區中，然後單擊 格式 > 形狀輪廓 > 沒有大綱，請參見屏幕截圖：

4。 然後，右鍵單擊該形狀，然後選擇 格式形狀 從上下文菜單中，查看屏幕截圖：

5。 在擴展中 格式形狀 窗格中的 填充線 選項卡，請執行以下操作：

• 下 填 部分，選擇 圖片或紋理填充 選項;
• 點擊 插入 按鈕 圖片來源，然後選擇一張要插入的圖片；
• 然後，根據需要調整圖片的透明度 透明y部分。
• 

6。 然後，您將看到充滿圖片的形狀看起來像是背景圖像，如上面的屏幕快照所示。

備註：插入這種類型的背景圖像後，將不允許您在圖片範圍內輸入任何文本。

以上兩種方法都有其自身的局限性，第一種方法不能更改圖像的透明度，第二種方法不允許將文本輸入到圖片區域內的單元格中。 為了解決這些問題， Excel的Kutools“ 插入水印 功能可以幫您一個忙。

安裝後 Excel的Kutools，請這樣做：

1。 點擊 庫工具 > 插入 > 插入水印，請參見屏幕截圖：

2。 在彈出 插入水印 對話框中選擇 圖片水印，然後單擊 選擇圖片 按鈕選擇要插入的一張圖像，然後指定圖像比例並選中“沖洗”選項，請參見屏幕截圖：

3。 然後，點擊 Ok 按鈕，圖片已作為背景圖像插入到工作表中。

在Excel中，您可以使用 複製為圖片 用於復制和插入一定範圍的單元格作為圖像的功能。

1。 選擇要復制並插入為圖像的單元格範圍。

2。 然後，點擊 首頁 > 複製 > 複製為圖片，請參見屏幕截圖：

3。 在彈出 複製圖片 對話框中選擇 圖片 來自 格式 部分，請參見屏幕截圖：

4。 然後，點擊 OK 按鈕，現在，您只需要按 按Ctrl + V 將該圖像粘貼到工作簿的任何位置。

在Excel中，有一個 相機 可以幫助您為所選數據拍照的工具，然後將其粘貼為圖像。 當原始數據更改時，複製的圖像將動態更改。

首先，您應該顯示 相機 在功能區上，然後將其應用。

1。 點擊 自定義快速訪問工具欄 圖標，然後單擊 更多命令 選項，請參見屏幕截圖：

2。 在開 Excel選項 對話框，請執行以下操作：

• 選擇 所有的命令 來自 從中選擇命令 落下;
• 然後，滾動選擇 相機 從列錶框中；
• 然後，單擊 加入 按鈕將此工具添加到 自定義快速訪問工具欄;
• 最後點擊 OK 關閉此對話框。
• 

3。 而且 相機 工具已顯示在功能區上，請參見屏幕截圖：

4。 然後，選擇所需圖像的單元格範圍。

5。 然後，點擊 相機 工具，然後轉到工作表並單擊任意位置，數據范圍將作為圖像插入，如下圖所示：

如果你有 Excel的Kutools，其 資源庫 功能，您可以將所選數據保存到 資源庫，然後根據需要將其用作圖像或文本以備將來使用。

安裝後 Excel的Kutools，請這樣做：

1。 選擇要插入為圖像的數據范圍。

2。 然後，點擊 庫工具 > 導航，請參見屏幕截圖：

3。 在擴展中 導航 窗格中單擊 資源庫 圖標，然後單擊 將所選內容添加到資源庫 圖標，請參見屏幕截圖：

4。 在 新資源庫條目 對話框中，為此項目指定一個名稱，然後選擇要添加到的組。 看截圖：

5。 然後，點擊 加入 按鈕將其添加到 資源庫 窗格。 如果要將此範圍作為圖片插入，只需單擊一個單元格以找到圖片，然後從菜單中找到已保存的項目。 資源庫 窗格，然後單擊 插入為 > 圖片（EMF） 從項目的下拉列表中。 數據范圍將作為圖像插入到工作表中，請參見屏幕截圖：

通常，在Excel中，您可以創建一個動態的命名範圍，然後使用鏈接的圖片在Excel中解決此任務。

1。 首先，您應該創建兩列，其中包含產品名稱和相關圖像，請參見屏幕截圖：

2。 然後，請為單元格值創建一個下拉列表。 單擊一個單元格以輸出下拉列表，然後單擊 數據 > 數據驗證 > 數據驗證，請參見屏幕截圖：

3。 在彈出 數據驗證 對話框中的 設定 標籤，選擇 名單 來自 讓 下拉菜單，然後從列表中選擇要創建下拉列表的單元格 資源 文本框，請參見屏幕截圖：

4。 點擊 OK，並且帶有單元格值的下拉列表已創建，請從下拉列表中選擇一項，請參見屏幕截圖：

5。 然後，點擊 公式 > 定義名稱，請參見屏幕截圖：

6。 在 新名字 對話框，請執行以下操作：

• 在其中輸入一個名為myimage的名稱。 姓名 文本框;
• 然後復制並粘貼此公式： =INDEX(Sheet11!$A$2:$B$6,MATCH(Sheet11!$E$2,Sheet11!$A$2:$A$6,0),2) 進入“引用”文本框。

備註：在以上公式中：

• Sheet11！$ A $ 2：$ B $ 6：是工作表和範圍，其中包含您要使用的值和圖片；
• Sheet11！$ E $ 2：是工作表中創建下拉列表的單元格；
• Sheet11！$ A $ 2：$ A $ 6：是您要創建的單元格列表，基於下拉列表；
• 可變數 2 是包含圖像的列號。 如果圖像在C列中，則應輸入3。

7。 然後，單擊 OK 按鈕，然後將基於E2中單元格值的相應圖片從原始範圍複製並粘貼到單元格F2中，請參見屏幕截圖：

8。 接下來，請選擇單元格F2中的圖片，然後輸入此公式 = myimage (我的形象 是您在步驟6）中創建的範圍名稱（在公式欄中），請參見屏幕截圖：

9。 輸入公式後，按 Enter 鍵，現在，當您從下拉列表中選擇一項時，其相關圖片將立即顯示。 看截圖：

對於我們大多數人來說，上述方法可能很困難，在這裡，我將介紹一個方便的功能– 圖片下拉列表 of Excel的Kutools，使用此有用的工具，只需單擊幾下即可創建帶有其相對圖像的多個下拉列表。

安裝後 Excel的Kutools，請執行以下步驟：

1。 首先，您應該在工作表中創建兩列，其中包含產品名稱和相對圖像。

2。 然後，單擊 庫工具 > 下拉列表 > 圖片下拉列表，請參見屏幕截圖：

3。 在 圖片下拉列表 對話框中，如果已創建單元格值和圖像的列，請忽略step1，然後選擇原始數據和圖像範圍以及輸出範圍，請參見屏幕截圖：

4。 然後，單擊 Ok 按鈕，已將包含圖像的下拉列表創建到選定的單元格中，並且當從下拉單元格中選擇一個項目時，將立即顯示其對應的圖片，請參見以下演示：

通常，您可以使用 另存為 功能來保存工作簿中的所有圖像，請按以下步驟操作：

1。 點擊 文件 > 另存為在 另存為 窗口，指定一個文件夾來放置導出的文件，然後選擇 網頁（* .htm; *。html） 來自 除上文所 鍵入下拉列表，請參見屏幕截圖：

2。 然後點擊 節省 按鈕，轉到特定的文件夾，您將看到兩個文件，一個是HTML格式的文件，另一個是包含工作簿中的圖片，圖表或其他對象的文件夾。 看截圖：

3。 然後，您可以根據需要將圖像僅拖到另一個文件夾。

備註：通過使用此 另存為 功能，您將獲得每張圖片兩次，一張較小，另一張較大，因此您可以根據需要保存更高分辨率的圖像。

要保存Excel文件中的所有圖像，您還可以將文件擴展名更改為RAR。 請這樣做：

1。 更改文件擴展名 XLSX 至 罕見 如下圖所示：

2。 然後，解壓縮文件，您將在文件夾中看到3個文件夾和1個文件，請參見屏幕截圖：

3。 然後，單擊以打開 xl 文件夾，然後打開 媒體 文件夾，您將看到所有圖像都存儲在此處，沒有重複項，請參見屏幕截圖：

如果你有 Excel的Kutools，其 導出圖形 功能，您可以根據需要快速將某些特定對象（例如圖片，圖表，形狀）導出為圖像格式。

安裝後 Excel的Kutools，請執行以下步驟：

1。 點擊 Kutools 加 > 進出口 > 導出圖形，請參見屏幕截圖：

2。 在 導出圖形 對話框中，進行以下操作：

• 選擇 圖片 選項從 類型 下拉列表;
• 指定一個文件夾來保存導出的圖片；
• 然後從 導出格式 為圖片選擇一種格式。
• 

3。 最後點擊 Ok 按鈕，當前工作簿中的所有圖像均已保存到您指定的文件夾中，請參見屏幕截圖：

要從當前工作表中刪除圖片，下面的VBA代碼可以為您提供幫助，請按以下步驟操作：

1。 激活包含要刪除的圖像的工作表。

2。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

3。 點擊 插入 > 模塊，然後將以下宏粘貼到 模塊 窗口。

VBA代碼：從當前工作表中刪除所有圖片

Sub DeleteAllPics()
'Updateby Extendoffice
Dim Pic As Object
For Each Pic In ActiveSheet.Pictures
Pic.Delete
Next Pic
End Sub

4。 然後按 F5 鍵以運行此代碼，並同時刪除活動工作表中的所有圖片。

如果您只需要刪除一系列單元格中的圖像，這是另一個簡單的代碼可以為您提供幫助。

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2。 點擊 插入 > 模塊，然後將以下宏粘貼到 模塊 窗口。

VBA代碼：從一系列單元格中刪除圖片

Sub DeletePic()
'Updateby Extendoffice
    Dim xPicRg As Range
    Dim xPic As Picture
    Dim xRg As Range
    Application.ScreenUpdating = False
    Set xRg = Range("B4:C6")
    For Each xPic In ActiveSheet.Pictures
        Set xPicRg = Range(xPic.TopLeftCell.Address & ":" & xPic.BottomRightCell.Address)
        If Not Intersect(xRg, xPicRg) Is Nothing Then xPic.Delete
    Next
    Application.ScreenUpdating = True
End Sub

備註：在上面的代碼中， B4：C6 是您要從中刪除圖片的範圍。

3。 然後按 F5 鍵運行此代碼，所選範圍內的圖片將被立即刪除，請參見屏幕截圖：

如果你有 Excel的Kutools，其 刪除插圖和對象 功能，您可以快速從工作表，某些選定的工作表或整個工作簿中刪除圖像。

安裝後 Excel的Kutools，請執行以下步驟：

1。 點擊 庫工具 > 刪除 > 刪除插圖和對象，請參見屏幕截圖：

2。 在開 刪除插圖和對象 對話框，檢查 圖片 來自 刪除 部分，然後指定要從中刪除圖片的範圍 在看 部分，請參見屏幕截圖：

3。 然後點擊 Ok 按鈕，所有圖片將從您指定的工作表，選定的工作表或整個工作簿中刪除。