EXCEL宏批量导入同名图片
高效如风 Excel表格批量导入图片
高效如风 Excel表格批量导入图片作者：平淡来源：《电脑爱好者》2018年第04期如果需要插入的图片不多，可以使用手动的方法快速插入。
先在Excel中输入员工姓名数据，点击“插入→图片→来自文件”，插入一张和员工对应的照片到B2。
调整B2的大小和照片大小一致（可以略微大一些）。
接着全选数据行列，使用鼠标调整行列数值，使得B列所有单元格都能够放置图片。
定位到B2，点击“插入→图片”，然后按住Ctrl键选中需要插入的图片（选择图片的顺序要和姓名列员工的顺序一致），这样所有图片都可以插入到表格中。
选中最后一张插入的照片，将其移动到对应的B列位置。
按住Ctrl+A全选照片，点击“图片工具→格式→组合”，依次进行“左对齐”和“纵向分布”即可（图1）。
如果需要插入的图片很多，那么还可以借助VBA脚本快速实现。
首先将照片名称更改为与A列中的员工姓名一一对应。
接着点击“开发工具→VB”。
在打开的窗口输入如下代码（代码解释见语句之后半角单引号后的注释）：Sub 批量插入图片（）Dim cfan As String ’设置一个名为cfan字符串，将其作为图片路径变量Dim rng As RangeSheets（"SHeet1"）.Select ’选中要插入图片的工作表x = [a65536].End（xlUp）.Row ’取得最后一行的行号For i = 2 To xna = Cells（i， 1）’从第1列（即A列）得到图片名称，并以此名查找指定位置的图片cfan = "e：＼员工照片" & "＼" & na &".png" ’指定图片实际保存位置和格式If Dir（cfan） "" ThenCells（i， 2）.Select ’图片需要插入到第2列ActiveSheet.Pictures.Insert（cfan）. SelectSet rng = Cells（i， 2）’根据单元格的大小调整图片With Selection.Top = rng.Top + 1.Left = rng.Left + 1.Width = rng.Width - 1.Height = rng.Height - 1End WithEnd IfNextEnd Sub这样，在Excel中会新增一个名为“批量插入图片”的宏，按提示运行这个宏，即可将所有照片按照员工名称插入到B列对应的单元格中（图2）。
Excel如何批量插入图片并对应名字
首先，我们需要保证所有要录入到表格的产品图片放在同一个文件夹下面。
如下图：然后我们就可以开始制表。
具体操作步骤：步骤1、打开Excel表格，点击菜单栏的【公式】—【定义名称】，在弹出的【新建名称】对话框中，设置“名称”及“引用位置”，“名称”我们随意填写，“引用位置”这里输入：“=FILES("D:\产品图片\*.jpg")”如下图：补充说明：“引用位置”填写的公式：=FILES("D:\产品图片\*.jpg")其中：D:产品图片表示图片存放的路径，即图片存放在D盘的“产品图片”文件夹下；“*.jpg”表示以.jpg结尾的所有图片。
这里需要注意的是，路径大家根据自己图片在电脑的实际存放路径设置，图片后缀也根据自己的实际情况设置，因为这里我要导入的图片的后缀都是.jpg结尾，所以引用位置就设置为=FILES("D:产品图片*.jpg")，如果大家要导入表格的图片的后缀是.png或是.gif后缀的图片，引用位置的公式里的图片后缀也要修改为相应的后缀。
如果图片格式后缀什么都有的话，则公式可以直接设置为：=FILES("D:\产品图片\*.*")。
步骤2、在表格的“产品名称”列的第一个单元格，即d1单元格里输入公式：=INDEX(产品名称，ROW(B1))，然后用填充柄，鼠标向下拖拉，用d1的公式填充以下的所有单元格，就可以看到d列单元格获取到所有产品图片的名称。
步骤3，把d列的公式转化为数值，即选中d列单元格区域，复制，然后右键—【选择性粘贴】—【数值】，就可以看到d列的产品名称都是以数值形式呈现出来，如下图：步骤4、利用“查找替换”功能，去掉d列产品名称的后缀，即在“替换”窗口，把“.jpg”替换成空；说明：当产品名称有多种后缀的时候，在“替换”窗口里的查找内容我们可以填写成：.*，如下图：替换后的效果如下：步骤5、在e1单元格里输入以下公式：="<table><img src=""D:\产品图片\"&a2&".jpg""width=""100""height=""100"">"，然后再利用鼠标填充柄，向下单元格填充此公式；公式说明：D:产品图片表示产品路径；D1表示引用d1单元格的产品图片名称；“width”是图片宽度，“height”是图片高度，宽度高度大家可以根据自己的需要自行设置。
Excel技巧应用篇：一行代码插入图片并且跟人名一一对应
Excel技巧应用篇：一行代码插入图片并且跟人名一一对应HR在制作员工信息表时通常会插入大量图片，而且插入的图片要跟姓名一一对应，如果使用正常的图片插入方法，这肯定是一项非常费时间的工作。
其实所谓的批量插入，肯定是有技巧的，今天我教大家用一行代码批量插入图片，并且跟姓名一一对应！具体操作步骤如下：1、先将要批量插入的图片放在一个文件夹中，并且把照片命好名字，照片的名字需要跟表格中的名字一样。
2、在F3单元格中输入这行代码：="<table><img src=""F:\照片\"&C3&".png"" width=""80"" height=""60"">"，输入完之后按回车键，并将代码下拉填充至F9单元格。
代码解释：代码中的<img src="照片的文件路径"，我们的照片是存放在F盘下的照片文件夹中，后面用文本连接符将C列的姓名以及图片的后缀名“.png”拼接起来即可得到图片的完整路径。
w idth=“80”，height=“60”是图片插入到Excel中的高度和宽度。
3、按快捷键“Ctrl+C”复制F3:F9单元格区域中的代码，打开一个空白的文本文档或者Word文档，将复制的代码按快捷键“Ctrl+V"粘贴到文本文档中。
4、将文本文档中的代码再复制回Excel表格中，粘贴到F3:F9单元格区域，此时可以看到表格中已经插入了7张照片，我们稍微调整下图片的位置即可。
5、最后，我们可以将批量插入的图片跟文件夹的图片名称对照一下，可以看出人名跟图片都一一对上了。
用一行代码就完成了数小时才能完成的工作，这会大大提高我们的工作效率，代码不难记，自己有空可以试一试哦！。
EXCEL表格里如何批量插入多张图片,并与名称一一对应
EXCEL表格里如何批量插入多张图片，并与名称一一对应在日常工作中，我们经常会将多个图片批量上传到EXCEL表格中，如员工姓名和照片，商品报价单里的商品与图片，BOM表里的产品和组件图等等，成千上万张图片如何批量上传到EXCEL表格并一一对应呢？下面我们一起来看看。
统一文件名称提取到EXCEL表格把所有图片统一命名放到一个文件夹里，按下CTRL+A选中所有的图片，按下SHIFT键，移动鼠标到第一张图片上，点击鼠标右键，弹出列表，选择“复制文件地址”。
打开EXCEL表格，在A列单元格内粘贴上复制的图片地址，在B1单元格内手动提取第一张图片里的名称。
选中下方的空白单元格，在键盘上按下“CTRL+E”，批量提取出图片里的名称，或者用前面所学的“数据分列”功能也能提取出名称。
插入图片删除掉A列数据，依照图片的尺寸调整单元格的高度和宽度。
点击菜单栏上“插入-插图-图片”，下拉选择“此设备”。
弹出图片窗口，确认下图片的顺序和表格里的名称是否一致，正常情况下都是一致的。
全选所有的图片插入到EXCEL表格。
插入图片后，默认是全部选中，点击菜单栏上新增加的“图片格式-大小”右下角的箭头图标，打开设置图片格式窗口，勾选选项“锁定纵横比”，修改图片的高度或是宽度。
锁定纵横比是让图片始终保持原始尺寸的比例，调整图片的高度或者宽度，整体按比例缩小。
图片调整合适后，选中第一张图片，也就是最上面的图片，拖动到表格名称的最后一个单元格右侧的B列单元格。
CTRL+A全选所有的图片，点击菜单栏上“对齐-左对齐”。
再次点击“对齐-纵向分布”。
所有的图片重新排列和左侧A列的名称一一对应，可以全选图片后在键盘上按下上下左右方向键，微调下表格在单元格中的位置。
打开“设置图片格式”窗口，根据实际的情况勾选“随单元格改变位置和大小”或是“随单元格改变位置，但不改变大小，打印的时候，如果需要打印出图片，则勾选”打印对象”，如果不需要打印则可以不用勾选。
Excel如何用VBA批量上传图片和批量添加批注图片
Excel如何用VBA批量上传图片和批量添加批注图片对于HR人员来说,一个一个添加人员照片是件很头疼很费劲的事,下面我就教大家怎么一键上传图片.表中我用字母代替人员名称,这个你们可以更改,最主要的是,工作表中的名字一定要和文件夹中的图片命名相同.附上文本篇代码,如下.Sub 批量导图片()Dim PHOT, I$, RG, z% '声明变量z = Cells(Rows.Count, 1).End(3).Row '获取数据的最后一行号For Each PHOT In Range('a2:a' & z) '在A列数据区循环I = 'H:\头条\图片\' & PHOT & '.JPG' '将获取的图片地址赋值给变量Set RG = Cells(PHOT.Row, 2) '将B列相应的单元格对象赋值给变量'返回图片对象,并设定图片显示格式ActiveSheet.Shapes.AddPicture I, True, True, RG.Left, RG.Top, RG.Width, RG.HeightNextEnd Sub有的人可能就想,把照片上传到单元格内太占空间了,影响审阅,有没有其它方法?当人有,下面我就教大家怎么批量添加照片到批注里面.如下图所示,附上文本篇代码,如下.Sub 批量添加图片批注()Dim rag, z% '声明变量z = Cells(Rows.Count, 1).End(3).Row '获取数据的最后一行号For Each rag In Range('a2:a' & z) '在A列数据区循环rag.AddComment '为区域添加批注erPicture 'H:\头条\图片\' & rag & '.JPG' '创建批注形状添加图片ment.Shape.Height = 200 '设置图形高度ment.Shape.Width = 150 '设置图形宽度NextEnd Sub以上代码可以随意根据自己的需要改动,如有不懂的地方可以在评论指出,我会一一说明的.喜欢就关注我吧!PS:欢迎你的点赞,分享和评论!。
用EXCEL批量命名图片
根据EXCEL中的学生学号或其它信息重命名批量重命名学生照片
学生姓名来源于excel，照片是序列和excel的姓名相对应。
1，进入到需要重命名文件的文件夹中，新建一个txt文件，内容为dir *.jpg /b>ren.bat(假如你要重命名的是图片的话，其它的文件只要将jpg改为其它文件的扩展名就OK）,再改名为1.bat.双击1.bat运行。
2，用记事本打开生成的ren.bat文件，复制里面的全部内容，打开excel，右击A2单元格，选择“选择性粘贴”，选择unicode 文本，点击确定。
（1、2也可省去，直接在Excel文档中粘贴照片原名称）
Excel文档中，假设学号在第A列，姓名在第B列，身份证号在第C列等等，则在第一条学生信息后的空白单元格中输入="ren "&A2&".jpg "&C2&".jpg"（ren后有空格，前一个jpg后有空格；意思是把A2单元格的名称重命名为C2单元格的名称），回车会得到一个类似“ren 200600001.jpg XXXXXXXXXXXXX.jpg”的DOS命令。
3.点击该单元格右下角的填充柄，将公式应用到所有学生，复制此列所的数据。
4.新建一个记事本，粘贴复制的内容，得到的就是文件重命名的DOS命令。
5.将该文件保存到学生照片文件夹下（学生照片文件夹是复制后的，这样不会破坏原有数据），将扩展名".txt"改为".bat"，这时只要双击该文件，就会自动将图片重命名为以身份证号命名的图片文件了。
excel表格批量导入图片的方法步骤
excel表格批量导入图片的方法步骤
在Excel中录入好数据以后经常需要用到图片进行对表格的美化修饰，或许有的朋友并不知道图片该如何批量导入，如果不懂的朋友欢迎一起来摸索探讨一番吧。
下面是由店铺分享的excel表格批量导入图片的教程，以供大家阅读和学习。
excel表格批量导入图片的教程
表格批量导入图片步骤1：首先看需要导入照片的Excel员工档案简表：
表格批量导入图片步骤2：员工照片都放在D盘【员工照片】文件夹内，并且都以员工的姓名命名：
表格批量导入图片步骤3：在员工档案简表C2单元格输入以下公式，向下复制： ="" 公式中的D\员工照片为存放照片的文件夹; A2为照片名称。
176和220分别是照片的宽度和高度。
单位是像素，实际应用时大家可以根据实际情况调整：
表格批量导入图片步骤4：复制C列公式内容，粘贴到记事本中：表格批量导入图片步骤5：调整员工档案简表C列的行高、列宽与照片大小相同：
表格批量导入图片步骤6：复制记事本中的内容，右键单击员工档案简表C2单元格，选择性粘贴：
表格批量导入图片步骤7：单击确定按钮，帅哥和美女的照片就全部按部就班啦~~。
Excel2016批量插入图片如此简单，一行代码搞定
Excel2016批量插入图片如此简单，一行代码搞定
大家在制作员工信息表时会插入大量员工照片，使用常规方法插入逐个照片费时费力，其实用一行代码就可以搞定批量插入照片。
以下图为例，批量导入4张照片并且对应姓名行。
准备工作：
1、把要插入的图片复制到电脑的D盘的“照片”文件夹下面
2、照片的名称要和表格内的姓名相同
步骤1、在C2单元格输入代码，敲回车。
步骤2、填充C2:C5单元格
步骤3、复制C2:C5单元格内容到记事本
步骤4、将记事本的内容再复制回C2:C5单元格(使用Ctrl+V 粘贴快捷键)，出现4张图片。
步骤5、调整图片至适当位置
批量导入图片是不是很简单。
最后解释一下这段代码，img src=文件路径，这里的文件路径是D盘的照片文件夹下，对应A2姓名的图片名称。
width=60是插入后图片的宽度60，height=40是插入后图片的高度40。
好了，今天就分享到这里。
需要模板的小伙伴可以私信我，回复“分享”，获取精美图表模板和财务表格资源。
ExcelVBA（12）—批量导出图片并重命名
将⼯作表中的图⽚批量导出，并且重新命名为B列对应的名称。
如下图：在⼯作表中添加表单控件，右键指定宏R e n a m e ，如下两图：.Export ThisWorkbook.Path & "\图⽚\" & RN & ".jpg".Parent.DeleteEnd WithEnd IfNextMsgBox "导出图⽚完成！"Application.ScreenUpdating = TrueEnd Sub点击控件，即可实现在该E X C E L⽂档所在的⽂件夹中新建⼀个“图⽚”⽂件夹，所以导出的图⽚实现重命名并保存在该“图⽚”⽂件夹中。
如下图：如果不知道控件怎么插⼊，怎么指定宏，请参考E x c e l | 让“宏”来替你做重复动作。
---------------------有关V B A：Excel | VBA(11)—合并个⼈简历到统⼀⼯作表Excel | VBA(10)—聚光灯效果（阅读模式）设置Excel | VBA(9)—与所选单元格相同的⾏⾃动添加颜⾊，核查数据如此⽅便Excel | VBA(8)——⼯作表输⼊数据⾃动加边框，删除数据⾃动去除边框Excel | VBA（7）--根据订单号跨多⼯作表查询数据Excel | VBA(6)——⼀对多查询，⼏⾏代码代替复杂公式Excel | VBA（5）——合并⼯作薄Excel | VBA（4）——合并⼯作表Excel | VBA（3）——⽣成带超链接的⽬录Excel | VBA（2）——⽣成⼯作表⽬录Excel | VBA（1）——判断等级Excel | 让“宏”来替你做重复动作--------------------。
教你如何在EXCEL批量导入图片
教你如何在EXCEL批量导入图片，单元格导入，绝对无误，亲自测试！2010年06月21日星期一 17:24在Excel中可以插入图片，基本的操作是插入/图片/来自文件，一两张还可以用这方法，要是把张三、李四、王二麻子的照片依次和人名对应上，可就是个大问题了。
今天我介绍一种另类批量插入图片的方法，这种方法插入图片较灵活，可以批量确定图片插入的位置，甚至可以随意陋行插入图片，以及在插入图片的同时确定图片大小、为插入的图片建立超链接等等。
第一步：打开需要插入图片的表格，默认图片保存在C盘根目录下，以姓名为图片名称。
第二步：在B2单元格输入公式="<table><img src=""c:\"&A2&".JPG"">"，向下复制公式至B5.第三步：选持B2：B5，按住Ctrl键的同时连续按两次C。
这样会将B2：B5之间的内容复制到粘贴板上并调出粘贴板，删除B2：B5的内容。
将粘贴板中的内容，粘贴至B2单元格。
第四步：在公式栏选择刚刚粘贴进来的文件，Ctrl+X剪切。
单击B2单元格，点击编辑/选择性粘贴/Unicode文本”，将刚才剪切的内容重新复制进B2单元格，文本变成了图片。
第五步：这样插入进来的图片都是原图片大小，需要将它们统一大小。
按F5功能键，调出定位对话框，点击定位条件/对象，此地所有图片都已经被选中，右击后，选择设置图片格式/大小，将高度设为2.12厘米，宽度设为1.72厘米。
这样批量插入的图片是按照公式的位置定位的，哪个单元格有公式，图片就插入到哪里。
实际上，公式产生的代码为<table><img src="c:\张三.jpg">。
这种方法在插入图片的同时甚至可以设定图片大小，代码为<table><img src="c:\张三.jpg" width=65 height=80>，意思是插入到图片在C盘根目录下的张三.jpg，按宽度65像素，高度80像素设置图片大小。
EXCEL用宏批量插入图片
EXCEL用宏批量插入图片excel：如何批量导入图片office 学习 2010-05-16 11:34:26 阅读1699 评论2 字号：大中小订阅在ecxel里插入图片应该是人人都会，但是要求你插入几十张图片，那就麻烦了，总不能一张张地插入吧。
现在有个好方法，需要用到ecxel里的宏：这里用一个9个学生的名单与相片做例子：1、首先在同一个文件夹里新建一个电子表格excel，还有一个学生的相片文件夹，图片是.JPG格式的。
2、准备好学生的相片顺序，命名为1、2、3……（如上图）3、电子表格的SHEET1工作表A列为学号1、2、3……B列为姓名（姓名的顺序要与相片的顺序一致）C为相片（把C列的大小按照相片的大小调好）4、工具-----宏------录制新宏。
5、弹出“录制新宏”对话框，宏名随便，保存在“当前工作簿”，确定。
6、电子表格里出现下面这个图标，单击“相对引用”即右边那个，然后按左边的停止按钮。
7、工具-----宏----宏。
8、弹出“宏”对话框，选中刚才录制宏的宏名如“Macro2”，再按编辑。
9、弹出宏的编辑器，在右边的“通用”下面编辑界面里，把里面原有的内容全都删除，把下面（红色部分）一段代码复制粘贴进去。
Sub Macro2()'Dim cun As IntegerFor cun = 1 To 9Range("c" & cun).SelectActiveSheet.Pictures.Insert( _"C:\Documents and Settings\Administrator\桌面\相片批量导入\学生相片\" & cun & ".jpg" _).SelectNext cunEnd Sub===========================上面的编码解释一下：1）Macro2 指宏的名称。
Excel-VBA将同路径图片全部导入工作表
Excel-VBA将同路径图片全部导入工作表应用场景一键导入图片 Pictures.Insert方法知识要点1：While...Wend 语句只要指定的条件为True，则会重复执行一系列的语句2：Pictures.Insert方法，插入图片，且在插入时可以自动选择该图片3：Dir 函数返回一个 String，用以表示一个文件名、目录名或文件夹名称，它必须与指定的模式或文件属性、或磁盘卷标相匹配4：在第一次调用 Dir 函数时，必须指定 pathname，否则会产生错误再一次调用Dir，且不要使用参数。
如果已没有合乎条件的文件，则 Dir 会返回一个零长度字符串 ('')5：一旦返回值为零长度字符串，并要再次调用 Dir 时，就必须指定 pathname，否则会产生错误Sub 批量导入同路径下所有图片()Dim Str As String, n As Long, Paths, Arr, iOn Error GoTo errPaths = ActiveWorkbook.PathIf Len(Paths) = 0 Then MsgBox '请保存工作薄', 64, '提示': Exit SubApplication.ScreenUpdating = False '关闭屏幕更新，提示速度Arr = Array('\*.jpg', '\*.jpeg', '\*.bmp', '\*.png', '\*.gif')'对5种格式的图片有效For i = 0 To 4Str = Dir(Paths & Arr(i)) '开始查找文件，查找格式从数组arr中逐一获取While Len(Str) > 0n = n 1ActiveSheet.Pictures.Insert(Paths & IIf(Right(Paths, 1) = '\', '', '\') & Str).Select '插入图片Str = Dir() '查找下一个WendNextApplication.ScreenUpdating = True '恢复屏幕更新MsgBox '已插入' & n & '个图片！', 64, '提示'err:End Sub。
Excel高级技巧使用宏实现数据的批量导入导出和格式化
Excel高级技巧使用宏实现数据的批量导入导出和格式化Excel是一款功能强大的电子表格软件，在数据处理和管理方面广泛应用。
然而，随着数据量的增加和复杂性的提高，手动处理数据变得非常耗时且容易出错。
为了提高工作效率，并减少人为错误的出现，我们可以使用Excel的高级技巧，特别是宏功能来实现数据的批量导入导出和格式化。
本文将介绍如何利用宏在Excel中实现这些功能。
一、宏的基本概念和使用方法宏是一种自动化操作工具，可以录制并回放一系列的操作指令。
在Excel中，我们可以通过录制宏的方式来自动执行常见的数据处理任务。
接下来，将介绍宏的基本概念和使用方法。
1. 录制宏录制宏的步骤如下：步骤1：打开Excel，点击“开发工具”选项卡中的“宏”按钮。
步骤2：在弹出的“宏对话框”中点击“新建”按钮。
步骤3：在“宏名称”文本框中输入宏的名称，并点击“确定”按钮。
步骤4：开始录制宏，执行需要录制的操作指令。
步骤5：停止录制宏，点击“宏”选项卡中的“停止录制”按钮。
2. 运行宏运行宏的步骤如下：步骤1：点击“开发工具”选项卡中的“宏”按钮。
步骤2：在弹出的“宏对话框”中选择需要运行的宏，并点击“运行”按钮。
二、使用宏实现数据的批量导入导出1. 批量导入数据通过使用宏，我们可以快速将外部数据批量导入到Excel中。
以下是实现这一功能的步骤：步骤1：打开Excel，点击“开发工具”选项卡中的“宏”按钮。
步骤2：在弹出的“宏对话框”中点击“新建”按钮，输入宏的名称，并点击“确定”按钮。
步骤3：在录制的宏中，点击“数据”选项卡中的“从文本”按钮，选择需要导入的文本文件。
步骤4：根据导入数据的格式和分隔符设置数据导入选项，并点击“确定”按钮。
步骤5：停止录制宏，点击“宏”选项卡中的“停止录制”按钮。
步骤6：点击“开发工具”选项卡中的“宏”按钮，选择刚刚录制的宏，并点击“运行”按钮，即可实现批量导入数据功能。
2. 批量导出数据通过使用宏，我们可以将Excel中的数据批量导出到外部文件中。
EXCEL表格如何批量导入图片正式版
EXCEL表格如何批量导入图片正式版EXCEL表格如何批量导入图片1、准备好图片放入一个文件夹（图片名字需与表格的名称一致，为*.jpg）2、右击图片属性，图片路径，红框处，复制出来：G:\图片\3、回到表格，拷贝红框内的文字，复制-粘贴到*.txt文档，转为纯文字格式，txt文档另存为11（名字任意）。
表格里的图片名称（图片名字需与表格的名称一致，为*.jpg），我习惯用货号命名图片，如下图：4、做好导入图片公式的txt格式文档。
①把“商品编码”删掉。
<table><img src="G:\图片\10V 2006.jpg" width="100" height="90">②表格要求导入的图片不多的话，可以直接用复制-粘贴，图片名称前后是一样的。
如果是上百个，上千个图片需要导入，那就要借助word的力量。
word 每行行首、行末添加相同的指定字符行首：替换 ^p 为 ^pA（A为你要插入的字符）行末：替换^p 为 A^p（A为你要插入的字符）图片名称前的文字：<table><img src="G:\图片\图片名称后的文字：.jpg" width="100" height="90">③把txt的货号复制到word文档，替换行首，行末第一行的行首没有替换到，把最后一行的剪切上去即可，手动调整后（注意每一行的图片名称不能调换顺序）替换行末：点击全部替换。
<table><img src=“G:\图片\10V 2006.jpg” width=“100” height=“90”>④替换好后发现引号是全角引号，必须要转为英文状态下的半角引号。
⑤复制文档1内容，粘贴到11.txt文档⑥Ctrl+H,替换掉全角的引号，先替换左边的引号，再替换右边的引号。
Excel批量插入图片VBA代码
Excel 批量插入图片VBA代码(2011-06-24 08:56:26)转载标签：excel批量插入图片代码杂谈在要插入图片的文件夹里新建一个Excel文件，打开这个Excel文件，在要插入图片的单元格里填上图片文件名（不要扩展名），选中要插入图片的单元格，修改单元格的大小以显示所需要的图片大小，运行宏代码。
1、Alt+F11调取VBA编辑窗口，查看代码，将以下代码全部复制进去；2、关闭VBA窗口，Excel-视图-宏-查看宏；3、Book1.xls!Sheet1.insertPic，选中所要插入图片的单元格，执行；4、图片自动插入对应的单元格中。
（图片尺寸均可通过单元格大小进行调解，边框可设置）代码如下：Sub insertPic()' 宏由万加美酒编写，时间: 2009-6-1' Dir函数批量获取指定目录下所有文件名和内容On Error Resume NextApplication.ScreenUpdating = False '关闭屏幕更新Dim MR As RangeFor Each MR In SelectionIf Not IsEmpty(MR) And Dir(ActiveWorkbook.Path & "\" & MR.Value & ".jpg") <> "" Then MR.SelectML = MR.LeftMT = MR.TopMW = MR.WidthMH = MR.Height, ML, MT, MW, MH).Select_ActiveWorkbook.Path & "\" & MR.Value & ".jpg" '当前文件所在目录下以当前单元内容为名称的.jpg图片End IfNextSet MR = NothingApplication.ScreenUpdating = True '开启屏幕更新End Sub我想"按一下按钮，插入图片"我的vba code 如下:Sub Picture_Click_06202010()x = Cells (8, 4).ValueChDir "C:\Users\myname\Desktop\picture\""x" + ".jpg"End Sub*** cells (8, 4) 的值是图片的名称我的vba code 有错..."C:\Users\myname\Desktop\picture\" & x & ".jpg")插入档案时请用全路径，不要用ChDir 变更工作路径，因为ChDir 无法处理变更工作磁盘。
2007版EXCEL批量插图{宏}-改良版
Excel批量插图宏（2007版本）因工作需要，经常会要插很多图片，一开始不懂，所以都是用土办法，工作量实在大，后面得到一同事指教，学会了这个方法。
现在拿出来和大家一起分享一下，希望能对大家有所帮助。
1.将需要插图的文件与图片放在同一个文件夹中（如图1所示）。
图12.打开表格book2,复制图片名称至图片那一列（如图2和图3所示）。
图2 图33.选中图片一列需插图的单元格-视图-录制宏-停止录宏（如图4、5、6所示）。
图4图5 图64.视图-查看宏-编辑，编辑完关闭窗口。
（如图7、8、9所示）图7 图8图9Sub Macro1()' Dir函数批量获取指定目录下所有文件名和内容On Error Resume NextApplication.ScreenUpdating = False '关闭屏幕更新Dim MR As RangeFor Each MR In SelectionIf Not IsEmpty(MR) And Dir(ActiveWorkbook.Path & "\" & MR.Value & ".jpg") <> "" ThenMR.SelectML = MR.LeftMT = MR.TopMW = MR.WidthMH = MR.HeightActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).SelecterPicture _ActiveWorkbook.Path & "\" & MR.Value & ".jpg" '当前文件所在目录下以当前单元内容为名称的.jpg图片End IfNextSet MR = NothingApplication.ScreenUpdating = True '开启屏幕更新End Sub备注：上面一段宏只会插入图片到“单元格”，而不会在“合并格”中填满，若需在“合并格”中填满，可改用下面一段宏：Sub Macro1()' Dir函数批量获取指定目录下所有文件名和内容On Error Resume NextApplication.ScreenUpdating = False '关闭屏幕更新Dim MR As RangeFor Each MR In SelectionIf Not IsEmpty(MR) And Dir(ActiveWorkbook.Path & "\" & MR.Value & ".jpg") <> "" ThenMR.SelectML = MR. MergeArea.LeftMT = MR. MergeArea.TopMW = MR. MergeArea.WidthMH = MR. MergeArea.HeightActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).SelecterPicture _ActiveWorkbook.Path & "\" & MR.Value & ".jpg" '当前文件所在目录下以当前单元内容为名称的.jpg图片End IfNextSet MR = NothingApplication.ScreenUpdating = True '开启屏幕更新End Sub5.视图-查看宏-执行（如图10所示）图106.插图完成。
Excel 批量插入图片 VBA代码
Excel 批量插入图片VBA代码(2011-06-24 08:56:26)转载标签：excel批量插入图片代码杂谈在要插入图片的文件夹里新建一个Excel文件，打开这个Excel文件，在要插入图片的单元格里填上图片文件名（不要扩展名），选中要插入图片的单元格，修改单元格的大小以显示所需要的图片大小，运行宏代码。
1、Alt+F11调取VBA编辑窗口，查看代码，将以下代码全部复制进去；2、关闭VBA窗口，Excel-视图-宏-查看宏；3、Book1.xls!Sheet1.insertPic，选中所要插入图片的单元格，执行；4、图片自动插入对应的单元格中。
（图片尺寸均可通过单元格大小进行调解，边框可设置）代码如下：Sub insertPic()' 宏由 万加美酒编写，时间: 2009-6-1' Dir函数批量获取指定目录下所有文件名和内容On Error Resume NextApplication.ScreenUpdating = False '关闭屏幕更新Dim MR As RangeFor Each MR In SelectionIf Not IsEmpty(MR) And Dir(ActiveWorkbook.Path & "\" & MR.Value & ".jpg") <> "" Then MR.SelectML = MR.LeftMT = MR.TopMW = MR.WidthMH = MR.HeightActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).SelecterPicture _ActiveWorkbook.Path & "\" & MR.Value & ".jpg" '当前文件所在目录下以当前单元内容为名称的.jpg图片End IfNextSet MR = NothingApplication.ScreenUpdating = True '开启屏幕更新End Sub我想"按一下按钮，插入图片"我的vba code 如下:Sub Picture_Click_06202010()x = Cells (8, 4).ValueChDir "C:\Users\myname\Desktop\picture\"ActiveSheet.Pictures.Insert "x" + ".jpg"End Sub*** cells (8, 4) 的值是图片的名称我的vba code 有错...ActiveSheet.Pictures.Insert("C:\Users\myname\Desktop\picture\" & x & ".jpg")插入档案时请用全路径，不要用ChDir 变更工作路径，因为ChDir 无法处理变更工作磁盘。
Excel怎么批量导入图片Excel批量导入图片教程
Excel怎么批量导入图片Excel批量导入图片教程
在Excel表格中要插入很多图片，但是一张一张的插入再一张张的排好位置实在是过于麻烦，那么有什么办法是可以快速批量导入图片的呢，下面就来教大家操作方法。
1、首先我们全选表格，调整表格的列宽行高。
2、然后点击【插入】-【图片】，将导入的图片全部选择插入进来。
3、接着在上方的图片设置栏中设置图片的大小宽度。
4、然后在最后一个单元中首先插入图片。
并再次选中所有图片，在【排列】栏中选择【对齐】-【左对齐】，这样所有的图片都会排列整齐。
5、最后一步再次点击【对齐】-【纵向分布】，如此一来，所有的图片都会规整的移动到自己的单元格中，无需你手动去一张一张的去拖动啦。
怎么样是不是非常的简单呢，小伙伴们快去试下哦，用了这样的方法，即使有上千张图片也难不倒你，半分钟即可搞定哦。
利用EXCEL为图片批量重命名
利用EXCEL为图片批量重命名利用E X C E L为图片批量重命名This manuscript was revised by JIEK MA on December 15th, 2012.利用E X C E L为照片批量重命名一、准备照片。
事前按照学籍顺序将学生排好序列，然后逐一拍照，完成后将相片文件拷到电脑上备用，如存放在“D：\photo”文件夹内。
二、巧用EXCEL填充柄，批量建立改名命令行。
第一步：打开EXCEL软件。
在A列中输入照片名“DSCN0001．JPG”，然后用填充柄向下拖动，一直到合适的数字为止。
然后，在B列中以学生的学号等信息输入“．JPG”并用填充柄向下拖动直到合适的位置停止。
第二步：在C列中输入以下内容“="REN "&A1&" "&B1&""”（注意：外侧双引号不用输入，内部双引号必需是在英文状态下输入）后按下回车键，即可出现相应结果。
第三步：向下拖动该单元格的填充柄，直至对应左侧的内容。
最终效果如图所示。
最后将C列中的全部内容选中并进行复制。
●这是利用EXCEL填充句柄批量生成的重命名命令。
四、建立“重命名”批处理命令。
在D：\photo文件夹下单击鼠标右键，选择新建“文本文档”命令。
然后将该文件名改为“重命名．BAT”。
右击该文件，选择“编辑”命令，进入该批处理文件的编辑状态。
在编辑空白区右击，选择“粘贴”，将刚才EXCEL文件中C列中的内容复制到这里。
然后存盘并退出。
五、运行“重命名．BAT”进行批量更名。
回到“D：\photo”文件夹后，直接双击运行“重命名．BAT”。
这时，你会发现所有的相片文件名都已经整整齐齐地更改为我们需要的文件名了。
注：命令可复制以下字段：="REN "&A1&" "&B1&""。