如何批量导入图片.docVIP

excel：如何批量导入图片 office 学习 2010-05-16 11:34:26 阅读1747 评论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 Integer For cun = 1 To 9 Range(c cun).Select ActiveSheet.Pictures.Insert( _ C:\Documents and Settings\Administrator\桌面\相片批量导入\学生相片\ cun .jpg _ ).Select Next cun End Sub =========================== 上面的编码解释一下： 　　1）Macro2　指宏的名称。 　　2）For cun = 1 To 9　　　　1表示第一行，9表示最后一行是第九行，如果你有100个学生相片，那就改成100 　　3）Range(c cun).Select　C表示执行这个宏是在c列 　　4）C:\Documents and Settings\Administrator\桌面\相片批量导入\学生相片\　　表示图片原来在哪里地方，如果你的相片放在别的地方就改成别的地方就可以了。 　　5）.jpg 　表示导入的是“.jpg”扩展名的图片。 　　　　（呵呵，本人也是一个菜鸟，只能模糊地解释，不好意思） ? 11、粘贴完后，按保存，再左上角的excel小图标，回到电子表格界面。 ??? 12、工具-----宏----宏 13、弹出“宏”对话框，选中刚才录制宏的宏名如“Macro2”，再按“执行” 14、很快地就在C列出现了学生的相片了，成功！ ? 函数和公式我就不知道了，如果用宏代码如下，假设你的照片存在 D:\Pictures\students下，照片名字就是1到52，照片格式是jpg格式 Dim?cun?As?Integer For?cun?=?1?To?52 Range(b??cun).Select ?ActiveSheet.Pictures.Insert(?_ ?D:\Pictures\students\??cun??.jpg?_ ?).Select ? Next?cun End?Sub 编程的方法比较简单,推荐使用。 另外仅操作也是能够实现的批量插入图片到单元格。 1.首先设置一下,B列单元格的行高列宽,使其大小比列正常可以放置照片; 2.视图-常用工具栏-勾选绘图。在绘图工具栏选择绘图菜单,自动对齐,勾选对齐到网格. 3.选择B列需要插入的图片的第一个单元格,例如B2， 插入-图片-来自文件,按着Ctrl和Shift来选择52张图片,确定 4.Ctrl+G,定位条件,对象,确定 5.绘图工具栏-绘图菜单,对齐或分布,左对齐 6.Ctrl+1,大小,去掉锁定纵横比的对勾, 设置宽度和高度(大小可以随意写,统一即可) 7.调整图片高度宽度,让其和B列单元格重合, （由于勾选了对齐到网格,对齐比较容易）