跳到主要内容

Excel图片:在Excel中插入,更改,删除多张图片或图片

在本教程中,我们将讨论如何将多个图像插入单元格并调整它们的大小以适合单元格的大小,如何将图像插入注释,页眉或页脚,如何从URL插入图像等等。 它还说明了如何在Excel中根据需要保存,重命名,删除多个图像。

目录:

1.从计算机,Web或OneDrive将图像或图片插入工作表

2.将图片或图片锁定到Excel单元格中

3.在Excel中插入多张图像或图片

4.将多个与它们名称匹配的图像或图片插入单元格

5.从URL插入或显示图像或图片

6.插入或显示文件路径中的图像或图片

7.在评论中插入图片或图片

8.将图像或图片插入页眉或页脚

9.将同一张图片或图片插入多个工作表

10.在单元格内容后面插入图像或图片

11.在Excel中将一系列单元格插入为图像或图片格式

12.根据单元格值动态插入图像或图片

13.导出或保存Excel文件中的所有图像或图片

14.根据Excel中的单元格列表重命名文件夹中的图像名称

15.单击放大或缩小图像

16.滚动工作表时始终浮动图片

17.从活动工作表/一系列单元格中删除图像或图片


从计算机,Web或OneDrive将图像或图片插入工作表中

所有Excel版本都支持从计算机插入图像或图片,但是,如果要从Web或OneDrive插入图像,则应具有Excel 2013和更高版本。

从计算机插入图像或图片

对于我们大多数人来说,将存储在计算机中的图像插入工作表很容易。 请这样做:

1。 在工作表中,单击要插入图像的位置。

2。 然后,点击 插页 > 图片 > 这个设备,请参见屏幕截图:

3。 在弹出 插入图片 窗口,打开包含图片的文件夹,然后按住 按Ctrl 键以选择要插入的图像,请参见屏幕截图:

4。 然后,点击 插页 按钮,所选照片已插入到工作表中。 现在,您可以根据需要调整图像的大小或将其调整为所需的大小,请参见屏幕截图:


从Web或OneDrive插入图像或图片

如果您具有Excel 2013或更高版本,则可以从Web或One Drive插入图像,请按以下步骤操作:

1。 在工作表中,单击要插入图像的位置。

2。 然后,点击 插页 > 图片 > 在线图片,请参见屏幕截图:

3。 将显示以下窗口。 在里面 在线图片 部分,请在文本框中键入您要查找的内容,然后按 输入 钥匙。 立刻搜索所有对应的图片,请参见屏幕截图:

4。 然后,选择所需的图片,然后单击 插页 按钮。 插入图片后,请调整图片大小或将其调整到所需的位置。

提示:

1.要搜索某些特定图像,您可以根据需要按大小,类型,布局或颜色过滤找到的图像。

2。 除了插入来自Bing搜索的图像外,您还可以插入存储在OneDrive中的图片。 在下面的窗口中,单击 OneDrive 在窗口的左下角,然后选择要插入的图像。


将图片或图片锁定到Excel单元格中

通常,将图像插入单元格后,当您调整大小,过滤或隐藏包含该图像的单元格时,图像将不会随着该单元格一起调整大小或过滤,如下所示。

在这种情况下,您应该将图片锁定在单元格中,以便可以与单元格一起调整大小,过滤或隐藏图片,请执行以下步骤:

1。 单击以选择一张图片,然后按 按Ctrl + A 选择工作表中的所有图像。

2。 然后,右键单击一张图片,然后选择 大小和属性 从上下文菜单中,查看屏幕截图:

3。 在扩展中 格式化图片 窗格中的 查看房源 部分,选择 移动并调整单元格大小 选项,请参见屏幕截图:

4。 然后,关闭 格式化图片 窗格。 现在,在调整大小,过滤或隐藏单元格时,图片也将被移动,过滤或隐藏。


在Excel中插入多张图像或图片

有时,您可能需要在单元格中插入多张图片并自动调整它们的大小以适合单元格大小,而无需调整图片大小和拖动图片。 在这里,我将介绍两种在Excel中解决此工作的方法。

插入多张图像或图片并调整其大小以适合VBA代码的单元格

以下VBA代码可以帮助您根据像元大小将多个图像插入到像元中。 请这样做:

1。 调整您要放置图片的单元格大小,然后选择单元格。

2。 然后,按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

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 Kutools for Excel。 使用此有用的功能,您可以快速,轻松地将多个图像导入到单元格中。

安装后 Kutools for Excel,请执行以下步骤:

1。 点击 Kutools 加 > 进出口 > 导入图片,请参见屏幕截图:

2。 在弹出 导入图片 对话框,请执行以下操作:

  • 从“导入顺序”下拉列表中指定图片顺序,您可以选择 垂直填充单元格 or 逐个单元格水平填充;
  • 然后,单击 地址 按钮选择图像文件或文件夹以将图片添加到 图片清单;
  • 点击 进口尺寸 按钮,在 导入图片尺寸 对话框中,选择 匹配的细胞大小 选项。

3。 完成设置后,请点击 进口 按钮,现在,另一个 导入图片 弹出,指定要将图片导入到的目标单元格,请参见屏幕截图:

4。 然后,点击 OK 按钮,所有选定的图像都已插入,以匹配特定单元格的大小,如下图所示:


将多个与它们名称匹配的图像或图片插入单元格

如果现在在一列中有一个产品名称列表,那么现在,您需要将其对应的图片插入另一列中,如下面的屏幕截图所示。 插入图像,然后将它们一个接一个地拖到每个位置将浪费大量时间,在本节中,我将讨论一些快速方法。

使用VBA代码插入与其名称相匹配的多张图像或图片

以下VBA代码可以帮助您快速插入与其名称匹配的多个图像,请按以下步骤操作:

1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

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,并且图片已根据其名称立即插入到单元格中,请参见屏幕截图:


插入多张与它们名称匹配的图像或图片,并提供有用的功能

如果你有 Kutools for Excel,其 匹配导入图片 功能,您可以根据图像名称快速轻松地插入图像。

安装后 Kutools for Excel,请这样做:

1。 点击 Kutools 加 > 进出口 > 匹配导入图片,请参见屏幕截图:

2。 在弹出 匹配导入图片 对话框,请执行以下操作:

  • 从“导入顺序”下拉列表中指定图片顺序,您可以选择 垂直填充单元格 or 逐个单元格水平填充;
  • 然后,从 比赛范围 在文本框中,选择要基于其插入图像的图片名称;
  • 然后,单击 地址 按钮选择图像文件或文件夹以将图片添加到 图片清单;
  • 接下来,您应该指定图片尺寸。 请点击 进口尺寸 按钮,在 导入图片尺寸 对话框中,根据需要选择一种图片尺寸。

3。 完成设置后,请点击 进口 按钮,选择一个单元格或一个单元格列表以从弹出的窗口中找到图像 匹配导入图片 对话框,请参见屏幕截图:

4。 然后,点击 OK,并且已插入名称与单元格值匹配的所有图片,请参见屏幕截图:


从URL插入或显示图像或图片

您是否曾经尝试过显示或插入URL列表中的图像? 可能没有其他直接在Excel中插入图像的好方法,但是,您可以应用代码或第三方工具来处理它。

使用VBA代码从URL插入或显示图像或图片

请应用以下VBA代码以根据网址列表插入图片。

1。 首先,调整要定位图像的相邻像元大小。

2。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

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提取到相邻列,并放置在单元格的中心,请参见屏幕截图:


插入或显示具有惊人功能的URL中的图像或图片

Kutools for Excel 具有惊人的功能– 从路径(URL)插入图片。 使用此实用程序,可以快速,轻松地从URL中提取相应的图片。

安装后 Kutools for Excel,请执行以下步骤:

1。 点击 库工具 > 插页 > 从路径插入图片(URL),请参见屏幕截图:

2。 在弹出 从路径插入图片(URL) 对话框中,请设置以下操作:

  • 选择URL单元列表以及要放置图像的单元格范围;
  • 根据需要指定图像的尺寸 图片尺寸 部分。

3。 然后,单击 Ok 按钮,所有图片均已从网址中提取,请参见屏幕截图:


从文件路径插入或显示图像或图片

如果您需要从文件路径插入图像,这里还为您提供了解决方案。

使用VBA代码从文件路径插入或显示图像或图片

您可以根据图像文件路径应用以下VBA代码来插入图像。

1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

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 按钮,基于文件路径的所有图像都已显示在下一列中,如下所示的屏幕截图:


插入或显示具有惊人功能的文件路径中的图像或图片

Kutools for Excel从路径插入图片(URL) 功能还可以帮助您显示文件路径中的相对图像。

安装后 Kutools for Excel,请这样做:

1。 点击 库工具 > 插页 > 从路径插入图片(URL),在弹出的对话框中,请根据需要指定文件路径范围,输出图像的范围,图像大小,请参见屏幕截图:

2。 设置选项后,单击 Ok 按钮,图像将立即插入到选定的单元格中,请参见屏幕截图:


在评论中插入图片或图片

将图片插入单元格可能很容易,但是有时候,您可能希望将图片插入注释框,您如何处理此任务?

1。 选择并右键单击要在其中插入注释的单元格,然后选择 插入评论,请参见屏幕截图:

Tips:如果您添加了评论,请忽略此步骤。

2。 然后将光标悬停在注释框的边缘,直到看到光标变成一个四箭头图标。 然后,右键单击并选择 格式注释 选项,请参见屏幕截图:

3。 在弹出 格式注释 对话框,单击 颜色和线条 选项卡,然后选择 填充效果 来自 颜色 下拉列表,请参见屏幕截图:

4。 然后,在下面 填充效果 对话框,单击 图片 选项卡,然后单击 选择图片 按钮以选择要插入的一张图片,请参见屏幕截图:

5。 然后,单击 OK > OK,图片已插入到注释框中,请参见屏幕截图:


将图像或图片插入页眉或页脚

如果要在Excel工作表的页眉或页脚中插入图片,此部分中的步骤可以为您提供帮助,请按以下步骤操作:

1。 激活要在其中将图像插入页眉或页脚的工作表。

2。 然后,点击 插页 > 页眉页脚,然后您将转到 页眉和页脚工具 标签。 看截图:

3。 要在页眉或页脚中插入图片,请根据需要单击左侧,右侧或中央的页眉或页脚框,然后单击 图片 在下面 设计 标签,请参见屏幕截图:

4。 然后, 插入图片 窗口将会弹出,请选择您要添加的图片,然后单击“插入”。 现在,一个 &[图片] 占位符将出现在页眉或页脚框中。 单击页眉或页脚框之外的任何位置,将显示插入的图片,如下图所示:

Tips:有时,您可能会发现图像与工作表的数据区域重叠,如下图所示。 发生这种情况的原因是图像太大,并且不会自动调整其大小以适合页眉或页脚节框。

要解决此问题,您只需调整页眉或页脚中的图片大小,请执行以下步骤:

1。 单击图像所在的页眉或页脚部分,然后单击“确定”。 格式化图片 在下面 设计 标签,请参见屏幕截图:

2。 在 格式化图片 对话框中的 尺寸 标签,请调整图像的大小以适合页眉或页脚部分的框,请参见屏幕截图:

3。 然后,单击 OK,您将根据需要获得结果。


将相同的图像或图片插入多个工作表

有时,您可能希望将徽标图片插入工作簿的所有工作表中,通常,您可以应用插入功能将图片从一张纸一张一张地插入另一张纸上。 除了此耗时的功能外,以下VBA代码可以帮助您将同一张图片立即插入所有工作表的特定单元格中。 请执行以下步骤:

1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

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 \ AddinTestWin10 \ Desktop \ my images \ logo.png 是图片的路径和名称,以及 A1 in 范围(“ A1”) 是您要插入图片的单元格,请根据需要进行更改。

3。 然后按 F5 键以运行此代码,并且特定图片已立即插入每个工作表的单元格A1中。 参见下面的演示:


在单元格内容后面插入图像或图片

为了使工作表数据更美观和更具吸引力,您可以将图像用作背景。 为了在单元格内容后面插入图像,以下是一些可以帮您的方法。

使用背景功能在单元格内容后面插入图像或图片

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

2。 然后,点击 页面布局 > 背景,请参见屏幕截图:

3。 在弹出 插入图片 窗口,请根据需要从计算机,网站或OneDrive中选择一张图片,请参见屏幕截图:

4。 现在,该图像已作为背景插入到工作表中,如下图所示:

Tips:要删除背景图片,只需点击 页面布局 > 删除背景。 看截图:


在单元格内容后面插入透明图像或图片

使用上述方法,您无法更改插入的背景图像的透明度,因此,如果背景图像的颜色较深,将不方便您读取工作表的数据。 在本节中,我将讨论如何在单元格后面插入透明图片。

1。 点击 插页 > 形状,然后选择一个矩形形状,请参见屏幕截图:

2。 然后,在活动工作表中绘制所需形状的形状。

3。 绘制形状后, 绘图工具 选项卡显示在功能区中,然后单击 格式 > 形状大纲 > 没有大纲,请参见屏幕截图:

4。 然后,右键单击该形状,然后选择 格式形状 从上下文菜单中,查看屏幕截图:

5。 在扩展中 格式形状 窗格中的 填充线 选项卡,请执行以下操作:

  • 在下面 部分,选择 图片或纹理填充 选项;
  • 点击 插页 按钮 图片来源,然后选择一张要插入的图片;
  • 然后,根据需要调整图片的透明度 透明y部分。

6。 然后,您将看到充满图片的形状看起来像是背景图像,如上面的屏幕快照所示。

备注:插入这种类型的背景图像后,将不允许您在图片范围内输入任何文本。


在单元格内容后面插入透明图像或图片作为水印

以上两种方法都有其自身的局限性,第一种方法不能更改图像的透明度,第二种方法不允许将文本输入到图片区域内的单元格中。 为了解决这些问题, Kutools for Excel插入水印 功能可以帮您一个忙。

安装后 Kutools for Excel,请这样做:

1。 点击 库工具 > 插页 > 插入水印,请参见屏幕截图:

2。 在弹出 插入水印 对话框中选择 图片水印,然后单击 选择图片 按钮选择要插入的一张图像,然后指定图像比例并选中“冲洗”选项,请参见屏幕截图:

3。 然后,点击 Ok 按钮,图片已作为背景图像插入到工作表中。


在Excel中以图片或图片格式插入一系列单元格

您是否曾经尝试过复制一系列单元格并将其作为图像插入Excel中? 在本节中,我将介绍一些在Excel中处理此作业的快速方法。

使用“复制为图片”功能将一系列单元格插入为图像或图片格式

在Excel中,您可以使用 复制为图片 用于复制和插入一定范围的单元格作为图像的功能。

1。 选择要复制并插入为图像的单元格范围。

2。 然后,点击 主页 > 复制 > 复制为图片,请参见屏幕截图:

3。 在弹出 复制图片 对话框中选择 图片 来自 格式 部分,请参见屏幕截图:

4。 然后,点击 OK 按钮,现在,您只需要按 按Ctrl + V 将该图像粘贴到工作簿的任何位置。


使用“相机”工具将一系列单元格插入为图像或图片格式

在Excel中,有一个 相机 可以帮助您为所选数据拍照的工具,然后将其粘贴为图像。 当原始数据更改时,复制的图像将动态更改。

首先,您应该显示 相机 在功能区上,然后将其应用。

1。 点击 自定义快速访问工具栏 图标,然后单击 更多命令 选项,请参见屏幕截图:

2。 在开 Excel选项 对话框,请执行以下操作:

  • 选择 所有的命令 来自 从中选择命令 落下;
  • 然后,滚动选择 相机 从列表框中;
  • 然后,单击 地址 按钮将此工具添加到 自定义快速访问工具栏;
  • 最后点击 OK 关闭此对话框。

3。 而且 相机 工具已显示在功能区上,请参见屏幕截图:

4。 然后,选择所需图像的单元格范围。

5。 然后,点击 相机 工具,然后转到工作表并单击任意位置,数据范围将作为图像插入,如下图所示:


使用有用的功能将一系列单元格插入为图像或图片格式

如果你有 Kutools for Excel,其 资源库 功能,您可以将所选数据保存到 资源库,然后根据需要将其用作图像或文本以备将来使用。

安装后 Kutools for Excel,请这样做:

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。 输入公式后,按 输入 键,现在,当您从下拉列表中选择一项时,其相关图片将立即显示。 看截图:


借助方便的功能根据单元格值动态插入图像或图片

对于我们大多数人来说,上述方法可能很困难,在这里,我将介绍一个方便的功能– 图片下拉列表 of Kutools for Excel,使用此有用的工具,只需单击几下即可创建带有其相对图像的多个下拉列表。

安装后 Kutools for Excel,请执行以下步骤:

1。 首先,您应该在工作表中创建两列,其中包含产品名称和相对图像。

2。 然后,单击 库工具 > 下拉列表 > 图片下拉列表,请参见屏幕截图:

3。 在 图片下拉列表 对话框中,如果已创建单元格值和图像的列,请忽略step1,然后选择原始数据和图像范围以及输出范围,请参见屏幕截图:

4。 然后,单击 Ok 按钮,已将包含图像的下拉列表创建到选定的单元格中,并且当从下拉单元格中选择一个项目时,将立即显示其对应的图片,请参见下面的演示:


从Excel文件导出或保存所有图像或图片

如果您的工作簿中有多个图像(现在),则要将所有图像从Excel文件提取并保存到文件夹中。 您如何在Excel中解决此任务?

具有“另存为”功能从Excel导出或保存所有图像或图片

通常,您可以使用 另存为 功能来保存工作簿中的所有图像,请按以下步骤操作:

1。 点击 文件 > 另存为另存为 窗口中,指定一个文件夹来放置导出的文件,然后选择 网页(* .htm; *。html) 来自 除上文所 键入下拉列表,请参见屏幕截图:

2。 然后点击 保存 按钮,转到特定的文件夹,您将看到两个文件,一个是HTML格式的文件,另一个是包含工作簿中的图片,图表或其他对象的文件夹。 看截图:

3。 然后,您可以根据需要将图像仅拖到另一个文件夹。

备注:通过使用此 另存为 功能,您将获得每张图片两次,一张较小,另一张较大,因此您可以根据需要保存更高分辨率的图像。


通过更改文件扩展名从Excel导出或保存所有图像或图片

要保存Excel文件中的所有图像,您还可以将文件扩展名更改为RAR。 请这样做:

1。 更改文件扩展名 XLSXRAR 如下图所示:

2。 然后,解压缩文件,您将在文件夹中看到3个文件夹和1个文件,请参见屏幕截图:

3。 然后,单击以打开 xl 文件夹,然后打开 上的相关利益产业。 文件夹,您将看到所有图像都存储在此处,没有重复项,请参见屏幕截图:


借助强大的功能从Excel导出或保存所有图像或图片

如果你有 Kutools for Excel,其 导出图形 功能,您可以根据需要快速将某些特定对象(例如图片,图表,形状)导出为图像格式。

安装后 Kutools for Excel,请执行以下步骤:

1。 点击 Kutools 加 > 进出口 > 导出图形,请参见屏幕截图:

2。 在 导出图形 对话框中,进行以下操作:

  • 图片 选项从 类型 下拉列表;
  • 指定一个文件夹来保存导出的图片;
  • 然后从 导出格式 为图片选择一种格式。

3。 最后点击 Ok 按钮,当前工作簿中的所有图像均已保存到您指定的文件夹中,请参见屏幕截图:


根据Excel中的单元格列表重命名文件夹中的图像名称

如果文件夹中有很多图片,现在,您想重命名所有这些图片,那么如何在Excel中以一种简单的方式解决此工作呢?

在Excel中,首先,您应该将所有旧图像名称列出到一列中,然后键入新名称,最后,应用VBA代码立即用新名称替换旧名称。 请执行以下步骤:

1。 请将所有图像名称列出到一个单元格列表中,或者您可以应用以下代码在特定文件夹中列出所有图像名称,而无需手动逐个键入。

2。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

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。 然后,点击 OK,另一 浏览 对话框将会弹出,请选择包含您要列出的图片的文件夹列出所有图片名称,请参见屏幕截图:

6。 点击 OK,特定文件夹中的所有图像名称均已列在单元格中,请参见屏幕截图:

7。 然后,在另一列中输入所需的新名称,如下图所示:

8。 然后,您可以应用以下代码重命名图像,继续按 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

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

备注:在上面的代码中, 答: 表示您要重命名的旧图像名称列表,并且 B 包含要使用的新图像名称,您可以根据需要进行更改。

10。 然后按 F5 键来运行此代码,并在弹出窗口中 浏览 窗口中,选择包含要重命名的图像的文件夹,请参见屏幕截图:

11。 然后,单击 OK 按钮,所有图像名称已被新名称替换,如下面的屏幕截图所示:


单击图像时放大或缩小图像

假设您已经在工作表中插入了一个小图像,现在,您想在单击时放大图像,而在再次单击时缩小图像,如下图所示。 您如何在Excel中解决此任务?

要在单击图像时放大或缩小图像大小,以下代码可以帮您一个忙。 请执行以下步骤:

1。 右键单击该图像,然后选择 分配宏,请参见屏幕截图:

2。 然后,在弹出 分配宏 对话框中,单击 全新 按钮,请参见屏幕截图:

3。 在 Microsoft Visual Basic应用程序 窗口,请在以下代码之间复制并粘贴以下代码 小组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应用程序 窗户。 现在,当您单击图片时,它将放大到您指定的大小,然后再次单击将缩小到原始大小,如下所示的演示:


滚动工作表时始终浮动图片

有时,即使您向上或向下滚动工作表,也可能希望在工作表屏幕上浮动图片,以便您可以始终看到该图片。 在本节中,我将为您介绍一个快速技巧,以便您在Excel中处理此工作。 请执行以下步骤:

1。 首先,插入要使用的图片。

2。 然后,右键单击包含您要始终显示的图片的工作表选项卡,然后选择 查看代码 从上下文菜单中。 在开 适用于应用程序的Microsoft Visual Basic 窗口,将以下代码复制并粘贴到空白模块中:

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

备注:在这段代码中, 图片1 是您插入的图片名称,请根据需要进行更改。

3。 然后,保存并关闭代码窗口,现在,在滚动工作表并单击单元格时,图片将始终保留在工作表的右上角。 看截图:


从活动工作表/一系列单元格中删除图像或图片

您是否有任何快速方法可以删除工作表,一系列单元格或当前工作簿中的所有图像? 在本节中,我将介绍一些在Excel中解决此工作的方法。

使用VBA代码从活动工作表中删除图像或图片

要从当前工作表中删除图片,下面的VBA代码可以为您提供帮助,请按以下步骤操作:

1。 激活包含要删除的图像的工作表。

2。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

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应用程序 窗口。

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,其 删除插图和对象 功能,您可以快速从工作表,某些选定的工作表或整个工作簿中删除图像。

安装后 Kutools for Excel,请执行以下步骤:

1。 点击 库工具 > 删除 > 删除插图和对象,请参见屏幕截图:

2。 在开 删除插图和对象 对话框,检查 图片 来自 删除 部分,然后指定要从中删除图片的范围 在看 部分,请参见屏幕截图:

3。 然后点击 Ok 按钮,所有图片将从您指定的工作表,选定的工作表或整个工作簿中删除。


  • 超级公式栏 (轻松编辑多行文本和公式); 阅读视图 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
  • 合并单元格/行/列 和保存数据; 拆分单元格内容; 合并重复的行和总和/平均值...防止细胞重复; 比较范围...
  • 选择重复或唯一 行; 选择空白行 (所有单元格都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择...
  • 确切的副本 多个单元格,无需更改公式参考; 自动创建参考 到多张纸; 插入项目符号,复选框等...
  • 收藏并快速插入公式,范围,图表和图片; 加密单元 带密码 创建邮件列表 并发送电子邮件...
  • 提取文字,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
  • 超级筛选 (将过滤方案保存并应用于其他工作表); 高级排序 按月/周/日,频率及更多; 特殊过滤器 用粗体,斜体...
  • 结合工作簿和工作表; 根据关键列合并表; 将数据分割成多个工作表; 批量转换xls,xlsx和PDF...
  • 数据透视表分组依据 周号,周几等 显示未锁定的单元格 用不同的颜色 突出显示具有公式/名称的单元格...
kte选项卡201905
  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
officetab底部
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Geachte,

Zeer interesse pagina.

Wel stel ik me de vraag hoe we na input van de foto's, die foto's in het midden van de cel krijgen.

Bestaat er hier ook een macro voor.?
This comment was minimized by the moderator on the site
Hello,
There are several vba codes in this article, which VBA code do you need to put the pictures in center of the cells?
Thank you!
This comment was minimized by the moderator on the site
Good afternoon,

Very nice page.

Only I tried the VBA of "Insert Multiple Images Or Images That Match Their Names With VBA Code" but unfortunately it doesn't work.

I can finish everything but unfortunately I can't get with pictures in the excel.

Any idea what the problem could be here?
This comment was minimized by the moderator on the site
Hello, janick,The code works well in my workbook, do you select the correct folder contains the images? Please check it?
Thank you!
This comment was minimized by the moderator on the site
This is a great article! I really like how you presented it so easy to understand
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations