VBA在Excel工作表中批量插入、删除图片的应用

最新推荐文章于 2025-03-18 20:00:51 发布
最新推荐文章于 2025-03-18 20:00:51 发布
阅读量1.7k 收藏 36
点赞数 33
文章标签： excel 程序人生
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/beijixingcc1/article/details/138334647
版权

    工作表的插入员工证件照

        Excel工作表中批量插入图片的工作，你是否遇到过？如工作表的A列是员工姓名，B列或其他列插入员工证件照。  

VBA在Excel工作表中批量插入、删除图片的应用 
        如何操作？一张张插入，照片大小可能不一致，还要手动调整大小，工作量太大；网上有批量插入照片的视频讲解，但前提是“姓名”列的顺序还必须和照片排列顺序完全一致。这就需要把“姓名”按照片排列的顺序重新排列，或将照片重命名成“姓名”的顺序。  
不需要这么麻烦，VBA代码能快速帮你解决问题。只要照片的名称和“姓名”一致，无论照片和“姓名”如何排序，插入的图片都能快速匹配，且图片的长、宽完全适应Excel工作表的行高、列宽，不会出现插入的图片大小一不致的现象。  
        本期以水浒人物为例。随意在网上搜了几张水浒人物的漫画，不知原出处，如有侵权，请联系删除。  
        Excel工作表、人物图片及插入图片后效果截图：

最低0.47元/天 解锁文章
beijixingcc1
关注
VBA学习(10):按名称批量将图片插入到表格中
nianfen的博客
06-18 2294
代码继续运行，会先删除旧图片，再插入新图片，最后发出一个消息框，用户一共成功插入了多少张图片，失败了多少张；5>代码采用非引用的方式插入图片，该方式会将图片作为资源打包到excel文件中，即便数据源的图片已被删除，表格中的图片也依然存在，这样有利于将工作簿发送他人，不利是Excel体积过大，使用效率就会变差。当然，您也可以把代码稍微修改，设置固定的图片行高和列宽，并由图片的行高和列宽决定单元格的大小。然后选择图片名称存放的单元格区域，可以选择整列、多列、整行或多行，比如示例动画中的B:D列，2:2行等。
批量插入_ExcelVBA_046 批量插入图片
weixin_42502736的博客
01-15 2228
一、需求说明有时为了在Excel内展示产品，需要批量插入图片到工作表，并且按一定规则排列好。借助Excel的插入图片功能一次性添加多张图片，会出现多张图片重叠，图片的大小不一的情况。今天我们就来简单改造这个插入图片的功能，一来让图片简单排列，二来统一图片的大小。二、实现过程1、先录制宏，获得核心语句单击录制宏按钮，切换到插入选项卡，选择图片...
VBA-030.批量将图片插入到表格中
12-19
VBA-030.批量将图片插入到表格中
Excel VBA批量导入图片的源代码
03-08
自动写的用Excel VBA 批量导入图片，放到同一列的单元格。
vba办公自动化（2）—批量导入图片
最新发布
m0_66813240的博客
03-18 306
【代码】vba办公自动化（2）—批量导入图片。
vba 批量插入图片到Excel
parusia的专栏
09-27 2045
最近用JXL和vba分别做了批量上传图片的小程序，很粗糙，但是我学习中的一小步呀。嘿嘿...............第一个，jxl实现public void InsertImageToExcel(String tagetFilePath,String imageFilePath) throws IOException, WriteException{ File tagetFile
Excel2010VBA批量插入或导出图片
09-16
以前用Excel2003做了些宏，在网上还有不少粉丝，因一些功能在Excel2010中无法使用，故重新整理，欢迎指正； 本Excel中的宏在Excel2010中测试表现出色; 运行宏前，要保证EXCEL没有禁用宏。 Michael Ho QQ: 9900060 ----------------------- 本Excel有以下功能： 插入图片1 1.点击执行后，会出现文件夹选择窗，请选择你JPG图片所在文件夹(选择“文件夹”而不是选择文件)； 2.宏会自动复制Sheet2到新工作簿，并插入你所选文件夹中的全部JPG图片到B列，对应的图片名自动填到C列； 3.图片的大小会自动适应Sheet2的B3单元格，因此可以在点击执行前调整Sheet2的B3单元格的大小来控制插入图片的大小。 -------- 插入图片2 1.点击执行后，会出现文件夹选择窗，请选择你JPG图片所在文件夹(选择“文件夹”而不是选择文件)； 2.宏会自动复制Sheet3到新工作簿，并插入你所选文件夹中的全部JPG图片制作图册，对应的图片名自动填到图片下方； -------- 插入图片3 如果用户自己的Excel文件中有一列是型号，该宏可以插入指定文件夹里以型号命名的JPG图片到另一列； 1.打开本Excel文件，不要关闭； 2.再另外打开你自己需要操作的另一个Excel文件，并保持你要操作的工作表做为当前活动工作表； 3.在你的文件中按Ctrl+I (或在你的文件中手动执行宏，然后选择本EXCEL文件中的宏InsertPic3）； 4.然后会出现文件夹选择窗，请选择你JPG图片所在文件夹(选择“文件夹”而不是选择文件)； 5.在弹出的对话框中指定型号在第几列，图片要插入到第几列，以及从哪一行开始； 6.图片的大小会自动适应你设定的第一行要插入图片的单元格，因此提前调整那个单元格的大小可以控制插入图片的大小。 ------------- 删除活动工作表中所有图片 Ctrl+d 删除活动工作表里所有的JPG图片，（不一定是本工作簿中的工作表）； 1.打开本Excel文件，不要关闭； 2.再另外打开你自己需要操作的另一个Excel文件，并保持你要操作的工作表做为当前活动工作表； 3.在你的文件中按Ctrl+d (或在你的文件中手动执行宏，然后选择本EXCEL文件中的宏DelPic）； ------------- 导出活动工作表中被选中的一张JPG图片 Ctrl+e 导出活动工作表中被选中的一张JPG图片，（不一定是本工作簿中的工作表）； 1.打开本Excel文件，不要关闭； 2.再另外打开你自己需要操作的另一个Excel文件，并保持你要操作的工作表做为当前活动工作表； 3.请选中一张要导出的图片； 4.在你的文件中按Ctrl+e (或在你的文件中手动执行宏，然后选择本EXCEL文件中的宏OutputOnePic）； 5.在弹出的对话框中指定图片要保存的名字； 1.不管图片在Excel中是否被缩放过，导出的图片是按图片的原始尺寸进行保存。 2.在桌面上会自动新建一个"OutputPic"的文件夹，导出的图片将会存在那个文夹里； 3.如果文件夹中已有相同名字的文件，则后面导出的文件会自动加上(v1), (v2), (v3)... ------------- 导出活动工作表中所有JPG图片 Ctrl+f 导出活动工作表中所有JPG图片，并且图片名自动使用指定列中的图片名； 1.打开本Excel文件，不要关闭； 2.再另外打开你自己需要操作的另一个Excel文件，并保持你要操作的工作表做为当前活动工作表； 3.在你的文件中按Ctrl+f (或在你的文件中手动执行宏，然后选择本EXCEL文件中的宏OutputAllPic）； 4.在弹出的对话框中指定图片所在列，图片名所在的列； 1.不管图片在Excel中是否被缩放过，导出的图片是按图片的原始尺寸进行保存； 2.在桌面上会自动新建一个"OutputPic"的文件夹，所有导出的图片将会存在那个文夹里； 3.如果文件夹中已有相同名字的文件，则后面导出的文件会自动加上(v1), (v2), (v3)... ---------------- 对指定文件夹中的JPG图片进行重命名 Ctrl+r 利用活动工作表中的所有图片的旧名与新名的对照，对指定文件夹中JPG图片进行重命名； 1.打开本Excel文件，不要关闭； 2.再另外打开你自己需要操作的另一个Excel文件，并保持你要操作的工作表做为当前活动工作表； 3.在你的文件中按Ctrl+r (或在你的文件中手动执行宏，然后选择本EXCEL文件中的宏RenamePic）； 4.在弹出的对话框中指定图片旧名所在列和图片新名所在的列； 1.可以结合插入图片的宏，将所有图片的旧名输入到Excel中，再在另一列中填上新图片名，然后使用该宏。 2.如果顺利运行，会在原来那个文件夹下面新建一个叫“New”的子文件夹，所有重命好名的图片会自动放入子文件夹里； 3.如果文件夹中已有相同名字的文件，则后面的文件会覆盖原来的文件。
实用VBA：10.用VBA向Excel文件中自动插入图片
周公笃行的博客
12-09 4622
实际工作中，套模板输出的时候常常需要插入图片，例如人员简历中的证件照，工作日志中的现场照片等。如果原始照片大小不一，还需要按比例进行缩放。同样可以使用VBA进行批量处理，而且可以和数据一并处理。
Excel 2010 VBA 入门 103 利用VBA批量插入图片
复行数十步
07-09 1万+
目录 示例 代码： Shapes、Shape和 ShapeRange Shapes对象插入图形的方法 Excel的坐标 图形大小的调整 获取图片的原始大小 将图片按比例缩放至单元格 图片批量插入的步骤 Pictures集合 示例 如图所示，该表为员工档案表。现需要根据员工的姓名批量导入已经存在于该工作簿文件目录下“图片”子目录中员工的照片。 姓名 年龄 入职日期 照片 张三 30 36559 李四 45 35856...
在Excel中批量导入图片的宏
12-14
导入：右击工作表，查看代码，然后在打开的宏编辑文档中的文件菜单中导入。 执行：在各单元格输入图片路径（可用dir /b /s E:\图片\*.jpg >E:\图片\picpath.txt得到图片路径），然后在视图工具栏的宏中点击查看宏。...
VBA常用小代码：在单元格中批量插入图片
yihuliunian的博客
03-29 2268
转载自品略图书馆http://www.pinlue.com/article/2020/03/2914/4510066052758.html 代码如下： Sub InsertPic() "ExcelHome VBA编程学习与实践 by:看见星光 Dim Arr, i&, k&, n&, pd& Dim PicName$, PicPath$, FdPath$...
VBA EXCEL按指定内容批量插图
10-17
Sub 按列批量插图() '按指定列的内容插入同名图片对应到右边列,图片大小自动适应单元格大小' On Error GoTo aa a = ActiveCell.Column '活动的列' b = a + 1 '活动列的右边一列' D = ActiveSheet.Cells(65536, a).End(xlUp).Row '最后一行 '跳出选择文件夹对话框 Set fd = Application.FileDialog(msoFileDialogFolderPicker) With fd If .Show = -1 Then t = .SelectedItems(1) End If End With For i = 1 To D n = Cells(i, a) '指定单元格的内容为n If n = "" Then GoTo aa '空格时跳到最后 Set fs = Application.FileSearch '设置模糊搜索文件夹 With fs .LookIn = t '路径为T .Filename = n " *.jpg" '文件名为n或者n+?(字数超过n的也以n为准做搜索) If .Execute > 0 Then '开始搜索 For J = 1 To .FoundFiles.Count ActiveSheet.Pictures.Insert(.FoundFiles(J)).Select '符合条件的做插入 Selection.Top = Cells(i, b).Top '设置图片大小 Selection.Left = Cells(i, b).Left Selection.Width = Cells(i, b).Width Selection.Height = Cells(i, b).Height Next J End If End With aa: Next For Each c In ActiveSheet.Pictures c.Height = c.TopLeftCell.MergeArea.Cells.Height ' 图片高度=合并后单元格高 Next End Sub
Excel自动插入图片的VBA模块bas文件
08-14
Excel自动插入图片的VBA代码或工具，利用VBA代码来实现自动按款号货号来插入图片。Excel 2003和Excel 2007及以上版本都可以使用。
在Excel 中用VBA插入图片的方法
热门推荐
panweifengCSDN的专栏
10-27 1万+
如果需要在Excel中某个固定位置插入图片可以采用以下方法 Step1, 在Excel中 插入Picture ActiveX控件                         Step2, 在属性窗口设置Picture控件的 背景和边框                         Step3, VBA    ActiveShe
Excel 使用VBA自动调整插入图片大小到单元格
天泽岁月
03-21 5125
Excel 使用VBA自动调整插入图片大小到单元格
如何把一张透明的图片做成不透明的
HuLuWa1997的博客
12-17 2346
我有一张透明的背景图，但是我需要他盖住下面的内容，所以要将他处理成不透明的，一个最简单的方法就是使用ps将打开该图片，多复制几个图层，然后将它合为一张图片就好了。 1.打开图片，如图 2.选择图片图层，按快捷键（command+j）CTRL+J复制多层。如图 3.选中所有图层，点击转换为智能对象 4.导出转换完成之后的图片 ...
【VBA】批量插入图片
weixin_30432179的博客
02-18 1488
解决如下问题： 需要批量导入图片到Excel 图片放在一个文件夹中 图片有严格的顺序关系，即按照：共通名_编号的方式命名。 图片格式统一，即均为同一格式。 有两种方式可以插入图片到Excel中，其一为插入快捷方式，在自己的电脑可以显示，但在别人的电脑显示不了。 其二为添加图片到文件，也有几种保存方式，可以选择。 > 现约定： 图片文件夹为PicPath 图片的共通名为PicComNam...
使用VBA批量向Excel插入图片
qq_41535099的博客
04-09 7348
好久之前学的VBA,今天终于派上点用处：任务：向excel的列中插入700多张图片，并且每张图片只占一个单元格，幸运的是我的图片尺寸都一样。首先使用宏：Sub 宏1()'' 宏1 宏    Range("E2").Select    ActiveSheet.Pictures.Insert("E:\cc\QQPCMgr\11.0.16779.224\BeginnersGuide.png" _    ...
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值