教你如何在EXCEL批量导入图片

教你如何在EXCEL批量导入图片，单元格导入，绝对无误，亲自测试！2010年06月21日星期一17:24在Excel中可以插入图片，基本的操作是插入/图片/来自文件，一两张还可以用这方法，要是把张三、李四、王二麻子的照片依次和人名对应上，可就是个大问题了。今天我介绍一种另类批量插入图片的方法，这种方法插入图片较灵活，可以批量确定图片插入的位置，甚至可以随意陋行插入图片，以及在插入图片的同时确定图片大小、为插入的图片建立超链接等等。第一步：打开需要插入图片的表格，默认图片保存在C盘根目录下，以姓名为图片名称。第二步：在B2单元格输入公式=tableimgsrc=c:\&A2&.JPG，向下复制公式至B5.第三步：选持B2：B5，按住Ctrl键的同时连续按两次C。这样会将B2：B5之间的内容复制到粘贴板上并调出粘贴板，删除B2：B5的内容。将粘贴板中的内容，粘贴至B2单元格。第四步：在公式栏选择刚刚粘贴进来的文件，Ctrl+X剪切。单击B2单元格，点击编辑/选择性粘贴/Unicode文本”，将刚才剪切的内容重新复制进B2单元格，文本变成了图片。第五步：这样插入进来的图片都是原图片大小，需要将它们统一大小。按F5功能键，调出定位对话框，点击定位条件/对象，此地所有图片都已经被选中，右击后，选择设置图片格式/大小，将高度设为2.12厘米，宽度设为1.72厘米。这样批量插入的图片是按照公式的位置定位的，哪个单元格有公式，图片就插入到哪里。实际上，公式产生的代码为tableimgsrc=c:\张三.jpg。这种方法在插入图片的同时甚至可以设定图片大小，代码为tableimgsrc=c:\张三.jpgwidth=65height=80，意思是插入到图片在C盘根目录下的张三.jpg，按宽度65像素，高度80像素设置图片大小。如果想在插入的图片上设置超链接，代码为：bodyahref=c:\张三.jpgimgsrc=c:\张三.jpgwidth=40height=15为什么会产生这样的效果呢，我们知道Excel可以保存为网页文件，而网页文件也可以转换为Excel文件，说明Excel是支持网页代码的，但是Excel支持的网友代码有限，并不是全部支持。即使是这样也能利用这一点为我们解决不少看似解决不了的问题，如批量更改单元格部分文字格式，批量建立或更改超链接，批量更改批注文字，输入带圈字符等等。看来Excel还有不少有待我们开发的宝藏我有a列五十一个学生的姓名，有51个学生的相片，分别按顺序命名：1，2，3，……我希望在b列每个学生姓名旁边导入相片，如果一张张插入就要等过年，哪位高手可以帮我函数和公式我就不知道了，如果用宏代码如下，假设你的照片存在D:\Pictures\students下，照片名字就是1到52，照片格式是jpg格式DimcunAsIntegerForcun=1To52Range(b&cun).SelectActiveSheet.Pictures.Insert(_D:\Pictures\students\&cun&.jpg_).SelectNextcunEndSub2008-7-613:50回复老鼠麦大米2位粉丝4楼编程的方法比较简单,推荐使用。另外仅操作也是能够实现的批量插入图片到单元格。1.首先设置一下,B列单元格的行高列宽,使其大小比列正常可以放置照片;2.视图-常用工具栏-勾选绘图。在绘图工具栏选择绘图菜单,自动对齐,勾选对齐到网格.3.选择B列需要插入的图片的第一个单元格,例如B2，插入-图片-来自文件,按着Ctrl和Shift来选择52张图片,确定4.Ctrl+G,定位条件,对象,确定5.绘图工具栏-绘图菜单,对齐或分布,左对齐6.Ctrl+1,大小,去掉锁定纵横比的对勾,设置宽度和高度(大小可以随意写,统一即可)7.调整图片高度宽度,让其和B列单元格重合,（由于勾选了对齐到网格,对齐比较容易）EXCEL是一个名单,里面有大约600多人,照片在另一个文件夹里,用人名命名的.如何批量导入一一对应到名单中的每一个人,高手回答,如果可行将奖励400分!谢谢提问者：hue8238-三级最佳答案这是单个人名设置的宏，如果要设置多个人的话，必须要看你的表格的格式是怎么样的。你可以加我QQ，81565434，我帮你做出来，但要注明是百度问题。其它闲杂人等勿扰。。PrivateSubWorksheet_Change(ByValTargetAsRange)OnErrorResumeNextActiveSheet.Pictures.Insert(C:\temp\&Target.Text&.jpg).Select'InsertPicturesActiveSheet.Pictures.Insert(C:\temp\&Target.Text&.jpeg).Select'InsertPicturesActiveSheet.Pictures.Insert(C:\temp\&Target.Text&.gif).Select'InsertPicturesActiveSheet.Pictures.Insert(C:\temp\&Target.Text&.jpe).Select'InsertPicturesActiveSheet.Pictures.Insert(C:\temp\&Target.Text&.BMP).Select'InsertPicturesActiveSheet.Pictures.Insert(C:\temp\&Target.Text&.BMP).Select'InsertPicturesActiveSheet.Pictures.Insert(C:\temp\&Target.Text&.BMP).Select'InsertPicturesActiveSheet.Pictures.Insert(C:\temp\&Target.Text&.BMP).Select'InsertPicturesSelection.Name=Target.Text'PicturenameSelection.ShapeRange.LockAspectRatio=msoFalse'Selection.ShapeRange.Height=Target.Height'HSelection.ShapeRange.Width=Target.Width'WSelection.ShapeRange.Top=Target.Top'TopSelection.ShapeRange.Left=Target.Left'LeftEndSub