Note: The other languages of the website are Google-translated. Back to English

如何在Excel中一次插入多张图片并调整其大小?

我们很容易在Excel中插入一张图片,但是如果您需要一次插入多张图片以节省大量时间,该怎么办?


插入多张图片,并通过“插入图片”功能批量调整它们的大小

我们可以通过Excel中的(插入)图片功能批量插入多张图片,然后同时调整它们的大小。 请执行以下操作:

1。 在工作表中,单击 插页 > 图片.

2。 在“插入图片”对话框中,请打开包含要插入图片的文件夹,根据需要选择多张图片,然后单击 插页 按钮。 看截图:
备注:控股 按Ctrl 键,您可以一幅一幅地单击以选择多张不相邻的图片; 保持 转移 键,单击第一张和最后一张可以选择多张相邻的图片。

现在,图片将批量插入并堆叠在工作表中。

3。 保持选中这些图片,并通过在两个图片中输入新数字来批量调整它们的大小。 宽度身高 中的框 规格 组上 格式 标签。 看截图:

现在,所有插入的图片会立即同时更改为相同大小。

4。 目前,您需要手动将每张图片分别移动到合适的位置。

备注:如果有数十张照片堆叠在一起,则手动将它们移动到合适的位置将非常耗时。

在Excel中批量插入与单元格内容匹配的多张图片

新的 匹配导入图片 Kutools for Excel的功能是一个很棒的工具,它可以基于单元格内容批量导入和插入多张图片,并可以轻松地将与单元格大小相同或指定大小的导入图片调整为大小。


广告匹配导入图片01

Kutools for Excel - 包括 300 多个方便的 Excel 工具。 全功能免费试用 30-天,无需信用卡! 立即行动吧!

插入多张图片并使用OneNote批量调整它们的大小

为避免一张一张地移动堆叠的图片,此方法引入了另一个技巧,即借助OneNote插入多张图片。 请执行以下操作:

1。 启动OneNote,然后创建一个新页面。 然后点击 插页 > 图片.

2。 在“插入图片”对话框中,请打开包含要插入图片的文件夹,根据需要选择多张图片,然后单击 插页 按钮。 看截图:
备注:控股 按Ctrl 键,您可以一幅一幅地单击以选择多张不相邻的图片; 保持 转移 键,单击第一张和最后一张可以选择多张相邻的图片。

doc插入多张图片OneNote 032

3。 按 按Ctrl + A 键以选择OneNote中所有插入的图片,然后按 按Ctrl + C 复制它们的键。

4。 在Excel中转​​到工作表,然后按 按Ctrl + V 键将图片粘贴到工作表中。 现在,所有图片都被垂直粘贴,如左图所示。

5. 选择任何一张图片,然后按 按Ctrl + A 键选择所有这些。 然后通过在两者中输入新数字来批量调整图片大小 宽度身高 中的框 规格 组上 格式 标签。 看截图:

现在,所有指定的图片都将插入到Excel中,并批量调整为相同大小。


使用VBA代码将多张图片插入Excel

使用以下VBA代码,您可以将多个图片逐个单元插入Excel文件中。

1。 选择要插入图片的目的地范围的第一个单元格。

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

3。 点击 插页 > 模块,然后将以下宏粘贴到 模块窗口.

Sub InsertPictures()
'Update 20140513
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 运行此代码的关键。

5。 在“打开”对话框中,请打开包含要插入图片的文件夹,选择要插入的多张图片,然后单击 可选 按钮。 并且所有选择的图片均已根据单元格大小导入到您的选择中。 看截图:


插入多张图片并使用Kutools for Excel自动调整它们

Kutools for Excel导入图片 实用程序可以帮助您根据单元格大小或图片大小将多张图片快速插入Excel。 您也可以根据需要指定图片的高度和宽度。

Kutools for Excel - 包括 300 多个方便的 Excel 工具。 全功能免费试用 30-天,无需信用卡! 立即行动吧!

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

2。 在 导入图片 对话框,请执行以下操作:
(1)从 进口订单 下拉列表,您可以选择 垂直填充单元格 or 逐个单元格水平填充.
(2)点击 加入 按钮选择图像文件或文件夹以将图片添加到“图片”列表中。 并且所有选择的图片将在列表框中列出。
(3)点击 进口尺寸 按钮;

3。 现在在 导入图片尺寸 在对话框中,您可以选择符合您需要的图片尺寸。 看截图:

4。 指定图片尺寸后,请点击 OK 关闭此对话框,然后返回 导入图片 对话框中,单击 进口 按钮导入图像。

5。 在新的“导入图片”对话框中,请选择要插入图片的目标范围的第一个单元格,然后单击 OK 按钮。

目前,所有选择的图片已从活动单元垂直或水平插入到单元中。 看右边的截图:

新的 导入图片 Kutools for Excel的功能旨在在Excel中同时插入一批具有匹配单元格大小,指定大小或图片自己大小的图片。 免费试用!


使用Kutools for Excel插入多张与其名称匹配的图片

Kutools for Excel还支持戏剧性 匹配导入图片 功能以匹配图片和单元格内容,并仅在Excel中批量插入匹配的图片。

Kutools for Excel - 包括 300 多个方便的 Excel 工具。 全功能免费试用 30-天,无需信用卡! 立即行动吧!

1。 选择要插入其匹配图片的图片名称单元格,然后单击 Kutools 加 > 导入/导出 > 匹配导入图片。 看截图:

2。 在弹出的“匹配导入图片”对话框中,请执行以下操作:
(1)从 进口订单 下拉列表;
(2)点击 加入 按钮将图片添加到图片列表框中。 供您参考,仅列出匹配的图片。
(3)然后点击 进口尺寸 按钮。

3. 现在在 导入图片尺寸 对话框中,您可以选择符合您需要的图片尺寸,然后点击 Ok 按钮。 看截图:

4。 现在您回到 导入图片 对话框中,单击 进口 按钮导入图像。

5.在弹出的“匹配导入图片”对话框中,指定要插入图片的目标范围的第一个单元格,然后单击 OK 按钮。 看截图:

到目前为止,所有图片均根据其相对名称插入到单元格中。 看右边的截图:

新的 匹配导入图片 Kutools for Excel的功能可以帮助Excel用户根据单元格值快速过滤图片,然后批量插入这些图片。 此外,可以将这些匹配的图片自动调整为指定的大小或像元大小。 免费试用!


演示:插入多张图片并在Excel中一次调整它们的大小

Kutools for Excel 包含超过300个方便的Excel工具,免费试用不受限制 30 天。 立即免费试用!      现在购买!


相关文章


最佳办公效率工具

Kutools for Excel解决了您的大多数问题,并使您的生产率提高了80%

  • 重用: 快速插入 复杂的公式,图表 以及您以前使用过的任何东西; 加密单元 带密码 创建邮件列表 并发送电子邮件...
  • 超级公式栏 (轻松编辑多行文本和公式); 阅读版式 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
  • 合并单元格/行/列 不会丢失数据; 拆分单元格内容; 合并重复的行/列...防止细胞重复; 比较范围...
  • 选择重复或唯一 行; 选择空白行 (所有单元格都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择...
  • 确切的副本 多个单元格,无需更改公式参考; 自动创建参考 到多张纸; 插入项目符号,复选框等...
  • 提取文字,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
  • 超级滤镜 (将过滤方案保存并应用于其他工作表); 高级排序 按月/周/日,频率及更多; 特殊过滤器 用粗体,斜体...
  • 结合工作簿和工作表; 根据关键列合并表; 将数据分割成多个工作表; 批量转换xls,xlsx和PDF...
  • 超过300种强大功能. 支持 Office / Excel 2007-2021 和 365。支持所有语言。 在您的企业或组织中轻松部署。 完整功能 30 天免费试用。 60 天退款保证。
kte选项卡201905

Office选项卡为Office带来了选项卡式界面,使您的工作更加轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
officetab底部
按评论排序
注释 (47)
还没有评分。 成为第一位评论!
该评论由网站上的主持人最小化
带有标题的说明:使用 VBA 代码将多张图片插入 Excel 简直太棒了,快速有效!!! 这是购买和安装插件的好选择。 这是我第一次在网上发表评论!! 赞!
该评论由网站上的主持人最小化
嗨,我可以使用 InsertPictures 模块,并且可以正常工作至 jpg。 它不想为PNG工作。 你能给些建议么? 问候,劳伦斯
该评论由网站上的主持人最小化
在第一个主题“使用 VBA 代码将多张图片插入 Excel”中,如何在两个单元格中插入一张图片。 例如,第一张图片将插入单元格 A1 和 A2,第二张图片将插入单元格 A3 和 A4,依此类推。
该评论由网站上的主持人最小化
对 Excel 的良好支持......你真的有助于节省时间。 谢谢
该评论由网站上的主持人最小化
伟大的职位! 但是我有其他方法可以做同样的事情..... ===================================== ============ Sub ipic() Dim i As Integer For i = 2 To 10 Cells(i, 1).Select Dim picname As String picname = Cells(i, 2) ActiveSheet.Pictures。 Insert("F:\Ram-PC\Macro\MyImage\" & picname & ".jpg").Select With Selection .Left = ActiveCell.Left .Top = ActiveCell.Top .ShapeRange.LockAspectRatio = msoFalse .ShapeRange.Height = 34# .ShapeRange.Width = 80# End With Next Range("a1").Select End Sub
该评论由网站上的主持人最小化
是否有适用于 Mac 的 Kuttools 版本?
该评论由网站上的主持人最小化
是否可以修改该 vba 代码以在类似网格的模式中插入 4 张图片,如下所示:A1 中的 pic1、A2 中的 pic2、B3 中的 pic1 和 B4 中的 pic2? 坦克!
该评论由网站上的主持人最小化
没关系我找到了怎么做:)
该评论由网站上的主持人最小化
你好,可以分享一下修改后的代码吗?
该评论由网站上的主持人最小化
Sub InsertPictures() 'Update 20140513 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) 然后 xRowIndex = Application.ActiveCell.Row For lLoop = LBound(PicList) To UBound(PicList) 设置 Rng = Cells(xRowIndex, xColIndex) 设置 sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue , Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
该评论由网站上的主持人最小化
您能否帮我修改代码以插入合并的列和行。 Sub InsertPictures() 'Update 20140513 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Resume Next PicList = Application.Get OpenFilename(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.Sha pes.AddPicture( PicList(lLoop) , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
该评论由网站上的主持人最小化
选择单元格并根据您的需要按宽度和高度调整它们的大小。如果您有十张图片,请选择十个或更多单元格,请选择更多..!! 然后按 Alt+F11 然后单击 INSERT 然后单击 MODULE 然后按原样粘贴以下代码。 Sub InsertPictures() 'Update 20140513 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) 设置 Rng = Cells( xRowIndex, xColIndex) 设置 sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub AFTER THE上面的代码按 F5 .. 然后从计算机中选择文件,无论它们在哪里。 满足您的需要。 那么如果你没有保存工作簿,那么它会要求保存它。 如果你已经保存了它。 那么你的工作就是希望这能有所帮助.. Ali..!!
该评论由网站上的主持人最小化
非常感谢,它有效
该评论由网站上的主持人最小化
嗨,EXcel 大师,我有 2 张 excel 表。 一张包含一百多张图片,并在其下一个单元格中对图片进行描述。 选择后的另一张纸可能留下了 40 条描述。 我如何根据我的选择将图片转移到这张纸上。 谢谢人
该评论由网站上的主持人最小化
或者您直接使用 image-xls 。 使用此 Excel 插件,您可以将无限数量的图片插入 Excel 单元格,或作为评论。 它还会调整图片的大小。 并且可以订购和过滤您的 Excel 工作表,包括图片!
该评论由网站上的主持人最小化
我是 Mac 用户,一旦我将代码复制到新模块并运行它,什么都没有发生。 为了运行 VBA 代码,我必须在 mac 中做些什么吗? 谢谢
该评论由网站上的主持人最小化
[quote] 或者你直接使用 image-xls 。 使用此 Excel 插件,您可以将无限数量的图片插入 Excel 单元格,或作为评论。 它还会调整图片的大小。 并且可以订购和过滤您的 Excel 工作表,包括图片!由阿明[/quote] [quote]带有标题的说明:用VBA代码将多张图片插入Excel简直太棒了,快速有效! 这是购买和安装插件的好选择。 这是我第一次在网上发表评论!! 赞!拉胡尔·古普塔[/quote] 我试过这个,似乎工作正常 - 但你不能订购或过滤包括图片在内的 Excel 列表。 图片也不是按比例缩放的。 所以我买了 image-xls - 有点贵,但我只需要
该评论由网站上的主持人最小化
你好! 为什么“Sub InsertPictures()”不能在 Excel 2003 中工作? 我已经添加了对 Microsoft.Scripting.Runtime 的引用提前谢谢 Gilberto
该评论由网站上的主持人最小化
这对我很有帮助。 真是太好了……谢谢
该评论由网站上的主持人最小化
嗨,我在电子表格上尝试了代码,效果很好。 直到我尝试做过滤器。 发现最后一张图片将始终显示在过滤结果中。 有人能帮忙吗?
该评论由网站上的主持人最小化
使用下面的 VBA 程序无法在合并单元格中插入图片,Sub InsertPictures() 'Update 20140513 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Resume Next PicList = Application.Get OpenFilename(PicFormat , MultiSelect:=True) xColIndex = Application.ActiveCell.Column If IsArray(PicList ) Then xRowIndex = Application.ActiveCell.Row For lLoop = LBound(PicList) To UBound(PicList) 设置 Rng = Cells(xRowIndex , xColIndex) 设置 sShape = ActiveSheet.Sha pes.AddPicture( PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub 请建议我修改 VBA .
该评论由网站上的主持人最小化
大家好,这太棒了! 我已经关注你的教程有一段时间了。 我希望您能帮助我的是,我如何将其从将图像粘贴到一列更改为跨行? 以及如何将“完整文件名(即 example_image.jpg)”添加到它上面的行中。 行'A':“文件名.jpg”行'B':“图像缩略图”谢谢!
该评论由网站上的主持人最小化
嘿,我已经使用我自己的 VBE 代码插入了图片。 现在我试图与其他人分享它,不幸的是他们看不到图片......如果有人能告诉我我错过了什么,我将不胜感激。 谢谢
该评论由网站上的主持人最小化
这段代码几乎可以满足我的需要。 我有 200 张图片,每张图片都需要放在自己的工作表上。 我该怎么做?
该评论由网站上的主持人最小化
如何修改以下代码,以便将图片填充在跨多列和多行的选定单元格区域中,而不是在同一列中连续行的连续单元格中? Sub InsertPictures() 'Update 20140513 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Resume Next PicList = Application.Get OpenFilename(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.Sha pes.AddPicture( PicList(lLoop) , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
该评论由网站上的主持人最小化
Alguem conseguiu o codigo para a pergunta dele? estou precisando também!
这里还没有评论
加载更多
留下你的意见
以访客身份发帖
×
评价此帖子:
0   产品特性
建议地点

关注我们

版权所有 © 2009 - extendoffice.com。 | 版权所有。 供电 ExtendOffice。 | 网站地图
Microsoft和Office徽标是Microsoft Corporation在美国和/或其他国家的商标或注册商标。
受Sectigo SSL保护