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代码根据 URL 列表插入图片。

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 中提取到相邻列并放置在单元格的中心，见截图：

Kutools for Excel 有一个惊人的功能—— 从路径（URL）插入图片。使用此工具，可以快速轻松地从 URL 中提取相应的图片。

1. 点击 Kutools > 插入 > 从路径（URL）插入图片，见截图：

2. 在弹出的从路径（URL）插入图片对话框中，请设置以下操作：

• 选择 URL 单元格列表和您想放置图片的单元格范围；
• 根据需要从图片大小部分指定图片大小。
• 

3. 然后，点击确定按钮，所有图片已从 URL 中提取，见截图：

您可以应用以下 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 的从路径（URL）插入图片功能也可以帮助您显示来自文件路径的相关图片。

1. 点击 Kutools > 插入 > 从路径（URL）插入图片，在弹出的对话框中，请指定文件路径范围、输出图片的范围、图片大小，见截图：

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. 然后点击确定按钮，所有图片将根据您的指定从工作表、选定的工作表或整个工作簿中删除。