Excel 图片：在 Excel 中插入、调整大小、保存、批量删除图片或图像

对我们大多数人而言，将计算机中存储的图片插入工作表非常简单。请按以下步骤操作：

1. 在工作表中，单击您要插入图片的位置。

2. 然后，单击插入 > 图片 > 此设备，参见截图：

3. 在弹出的插入图片窗口中，打开包含图片的文件夹，按住 Ctrl 键即可选择多张要插入的图片，参见截图：

4. 然后，单击插入按钮，所选图片将被插入到工作表中。现在，您可以根据需要调整或缩放图片以适应单元格，参见截图：

如果您使用的是 Excel 2013 或更高版本，可以从网络或 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 > 插入 > 从路径插入图片，见下图：

2. 在弹出的从路径插入图片对话框中，请进行以下设置：

• 选择包含 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 的从路径插入图片功能，可帮您轻松根据文件路径显示相关图片。

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(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. 然后，单击确定按钮，所选单元格中即会创建带图片的下拉列表——当选中下拉项时，对应图片将立即显示，效果如下所示：

通常，您可以使用另存为功能将工作簿中的所有图片保存下来，请按以下操作：

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