excel：如何批量导入图片（教程）.doc
文本预览下载声明
excel：如何批量导入图片
office 学习 2010-05-16 11:34:26 阅读733 评论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列单元格重合, （由于勾选了对齐到网格,对齐比较容易）
显示全部