Excel 圖片：在 Excel 中插入、調整大小、保存、刪除多個圖片

對於大多數人來說，將存儲在電腦上的圖片插入到工作表中是很容易的。請按以下步驟操作：

1. 在工作表中，點擊您想要插入圖片的位置。

2. 然後，點擊插入 > 圖片 > 此設備，見截圖：

3. 在彈出的插入圖片窗口中，打開包含圖片的文件夾，然後按住 Ctrl 鍵選擇您想要插入的圖片，見截圖：

4. 然後，點擊插入按鈕，選定的圖片已插入到工作表中。現在，您可以調整或更改圖片的大小以適應您需要的單元格，見截圖：

如果您擁有 Excel2013 或更高版本，您可以從網路或 OneDrive 插入圖片，請按以下步驟操作：

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代碼，這裡您可以使用 Kutools for Excel 的強大功能——導入圖片。使用此實用功能，您可以快速輕鬆地將多個圖片導入到單元格中。

1. 點擊 Kutools Plus > 導入 & 匯出 > 導入圖片，見截圖：

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

• 從導入順序下拉列表中指定圖片順序，您可以選擇先行後列或先列後行；
• 然後，點擊添加按鈕選擇圖片文件或文件夾以將圖片添加到圖片列表中；
• 點擊 導入大小按鈕，在 導入圖片大小對話框中，選擇匹配儲存格大小選項。
• 

3. 完成設置後，請點擊導入按鈕，現在，另一個導入圖片彈出，指定您將導入圖片的目標單元格，見截圖：

4. 然後，點擊確定按鈕，所有選定的圖片已插入以匹配特定單元格的大小，如下截圖所示：

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

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

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

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. 然後，點擊 確定按鈕，彈出一個提示框，請選擇包含圖片名稱的單元格，見截圖：

5. 繼續點擊確定按鈕，然後彈出另一個提示框，請選擇您想要輸出圖片的單元格，見截圖：

6. 最後，點擊確定，圖片已根據其名稱立即插入到單元格中，見截圖：

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

1. 點擊 Kutools Plus > 導入 & 匯出 > 匹配導入圖片，見截圖：

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

• 從導入順序下拉列表中指定圖片順序，您可以選擇 先行後列或先列後行；
• 然後，從匹配區域文本框中，選擇您想要根據圖片名稱插入圖片的名稱；
• 然後，點擊添加按鈕選擇圖片文件或文件夾以將圖片添加到圖片列表中；
• 接下來，您應該指定圖片大小。請點擊導入大小按鈕，在導入圖片大小對話框中，選擇一個您需要的圖片大小。
• 

3. 完成設置後，請點擊導入按鈕，從彈出的匹配導入圖片對話框中選擇一個單元格或一個單元格列表以定位圖片，見截圖：

4. 然後，點擊確定，所有與單元格值匹配的圖片名稱的圖片已插入，見截圖：

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

1. 首先，調整您想要定位圖片的相鄰單元格大小。

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

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

VBA代碼：從網址列表插入圖片

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 是包含您想要提取圖片的網址地址的單元格範圍，您應該根據需要更改單元格引用。

4. 然後按 F5 鍵運行此代碼，匹配的圖片將從網址中提取到相鄰列並放置在單元格的中心，見截圖：

Kutools for Excel 有一個驚人的功能—— 從路徑（網址）插入圖片。使用此工具，對應的圖片將快速輕鬆地從網址中提取。

1. 點擊 Kutools > 插入 > 從路徑(網址)插入圖片，見截圖：

2. 在彈出的從路徑(網址)插入圖片對話框中，請設置以下操作：

• 選擇網址單元格列表和您想要放置圖片的單元格範圍；
• 從圖片大小部分根據需要指定圖片的大小。
• 

3. 然後，點擊確定按鈕，所有圖片已從網址中提取，見截圖：

您可以應用以下 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. 然後點擊確定按鈕，所有基於檔案路徑的圖片已顯示到下一列，如下截圖所示：

Kutools for Excel 的從路徑（網址）插入圖片功能也可以幫助您顯示來自檔案路徑的相關圖片。

1. 點擊 Kutools > 插入 > 從路徑(網址)插入圖片，在彈出的對話框中，請指定檔案路徑範圍、輸出圖片的範圍、圖片大小，見截圖：

2. 設置選項後，點擊確定按鈕，圖片將立即插入到選定的單元格中，見截圖：

提示：有時，您可能會發現圖片與工作表的數據區域重疊，如下截圖所示。這是因為圖片太大，無法自動調整大小以適應頁首或頁尾部分框。

要解決此問題，您只需調整頁首或頁尾中的圖片大小，請按照以下步驟操作：

1. 點擊圖片所在的頁首或頁尾部分，然後在設計選項卡下點擊格式圖片，見截圖：

2. 在格式圖片對話框中，大小選項卡下，請調整圖片的大小以適應頁首或頁尾部分框，見截圖：

3. 然後，點擊確定，您將獲得所需的結果。

1. 打開您想要插入背景圖片的工作表。

2. 然後，點擊 頁面佈局 > 背景，見截圖：

3. 在彈出的 插入圖片窗口中，請從您的電腦、網站或 OneDrive 中選擇一張圖片，見截圖：

4. 現在，圖片已作為背景插入到工作表中，如下截圖所示：

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

1. 點擊插入 >形狀，然後選擇一個矩形形狀，見截圖：

2. 然後，在當前工作表中繪製一個您需要大小的形狀。

3. 繪製形狀後，功能區中顯示繪圖工具選項卡，然後點擊格式 >形狀輪廓 > 無輪廓，見截圖：

4. 然後，右鍵單擊形狀，選擇格式化形狀，見截圖：

5. 在展開的格式化形狀窗格中，填充和線條選項卡下，執行以下操作：

• 在填充部分，選擇 圖片或紋理填充選項；
• 從圖片來源中點擊 插入按鈕，選擇您想要插入的圖片；
• 然後，從透明度部分根據需要調整圖片的透明度。
• 

6. 然後，您將看到填充圖片的形狀看起來像背景圖片，如上截圖所示。

注意：插入此類背景圖片後，您將無法在圖片範圍內輸入任何文字。

上述兩種方法各有其限制，第一種方法無法更改圖片透明度，第二種方法不允許在圖片區域內的單元格中輸入文字。為了解決這些問題， Kutools for Excel 的插入水印功能可以幫助您。

1. 點擊 Kutools > 插入 > 插入水印，見截圖：

2. 在彈出的插入水印對話框中，選擇圖片水印，然後點擊選擇圖片按鈕選擇您想要插入的圖片，然後指定圖片縮放比例並勾選沖蝕選項，見截圖：

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

在 Excel 中，您可以使用複製為圖片功能將一範圍的單元格複製並插入為圖片。

1. 選擇您想要複製並插入為圖片的單元格範圍。

2. 然後，點擊 首頁 > 複製 > 複製為圖片，見截圖：

3. 在彈出的複製圖片對話框中，從格式部分選擇圖片，見截圖：

4. 然後，點擊確定按鈕，現在，您只需按 Ctrl + V 將圖片粘貼到工作簿的任意位置。

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

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

1. 點擊自訂快速訪問工具欄圖標，然後點擊更多命令選項，見截圖：

2. 在打開的 Excel 選項對話框中，請執行以下操作：

• 從選擇命令來源下拉列表中選擇所有命令；
• 然後，從列表框中滾動選擇相機；
• 然後，點擊添加按鈕將此工具添加到自訂快速訪問工具欄；
• 最後，點擊確定關閉此對話框。
• 

3. 相機工具已顯示在功能區上，見截圖：

4. 然後，選擇您想要作為圖片的單元格範圍。

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

如果您有 Kutools for Excel，使用其資源庫功能，您可以將選定的數據保存到資源庫中，然後根據需要將其用作圖片或文字。

1. 選擇您想要插入為圖片的數據範圍。

2. 然後，點擊 Kutools > 導航，見截圖：

3. 在展開的導航窗格中，點擊資源庫圖標，然後點擊將選定內容新增到資源庫圖標，見截圖：

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

5. 然後，點擊添加按鈕將其添加到資源庫窗格。如果您想將此範圍插入為圖片，只需點擊一個單元格以定位圖片，然後從資源庫窗格中找到保存的項目，然後從項目的下拉列表中點擊插入為 > 圖片(EMF)。數據範圍將作為圖片插入到工作表中，見截圖：

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

1. 首先，您應該創建兩列，其中包含產品名稱和相關圖片，見截圖：

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

3. 在彈出的數據驗證對話框中， 設置選項卡下，從 允許下拉列表中選擇列表，然後從來源文本框中選擇您想要創建下拉列表的單元格，見截圖：

4. 點擊 確定，單元格值的下拉列表已創建，從下拉列表中選擇一個項目，見截圖：

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. 然後，點擊 確定按鈕，然後請從原始範圍中根據 E2 單元格值複製並粘貼相應的圖片到 F2 單元格，見截圖：

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

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

上述方法對於大多數人來說可能很困難，這裡，我將介紹一個便捷功能——Kutools for Excel 的建立圖片下拉清單，使用此實用工具，您可以僅需幾次點擊即可創建多個下拉列表及其相關圖片。

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

2. 然後，點擊 Kutools > 下拉列表 > 建立圖片下拉清單，見截圖：

3. 在建立圖片下拉清單對話框中，如果您已創建了單元格值和圖片的列，請忽略步驟1，然後，選擇原始數據和圖片範圍以及輸出範圍，見截圖：

4. 然後，點擊確定按鈕，帶有圖片的下拉列表已創建到選定的單元格中，當從下拉單元格中選擇一個項目時，其對應的圖片將立即顯示，見下方演示：

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

1. 點擊文件 >另存為，在另存為窗口中，指定一個文件夾以放置匯出的文件，然後從 保存格式下拉列表中選擇網頁(*.htm;*.html)，見截圖：

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

3. 然後您可以根據需要將圖片拖到另一個文件夾中。

注意：通過使用此另存為功能，您將獲得每張圖片的兩個版本，一個較小，另一個較大，因此您可以根據需要保存更高解析度的圖片。

要從 Excel 文件中保存所有圖片，您還可以將文件擴展名更改為 RAR。請按以下步驟操作：

1. 將文件擴展名 xlsx 更改為 rar，如下截圖所示：

2. 然後，解壓縮文件，您將看到文件夾中有3 個文件夾和1 個文件，見截圖：

3. 然後，點擊打開 xl 文件夾，然後打開 media 文件夾，您將看到所有圖片都存儲在這裡，沒有重複，見截圖：

如果您有 Kutools for Excel，使用其匯出圖形功能，您可以快速匯出一些特定對象，如圖片、圖表、形狀到您需要的圖片格式。

1. 點擊 Kutools Plus > 導入 & 匯出 > 匯出圖形，見截圖：

2. 在匯出圖形對話框中，執行以下操作：

• 從類型下拉列表中選擇圖片選項；
• 指定一個文件夾以保存您的匯出圖片；
• 然後從匯出格式的下拉列表中選擇一個圖片格式。
• 

3. 最後，點擊 確定按鈕，當前工作簿中的所有圖片已保存到您指定的文件夾中，見截圖：

要從當前工作表中刪除圖片，以下 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 鍵運行此代碼，選定範圍中的圖片將立即被刪除，見截圖：

如果您有 Kutools for Excel，使用其刪除插圖和對象功能，您可以快速從工作表、一些選定的工作表或整個工作簿中刪除圖片。

1. 點擊 Kutools > 刪除 > 刪除插圖和對象，見截圖：

2. 在打開的刪除插圖和對象對話框中，從刪除部分勾選圖片，然後在 尋找範圍部分指定您想要刪除圖片的範圍，見截圖：

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