excel2010批量导入图片,批量导出excel中的图片

　　制作excel文档时，会遇到需要插入照片的情况。如何设置Excel2016表格批量插入图片？下面感兴趣的朋友就跟边肖学习一下具体方法吧！

效果见动画：

　　在ecxel中插入图片应该是每个人的技能，但是如果要求你插入几十张图片，那就麻烦了。不能一个一个插。

　　有一个好办法，你需要使用Ecxel中的宏：

　　这里有一个员工的名单和照片作为例子。

　　第一步：准备文件。

　　首先，在同一个文件夹中创建一个新的电子表格Excel，以及一张员工的照片，在。JPG格式。

　　第二步：准备照片文件。

　　准备员工的照片序列，命名为001，002，003……(如上图)

　　步骤3:准备电子表格

　　电子表格的Sheet1工作表A列为员工编号001，002，003.

　　b列为名字(名字顺序要和照片顺序一致)

　　C是照片(根据照片大小调整C栏大小)

　　第四步：编写VBA代码

　　子批导入照片()

　　Dim i，myPath$

　　MyPath=ThisWorkbook。获取当前文件的路径。

　　对于i=2到11

　　范围( C i)。挑选

　　ActiveSheet。pictures . Insert(my path Range( A I)。jpg’)。挑选

　　在所选位置插入图片。

　　“myPath”阶段的路径

　　Range(A i)照片的文件名，如果照片是以b列中的名称命名的，则为。

　　必须有照片路径名后缀。

　　接下来我

　　末端接头

　　注意：如果有单独的文件夹存放员工照片，如下图所示。

　　将代码更改为：

　　子批导入照片()

　　Dim i，myPath$

　　myPath=ThisWorkbook。i=2到11的路径“”

　　范围( C i)。挑选

　　Activesheet.pictures.insert(我的路径“员工照片”范围( A i)”。jpg’)。挑选

　　MyPath excel文件员工照片

　　Range(A i)照片的文件名，如果照片是以b列中的名称命名的，则为。

　　必须有照片路径名后缀。

　　接下来我

　　末端接头

　　导入的照片可能不是你想要的大小，然后CTRL G定位-Object-并更改照片大小以统一大小。