本帖最后由 开心妙妙 于 2015-3-23 16:40 编辑
主题：Excel 如何批量导入图片
效果见动画：
在ecxel里插入图片应该是人人都会，但是要求你插入几十张图片，那就麻烦了，总不能一张张地插入吧。 有个好方法，需要用到Ecxel里的宏：
这里用一个员工的名单与相片做例子
步骤1：准备文件 首先在同一个文件夹里新建一个电子表格Excel，还有一个员工的相片，图片是.JPG格式的。
步骤2：准备相片文件 准备好员工的相片顺序，命名为001、002、003……（如上图）
步骤3：准备电子表格 电子表格的Sheet1工作表A列为员工号001、002、003…… B列为姓名（姓名的顺序要与相片的顺序一致） C为相片（把C列的大小按照相片的大小调好）
步骤4：编写VBA代码
Sub 批量导入相片()
Dim i, myPath$
myPath = ThisWorkbook.Path & "\" '获取当前文件的路径
For i = 2 To 11
Range("C" & i).Select
ActiveSheet.Pictures.Insert(myPath & Range("A" & i) & ".jpg").Select
'在选中的位置插入图片
'myPath 相位的路径
'Range("A" & i) 相片的文件名，如果相片用B列的姓名命名也可以的
'要有相片路径+名称+后缀
Next i
End Sub
注：如果员工相片有独立的文件夹，如下图所示
代码改成：
Sub 批量导入相片()
Dim i, myPath$
myPath = ThisWorkbook.Path & "\" For i = 2 To 11
Range("C" & i).Select
ActiveSheet.Pictures.Insert(myPath & "员工相片\" & Range("A" & i) & ".jpg").Select
'myPath excel文件+员工相片\
'Range("A" & i) 相片的文件名，如果相片用B列的姓名命名也可以的
'要有相片路径+名称+后缀
Next i
End Sub
导入的相片，也许并不是你想要的尺寸，这时CTRL+G定位--对象-改变相片尺寸，以便统一尺寸
| 
[复制链接]
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2015-3-23 16:15
楼主
