Excel 圖片：在 Excel 中插入、調整大小、儲存、刪除多張圖片或影像
無論您需要從電腦、網路或 OneDrive 插入圖片，還是將圖片鎖定至特定儲存格，本指南都為您提供完整解決方案。您還能學會如何根據儲存格值動態顯示圖片、調整與對齊多張圖片、將圖片嵌入註解或頁首／頁尾，以及建立動態圖片下拉式選單。針對匯出、重新命名、設定圖片為浮動，或從選區與工作表中刪除圖片等進階操作，本指南亦提供逐步說明，帶領您輕鬆完成每個流程。
從電腦、網路或 OneDrive 將插入圖片或圖片插入工作表
所有 Excel 版本皆支援從電腦插入圖片，但若您想從網路或 OneDrive 插入圖片，則需使用 Excel 2013 或更新版本。
從電腦插入插入圖片或圖片
對多數人而言，將電腦中儲存的圖片插入工作表輕而易舉。請依照下列步驟操作：
1. 在工作表中，點選您要插入圖片的位置。
2. 接著，請點選插入> 圖片> 此裝置，操作畫面請參閱下方螢幕截圖：
3. 在彈出的插入圖片視窗中，開啟包含圖片的資料夾，按住 Ctrl 鍵即可選取多張要插入的圖片，請參閱下方螢幕截圖：
4. 接著，點擊插入按鈕，所選圖片就會插入至工作表中。現在，您可以輕鬆調整或縮放圖片至目標儲存格，詳情請參閱下方螢幕截圖：
從網路或 OneDrive 插入插入圖片或圖片
如果您使用的是 Excel 2013 或更新版本，可從網頁或 OneDrive 插入圖片，請依照下列步驟操作：
1. 在工作表中，點選您要插入圖片的位置。
2. 接著，點選插入> 圖片> 線上圖片，請參閱螢幕截圖：
3. 在線上圖片區段中，於文字方塊輸入您要搜尋的內容，並按下 Enter 鍵，系統將立即顯示相關圖片的搜尋結果。請參閱螢幕截圖：
4. 選取您想要的圖片後，再按一下插入按鈕；插入完成後，即可調整或縮放圖片至理想位置。
提示：
1. 若要搜尋特定圖片，可依大小、類型、版面配置或色彩等條件篩選，快速找到符合需求的圖片。
2. 除了從 Bing 搜尋插入圖片外，您也能輕鬆插入儲存在 OneDrive 上的圖片！在下方視窗中，點擊左下角的 OneDrive，即可選取要插入的圖片。
將圖片或影像鎖定至 Excel 儲存格
一般情況下，將圖片插入儲存格後，當您調整儲存格大小、進行篩選或隱藏包含圖片的儲存格時，圖片並不會隨該儲存格同步調整大小或一併篩選／隱藏，如下方示範所示。
在此情況下，您應將圖片鎖定至儲存格，使其能隨儲存格一併調整大小、篩選或隱藏，請依下列步驟操作：
1. 點選任一圖片後，按下 Ctrl + A 即可選取工作表中的所有圖片。
2. 接著，右鍵點選任一圖片，並從快捷選單中選擇大小與屬性，請參見截圖：
3. 在展開的圖片格式窗格中，於屬性區段選取隨儲存格移動並調整大小選項，請參閱截圖：
4. 接著關閉圖片格式窗格。現在，當您調整儲存格大小、進行篩選或隱藏儲存格時，圖片也會隨之移動、篩選或隱藏！
在 Excel 中插入多張圖片或影像
有時您可能需要將多張圖片插入儲存格，並讓圖片自動調整大小以完美契合儲存格尺寸，無需手動調整或拖曳。本文將介紹兩種在 Excel 中實現此功能的方法。
使用 VBA 程式碼插入多張圖片或影像並調整大小以符合儲存格
下列 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 程式碼依檔名插入多張圖片或影像
下列 VBA 程式碼可協助您快速插入與檔名相符的多張圖片，請依下列步驟操作：
1. 按住 ALT + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。
2. 點選 Insert >Module，並將下列巨集貼到 Module 視窗中。
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，圖片便會立即根據檔名插入至對應儲存格中，請參閱截圖：
使用實用功能依檔名插入多張圖片或影像
只要您已安裝 Kutools for Excel，就能透過其匹配導入圖片功能，快速又輕鬆地根據圖片名稱插入圖片！
Kutools for Excel－內含超過 300 項 Excel 必備工具，讓您的 Excel 作業更快速、更簡單、更高效！立即下載！
1. 點選 KUTOOLS PLUS > 匯入匯出 > 匹配導入圖片，請參閱截圖：
2. 在彈出的 Match Import Picture 對話方塊中，請執行下列操作：
- 從導入順序下拉式清單指定圖片順序，您可以選擇先行後列或先列後行；
- 接著，從匹配區域文字方塊中，選取您要據以插入圖片的圖片名稱；
- 然後，按一下新增按鈕，以選取要將圖片加入的圖片文件或資料夾至圖片列表；
- 接下來，請指定圖片尺寸：點擊導入大小按鈕，在匯入圖片尺寸對話方塊中，依需求選擇合適的圖片尺寸。
3. 完成設定後，請點選 Import 按鈕，並從彈出的匹配導入圖片對話方塊中選擇一個儲存格或儲存格範圍，以指定圖片位置。請參閱截圖：
4. 接著點選 OK，所有檔名與儲存格值相符的圖片都已插入，請參閱下方截圖：
從 URL 插入或顯示圖片或影像
您是否曾想從 URL 清單直接顯示或插入圖片？雖然 Excel 本身沒有內建這項功能，但透過簡單的程式碼或第三方工具，就能輕鬆達成！
使用 VBA 程式碼從 URL 插入或顯示圖片或影像
請使用下列 VBA 程式碼，根據 URL 清單插入圖片。
2. 首先調整相鄰儲存格的大小，以放置圖片。
2. 按住 ALT + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗！
3. 點選 Insert>Module，並將下列巨集貼到 Module 視窗中。
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 提取至相鄰欄位，並置中於儲存格內，請參閱截圖：
使用驚人功能從 URL 插入或顯示圖片或影像
Kutools for Excel 具備一項強大功能－從路徑（URL）插入圖片，讓您快速輕鬆地從 URL 提取對應圖片！
1. 點選 Kutools > Insert > 從路徑插入圖片，請參閱截圖：
2. 在彈出的從路徑插入圖片對話方塊中，請進行下列設定：
- 選取 URL 儲存格清單以及您要放置圖片的儲存格範圍；
- 在圖片尺寸區段中，依需求設定圖片尺寸。
3. 接著點選 Ok 按鈕，所有圖片皆已從 URL 提取完畢，請參閱下方截圖：
從檔案路徑插入或顯示圖片或影像
若您需要從檔案路徑插入圖片，這裡也為您提供相應的解決方案。
使用 VBA 程式碼從檔案路徑插入或顯示圖片或影像
您可以套用下列 VBA 程式碼，依照圖片檔案路徑插入圖片。
1. 按住 ALT + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。
2. 點選 Insert>Module，並將下列程式碼貼到 Module 視窗中。
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 按鈕，所有基於檔案路徑的圖片就會顯示於下一欄，如下方截圖所示：
使用驚人功能從檔案路徑插入或顯示圖片或影像
Kutools for Excel 的從路徑插入圖片功能，也能協助您根據檔案路徑輕鬆顯示對應圖片！
Kutools for Excel－內含超過 300 項 Excel 必備工具，讓您的 Excel 作業更快速、更簡單、更高效！立即下載！
1. 點選 Kutools > Insert > 從路徑插入圖片，在彈出的對話方塊中，請依需求設定檔案路徑範圍、圖片輸出範圍及圖片大小，詳情請參閱截圖：
2. 完成設定後，點選 Ok 按鈕，圖片將立即插入至所選儲存格中，請參閱截圖：
將插入圖片或圖片插入註解
將圖片插入儲存格或許很簡單，但有時您可能希望將圖片插入註解框，該如何達成這項任務？
1. 選取要插入註解的儲存格，按右鍵後選擇插入註解，請參見截圖：
2. 將游標懸停於註解框邊緣，待游標變為四向箭頭圖示後，右鍵點選並選擇格式化註釋選項，請參見截圖：
3. 在彈出的格式化註釋對話方塊中，點選色彩與線條索引標籤，然後從色彩下拉清單中的填滿效果選取，請參見截圖：
4. 在隨即出現的填滿效果對話方塊中，點選圖片索引標籤，再點選選擇圖片按鈕以選取要插入的圖片，請參見截圖：
5. 接著點選確定> 確定，圖片即已插入註解框，請參閱截圖：
將插入圖片或圖片插入頁首或頁尾
若您想將圖片插入 Excel 工作表的頁首或頁尾，本節步驟可協助您達成，請依下列方式操作：
1. 啟用您要將圖片插入頁首或頁尾的工作表。
2. 接著點選插入＞ 頁首與頁尾，即可進入頁首與頁尾工具索引標籤。請參見截圖：
3. 若要在頁首或頁尾插入圖片，請依需求點選左側、右側或頁眉中間的頁首／頁尾框，接著於設計索引標籤中點選圖片，請參見截圖：
4. 接著會彈出一個插入圖片視窗，請選擇您要新增的圖片並點擊「插入」。此時，標頭或頁尾框中將出現一個 &[Picture]佔位符。點擊標頭或頁尾框以外的任意位置，即可完成圖片插入，效果如以下截圖所示：
提示：有時您可能會發現圖片與工作表的資料區域重疊，如下方截圖所示。這是因為圖片尺寸過大，系統不會自動調整其大小以符合頁首或頁尾區塊。
若要解決此問題，只需調整頁首或頁尾中的圖片大小，請依照下列步驟操作：
1. 點選圖片所在的頁首或頁尾區塊，再於 Design 索引標籤下點選 Format Picture，請參閱截圖：
2. 在 Format Picture 對話方塊中，切換至 Size 索引標籤，調整圖片大小以完美契合頁首或頁尾區塊，詳情請參閱截圖：
3. 接著點選 OK，即可獲得所需結果。
在多個工作表中插入相同的影像或圖片
有時您可能希望將公司標誌圖片插入活頁簿中的所有工作表。一般做法是逐一使用「插入」功能，從一個工作表到另一個工作表逐張加入圖片。除了這種耗時的方式外，以下 VBA 程式碼可協助您一次性將同一張圖片插入所有工作表的指定儲存格中。請依照下列步驟操作：
1. 按住 ALT + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。
2. 點選插入＞ 模組，並將下列程式碼貼到模組視窗中。
VBA 程式碼：在所有工作表中插入相同的圖片：
Sub InsertImagetoallsheets()
'Updateby Extendoffice
Dim I As Long
Dim xPath As String
Dim xShape As Shape
Dim xRg As Range
xPath = "C:\Users\AddinTestWin10\Desktop\my images\logo.png"
If Dir(xPath) = "" Then
MsgBox "Picture file was not found in path!", vbInformation, "KuTools for Excel"
Exit Sub
End If
For I = 1 To ActiveWorkbook.Sheets.Count
Set xRg = Sheets(I).Range("A1")
Set xShape = Sheets(I).Shapes.AddPicture(xPath, True, True, xRg.Left, xRg.Top, xRg.Width, xRg.Height)
Next
End Sub
注意：在上述程式碼中，C:\Users\AddinTestWin 10\Desktop\my images\logo.png 為圖片的路徑與檔名，而 A1 在 Range("A1") 中代表您要插入圖片的儲存格，請依實際需求調整這些設定。
3. 接著按下 F5 鍵執行此程式碼，指定圖片將立即插入至每個工作表的 A1 儲存格中！請參閱下方示範：
插入圖片或將圖片置於儲存格內容後方
想讓工作表資料更美觀吸睛？您可以將圖片設為背景！若希望將圖片置於儲存格內容後方，以下幾種方法能助您輕鬆達成目標。
插入圖片或使用「背景」功能將圖片置於儲存格內容後方
1. 開啟您要插入背景圖片的工作表。
2. 接著，按一下版面配置 > 背景，請參閱截圖：
3. 在彈出的插入圖片視窗中，請根據需求從您的電腦、網站或 OneDrive 選擇圖片，詳情請參閱截圖：
4. 圖片已成功插入為工作表背景，如下方截圖所示：
提示：若要刪除背景圖片，只需點選版面配置 > 刪除背景。請參閱螢幕截圖：
將透明圖片或影像插入至儲存格內容後方
使用上述方法時，您無法調整插入背景圖片的透明度。若背景圖片顏色過深，將影響工作表資料的可讀性。本節將說明如何在儲存格後方插入帶有透明效果的圖片。
1. 點選插入＞ 圖案，並選擇矩形圖案，請參閱截圖：
2. 接著，在作用中的工作表中繪製所需尺寸的圖案。
3. 在繪製圖案後，繪圖工具選項卡會顯示於功能區中，接著按一下格式> 圖案外框> 無外框，請參閱截圖：
4. 接著，以滑鼠右鍵按一下該圖案，並從快捷功能表中選取設定圖案格式，請參閱截圖：
5. 在展開的設定圖案格式窗格中，於填滿與線條索引標籤下執行下列操作：
- 在填滿區段中，選取圖片或材質填滿選項；
- 按一下插入按鈕（位於）圖片來源），並選擇要插入的圖片；
- 接著，從透明度區段中，依需求調整圖片的透明度。
6. 接著，您會看到填滿圖片的圖案，看起來就如同背景圖片，如上方截圖所示。
注意：插入此類型的背景圖片後，您將無法在圖片範圍內輸入任何文字。
將透明圖片或影像作為浮水印插入至儲存格內容後方
上述兩種方法各有其限制：第一種無法調整圖片透明度，第二種則不允許在圖片區域內的儲存格輸入文字。為解決這些問題，Kutools for Excel 的插入水印功能可助您一臂之力！
1. 點擊 Kutools> 插入> 插入浮水印，請參閱截圖：
2. 在彈出的插入水印對話方塊中，選取圖片水印，然後點擊選擇圖片按鈕，挑選要插入的圖片，並設定圖片縮放比例及勾選「沖淡」選項，詳情請參閱截圖：
3. 接著，按一下確定按鈕，即可將圖片插入為工作表的背景圖片。
在 Excel 中以圖片格式插入儲存格範圍
您是否曾想將儲存格範圍複製並以圖片形式插入 Excel？本節將為您介紹幾種在 Excel 中快速達成此操作的實用方法。
使用「複製為圖片」功能以圖片格式插入儲存格範圍
在 Excel 中，您可以使用複製為圖片功能，將儲存格範圍複製並插入為圖片。
1. 選取您要複製並以圖片形式插入的儲存格範圍。
2. 接著，請按一下開始＞ 複製＞ 複製為圖片，詳情請參閱截圖：
3. 在彈出的複製圖片對話方塊中，於圖片區段選取格式，請參閱截圖：
4. 接著，按一下確定按鈕，即可在活頁簿中任意位置按下 Ctrl + V 貼上圖片。
使用「相機」工具以圖片格式插入儲存格範圍
Excel 內建一個相機工具，能為您選取的資料拍攝快照，並以圖片形式貼上。當原始資料更新時，複製的圖片也會同步動態刷新！
首先，您應先在相機功能區上顯示
1. 點擊自訂快速存取工具列圖示，再點選其他命令選項，詳情請參閱截圖：
2. 在開啟的 Excel 選項對話方塊中，請執行下列操作：
- 從所有命令中選取從下列位置選擇命令下拉式清單；
- 然後，捲動清單方塊以選取相機；
- 接著，按一下新增按鈕，將此工具加入自訂快速存取工具列；
- 最後，按一下確定即可關閉此對話方塊。
3. 此時，相機工具已顯示於功能區上，請參閱下方截圖：
4. 接著，選取您要轉換為圖片的儲存格範圍。
5. 接著，點選相機工具，再於工作表任意位置點擊一下，數據區域便會以下方示範的方式插入為圖片：
使用實用功能以圖片格式插入儲存格範圍
如果您已安裝 Kutools for Excel，可透過其資源庫功能，將選取的數據儲存至資源庫，日後便能依需求輕鬆以圖片或文字形式使用！
Kutools for Excel－內含超過 300 項 Excel 必備工具，讓您的 Excel 作業更快速、更簡單、更高效！立即下載！
1. 選取您要插入為圖片的資料區域。
2. 接著，按一下 Kutools> 導覽窗格，請參閱截圖：
3. 在展開的導覽窗格中，先點選資源庫圖示，再點選將選定內容新增到資源庫圖示，請參閱截圖：
4. 在新增到資源庫對話方塊中，為此項目指定名稱並選擇要加入的群組。請參閱截圖：
5. 接著，按一下新增按鈕，將其加入資源庫窗格。若要將此範圍插入為圖片，請先按一下儲存格以定位圖片位置，再從資源庫窗格中找到已儲存的項目，並按一下插入為> 圖片(EMF）。此時，資料區域便會以圖片形式插入至工作表中，請參閱截圖：
根據儲存格值動態顯示插入圖片或圖片
本節將示範如何根據儲存格的值動態顯示對應圖片。例如，當您從下拉式選單中選取特定項目時，相應圖片會立即顯示；當您切換至其他選項時，圖片也會如以下示範般即時更新：
使用「定義名稱」功能根據儲存格值動態顯示插入圖片或圖片
一般而言，在 Excel 中，您可以透過建立動態命名範圍並搭配連結圖片來達成此任務。
1. 首先，您需建立兩欄資料，分別包含產品名稱及其對應圖片，請參閱截圖：
2. 接著，為儲存格值建立下拉式清單：先按一下目標儲存格，再依序點選資料 > 資料驗證 > 資料驗證，即可開啟設定視窗（請參閱螢幕截圖）：
3. 在彈出的資料驗證對話方塊中，於設定索引標籤下，從允許下拉式清單中選擇清單選項，然後在來源文字方塊中選取您要用來建立下拉式清單的儲存格，請參閱螢幕截圖：
4. 按一下確定，即可成功建立包含儲存格值的下拉式清單；從清單中選取項目效果請參閱下方螢幕截圖：
5. 接著，按一下公式 > 定義名稱，請參閱螢幕截圖：
6. 在新建名稱對話方塊中，請執行下列操作：
- 在名稱文字方塊中輸入名稱「myimage」；
- 接著，將下列公式複製並貼上至「參照」文字方塊中：=INDEX(Sheet 11!$A$2:$B$6,MATCH(Sheet 11!$E$2,Sheet 11!$A$2:$A$6,0),2)
注意：上述公式中：- Sheet 11!$A$2:$B$6：為包含您要使用的數值與圖片的工作表及範圍；
- Sheet 11!$E$2：為您在工作表中建立下拉式清單的儲存格；
- Sheet 11!$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. 接著，按一下確定按鈕，即可在所選儲存格中建立帶有圖片的下拉式清單；當從下拉式儲存格選取項目時，對應圖片將立即顯示，請參閱下方示範：
從 Excel 檔案匯出或儲存所有圖片
如果您的活頁簿中有多張圖片，想將所有圖片從 Excel 檔案提取並儲存到資料夾，該如何在 Excel 中完成這項任務？
使用「另存新檔」功能從 Excel 匯出或儲存所有圖片
一般情況下，您可以使用另存新檔功能將活頁簿中的所有圖片儲存下來，操作方式如下：
1. 按一下檔案 > 另存新檔，在另存新檔視窗中，指定資料夾以存放匯出的檔案，並從儲存類型下拉式清單中選擇 網頁（*.htm；*.html）選項，請參閱螢幕截圖：
2. 接著按一下儲存按鈕，前往指定資料夾，您將看到兩個項目：一個是 HTML 格式的檔案，另一個是包含活頁簿中所有圖片、圖表及其他物件的資料夾。請參閱螢幕截圖：
3. 接著，您可依需求將圖片拖曳至其他資料夾。
注意：使用此另存新檔功能時，每張圖片會儲存兩份——一份較小、一份較大，方便您依需求保留高解析度版本！
透過變更副檔名從 Excel 匯出或儲存所有圖片
若要從 Excel 檔案中儲存所有圖片，您也可以將副檔名改為 .RAR，操作步驟如下：
1. 將副檔名 xlsx 變更為 rar，如以下螢幕截圖所示：
2. 接著解壓縮該檔案，您將在資料夾中看到 3 個資料夾和 1 個檔案，請參閱螢幕截圖：
3. 接著，按一下開啟 xl 資料夾，再進入 media 資料夾，您會發現所有圖片皆儲存於此且無重複，請參閱螢幕截圖：
使用強大功能從 Excel 匯出或儲存所有圖片
如果您擁有 Kutools for Excel，只需使用其匯出圖形功能，就能快速將特定物件（例如圖片、圖表、形狀）依需求匯出為圖片格式！
1. 按一下 KUTOOLS PLUS > 匯入／匯出 > 匯出圖形，請參閱螢幕截圖：
2. 在匯出圖形對話方塊中，執行下列操作：
- 從圖片選項中選取類型下拉式清單；
- 指定用於儲存匯出圖片的資料夾；
- 接著，從導出格式的下拉式清單中選取一種圖片格式。
3. 最後，按一下確定按鈕，即可將目前工作簿中的所有圖片儲存至您指定的資料夾，請參閱螢幕截圖：
根據 Excel 中的儲存格清單重新命名資料夾中的圖片名稱
如果您在資料夾中有大量圖片，想一次重新命名所有檔案，該如何透過 Excel 輕鬆完成這項任務？
在 Excel 中，只需將所有舊圖片名稱列於一欄，接著輸入對應的新名稱，再執行 VBA 程式碼，即可一次完成舊檔名至新名稱的批量替換。請依下列步驟操作：
1. 請將所有圖片名稱列於儲存格清單中，或直接套用下列程式碼，即可自動列出特定資料夾中的所有圖片名稱，無需手動逐一輸入！
2. 按住 ALT + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。
3. 點選插入> 模組，並將下列巨集貼到模組視窗中。
VBA 程式碼：列出資料夾中的所有圖片名稱
Sub MainList()
'Updateby Extendoffice
On Error Resume Next
Set xRg = Application.InputBox("Please select a cell to put the filenames:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xRg = xRg(1)
Set Folder = Application.FileDialog(msoFileDialogFolderPicker)
If Folder.Show <> -1 Then Exit Sub
xDir = Folder.SelectedItems(1)
Call ListFilesInFolder(xRg, xDir, True)
End Sub
Sub ListFilesInFolder(ByVal xRg As Range, ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)
Dim xFileSystemObject As Object
Dim xFolder As Object
Dim xSubFolder As Object
Dim xFile As Object
Dim rowIndex As Long
Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = 1
For Each xFile In xFolder.Files
xRg.Formula = xFile.Name
Set xRg = xRg.Offset(rowIndex)
rowIndex = 1
Next xFile
If xIsSubfolders Then
For Each xSubFolder In xFolder.SubFolders
ListFilesInFolder xRg, xSubFolder.Path, True
Next xSubFolder
End If
Set xFile = Nothing
Set xFolder = Nothing
Set xFileSystemObject = Nothing
End Sub
4. 接著按下 F5 鍵執行此程式碼，系統將彈出提示方塊，請點選欲輸出圖片名稱的儲存格，詳見截圖：
5. 接著按一下確定，系統將彈出另一個瀏覽對話方塊，請選擇包含您要列出所有圖片名稱的資料夾，詳見截圖：
6. 點擊確定後，指定資料夾中的所有圖片名稱已列於儲存格中，詳見截圖：
7. 接著在另一欄輸入您所需的新檔名，如下圖所示：
8. 接著，按住 ALT + F11 鍵以開啟 Microsoft Visual Basic for Applications 視窗，即可套用下列程式碼重新命名圖片。
9. 按一下插入> 模組，並將下列巨集貼到模組視窗中。
VBA 程式碼：重新命名資料夾中的多個檔案
Sub RenameFiles()
'Updateby Extendoffice
Dim xDir As String
Dim xFile As String
Dim xRow As Long
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
If .Show = -1 Then
xDir = .SelectedItems(1)
xFile = Dir(xDir & Application.PathSeparator & "*")
Do Until xFile = ""
xRow = 0
On Error Resume Next
xRow = Application.Match(xFile, Range("A:A"), 0)
If xRow > 0 Then
Name xDir & Application.PathSeparator & xFile As _
xDir & Application.PathSeparator & Cells(xRow, "B").Value
End If
xFile = Dir
Loop
End If
End With
End Sub
注意：在上述程式碼中，A:A 代表您要重新命名的舊圖片名稱清單，而 B 則包含對應的新圖片名稱，可依實際需求調整。
10. 接著按下 F5 鍵執行此程式碼，於彈出的瀏覽視窗中選取包含您要重新命名圖片的資料夾，詳見截圖：
11. 接著點擊確定按鈕，所有圖片名稱即會更新為新命名，如下圖所示：
點擊圖片時放大或縮小圖片
假設您已在工作表中插入一張小圖片，現在希望點擊該圖片時放大，再次點擊時則縮小（如以下示範所示），該如何在 Excel 中實現此效果？
若希望在點擊時放大或縮小圖片，以下程式碼可助您輕鬆實現！請依照下列步驟操作：
1. 以滑鼠右鍵點選圖片，然後選擇指派巨集，詳見截圖：
2. 接著，在彈出的指派巨集對話方塊中，點擊新增按鈕，詳見截圖：
3. 在 Microsoft Visual Basic for Applications 視窗中，請將下方程式碼複製並貼上至 Sub 與 End Sub 之間。請參閱截圖：
Dim shp As Shape
Dim big As Single, small As Single
Dim shpDouH As Double, shpDouOriH As Double
big = 3
small = 1
On Error Resume Next
Set shp = ActiveSheet.Shapes(Application.Caller)
With shp
shpDouH = .Height
.ScaleHeight 1, msoTrue, msoScaleFromTopLeft
shpDouOriH = .Height
If Round(shpDouH / shpDouOriH, 2) = big Then
.ScaleHeight small, msoTrue, msoScaleFromTopLeft
.ScaleWidth small, msoTrue, msoScaleFromTopLeft
.ZOrder msoSendToBack
Else
.ScaleHeight big, msoTrue, msoScaleFromTopLeft
.ScaleWidth big, msoTrue, msoScaleFromTopLeft
.ZOrder msoBringToFront
End If
End With
4. 接著按下 Alt + Q 鍵，即可關閉 Microsoft Visual Basic for Applications 視窗。現在，當您點擊圖片時，它會放大至您指定的尺寸；再次點擊，則會縮小回下方示範所示的原始尺寸：
捲動工作表時讓圖片始終浮動顯示
有時，即使您向上或向下捲動工作表，仍希望圖片始終浮動顯示在畫面上，方便隨時查看。本節將為您介紹一個在 Excel 中快速實現此效果的實用技巧。請依照下列步驟操作：
1. 首先，插入您要使用的圖片。
2. 接著，以滑鼠右鍵按一下包含您要始終保持可見之圖片的工作表分頁，再從快捷選單中選擇檢視程式碼。在開啟的 Microsoft Visual Basic for Applications 視窗中，將下方程式碼複製並貼上至空白模組中：
VBA 程式碼：在工作表中讓圖片始終浮動顯示
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
Application.ScreenUpdating = False
If Target.Cells.Count > 1 Then Exit Sub
With ActiveSheet.Shapes("Picture1")
.Top = ActiveWindow.VisibleRange.Top + 5
.Left = ActiveWindow.VisibleRange.Left + ActiveWindow.VisibleRange.Width - .Width - 45
End With
Application.ScreenUpdating = False
End Sub
注意：此程式碼中的 Picture 1 為您已插入的圖片名稱，請依需求修改。
3. 接著，儲存並關閉程式碼視窗。現在，當您在捲動工作表或點選儲存格時，圖片將始終固定於工作表右上角。請參閱截圖：
從當前工作表／儲存格範圍中刪除圖片或影像
您是否希望快速從工作表、儲存格範圍或目前的工作簿中移除所有圖片？本節將為您介紹幾種在 Excel 中輕鬆達成此目標的實用方法。
使用 VBA 程式碼從當前工作表中刪除圖片或影像
若要從當前工作表刪除圖片，以下 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 鍵執行此程式碼，即可立即刪除作用中工作表中的所有圖片。
使用 VBA 程式碼從儲存格範圍中刪除圖片或影像
若您只需從特定儲存格範圍中刪除圖片，以下這段簡易程式碼即可輕鬆幫您完成。
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. 接著點擊確定按鈕，所有圖片將依照您指定的方式，從工作表、選取的工作表或整個活頁簿中刪除。
最佳 Office 生產力工具
| 🤖 | KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行 ｜ 產生程式碼｜ 建立自訂公式 ｜ 分析資料並產生圖表｜ 呼叫增強函數…… |
| 熱門功能：尋找、醒目提示或標記重複值 ｜ 刪除空白行 ｜ 合併列或儲存格而不遺失資料 ｜ 不使用公式的四捨五入…… | |
| 高級 LOOKUP：多重條件 VLookup ｜ 多重數值 VLookup ｜ 跨多個工作表 VLookup ｜ 模糊查找…… | |
| 高級下拉列表：快速建立下拉式清單 ｜ 相依式下拉式清單 ｜ 多選下拉式清單…… | |
| 欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位…… | |
| 精選功能：網格聚焦 ｜ 設計視圖 ｜增強編輯欄 ｜ 工作簿與工作表管理員 ｜ 資源庫（自動文字）｜ 日期提取 ｜ 合併工作表 ｜ 加密／解密儲存格 ｜ 依清單傳送電子郵件 ｜ 超級篩選 ｜ 特殊篩選（篩選粗體儲存格／斜體／刪除線……） ...... | |
| 頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表 類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多 |
運用 Kutools for Excel 強化您的 Excel 技能，體驗前所未有的高效能！Kutools for Excel 提供超過 300 項進階功能，大幅提升生產力並節省寶貴時間。立即點擊，取得您最需要的功能……
Office Tab 為 Office 帶來分頁式介面，讓您的工作更輕鬆自在！
- 在 Word、Excel、PowerPoint 中啟用分頁式編輯與閱讀功能，以及 Access、Visio 與 Project。
- 在同視窗的新分頁中開啟並建立多份文件，而非另開新視窗。
- 每天為您提升 50% 的工作效率，並省下數百次滑鼠點擊！
所有 Kutools 增益集，一個安裝程式
Kutools for Office 套件整合了 Excel、Word、Outlook 與 PowerPoint 的增益集，以及 Office Tab Pro，非常適合需要跨多個 Office 應用程式協作的團隊使用！
- 全能套件— 包含 Excel、Word、Outlook 與 PowerPoint 增益集，以及 Office Tab Pro
- 一個安裝程式，一個授權— 數分鐘內即可完成設定（支援 MSI）
- 協同運作更出色— 在多個 Office 應用程式間實現流暢的生產力體驗
- 30 天完整功能試用— 無需註冊，無需信用卡
- 超值之選— 比單獨購買各增益集更省費用