【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《高效如风 Excel表格批量导入图片》，欢迎阅读！
龙源期刊网 http://www.qikan.com.cn
高效如风 Excel表格批量导入图片
作者：平淡
来源：《电脑爱好者》2018年第04期
如果需要插入的图片不多，可以使用手动的方法快速插入。先在Excel中输入员工姓名数据，点击“插入→图片→来自文件”，插入一张和员工对应的照片到B2。调整B2的大小和照片大小一致（可以略微大一些）。接着全选数据行列，使用鼠标调整行列数值，使得B列所有单元格都能够放置图片。
定位到B2，点击“插入→图片”，然后按住Ctrl键选中需要插入的图片（选择图片的顺序要和姓名列员工的顺序一致），这样所有图片都可以插入到表格中。选中最后一张插入的照片，将其移动到对应的B列位置。按住Ctrl+A全选照片，点击“图片工具→格式→组合”，依次进行“左对齐”和“纵向分布”即可（图1）。
如果需要插入的图片很多，那么还可以借助VBA脚本快速实现。首先将照片名称更改为与A列中的员工姓名一一对应。接着点击“开发工具→VB”。在打开的窗口输入如下代码（代码解释见语句之后半角单引号后的注释）： Sub 批量插入图片（）
Dim cfan As String ’设置一个名为cfan字符串，将其作为图片路径变量 Dim rng As Range
Sheets（"SHeet1"）.Select ’选中要插入图片的工作表 x = [a65536].End（xlUp）.Row ’取得最后一行的行号 For i = 2 To x
na = Cells（i， 1） ’从第1列（即A列）得到图片名称，并以此名查找指定位置的图片 cfan = "e：＼员工照片" & "＼" & na &".png" ’指定图片实际保存位置和格式 If Dir（cfan） "" Then
Cells（i， 2）.Select ’图片需要插入到第2列
龙源期刊网 http://www.qikan.com.cn
ActiveSheet.Pictures.Insert（cfan）. Select
Set rng = Cells（i， 2） ’根据单元格的大小调整图片 With Selection .Top = rng.Top + 1 .Left = rng.Left + 1 .Width = rng.Width - 1 .Height = rng.Height - 1 End With End If Next End Sub
这样，在Excel中会新增一个名为“批量插入图片”的宏，按提示运行这个宏，即可将所有照片按照员工名称插入到B列对应的单元格中（图2）。
（为免去录入的麻烦，代码可直接下载： https：//pan.baidu.com/ s/1o8sXq6A，密码： 7kim）。
本文来源：https://www.wddqxz.cn/0552c63f49d7c1c708a1284ac850ad02de8007de.html
2023-04-12
