1.做一个简单表格,如图这样

测试数据

2.新建一个img文件夹，命名为照片，放到d盘中，按人名命名。

img文件夹

3.然后在照片中输入此内容

="

一、应用场景（粉丝实际工作难题）

前面分享了《邮件合并功能批量生成3000名员工带照片的工作牌，只要5分钟！》后，有小伙伴提出了新的问题，他要求根据EXCEL《考生信息汇总表》的数据，批量生成每位考生的《考试报名表》，并插入考生照片、按考生姓名命名存入指定文件夹。

二、最佳解决工具：通用Excel导至Word工具Xls2Doc

今天分享一个Monkey老师开发的通用Excel导至Word工具Xls2Doc，感谢Monkey老师分享的超实用工具，解决了插入图片问题，自定义列命名问题，指定存放路径问题，还可以选择性地处理页眉/页脚，关键是一键生成，比邮件合并更智能！效率更高！（注：本工具不适用于WPS）

您工作中有类似的需求吗？快与提问的小伙伴一起来围观吧！

三、应用效果展示

四、前期准备工作

1、准备员工照片。由于照片要一一对应，所以照片命名建议以工号或者姓名命名，案例以姓名命名。如果照片要重新批量命名的，可看往期分享的教程《EXCEL重命名3000多个文件，只用了2分钟，原来他是用了这个方法》

2、准备如下图所示的EXCEL《考生信息汇总表》。关键是要有员工照片的路径及文件名。为了能批量得到照片的具体路径，我们在I2单元格输入公式=H2&"\\"&A2&".JPG"，其中“.JPG”是照片文件的后缀名，可根据照片的实际后缀调整。

3、准备WORD的《考试报名表》模板，并在需要填入数据的地方写上专用标记。标记的理解稍稍有点复杂，如果有不清楚的可以直接看Monkey老师在ExcelHome论坛的帖子，查看他的案例，搜索“通用Excel导至Word工具 Xls2Doc” （http://club.excelhome/thread-1046508-1-1.html）

标记说明：

①专用标记有 [$b1]、[$1,3] 、[$pic-b1]、[$pic-1,3] 四种，其中加粗部分是可变的，[$]和[$pic-]是固定的。

②如果你的文档中的某个信息是Excel表中的固定单元格（如表格中的b1,b2,b3,b4），需要设置标记为 [$b2] 类型，其中的b2 是Excel中单元格的地址。

③如果文档中的信息是根据EXCEL表中的行进行变化的，你需要设置标记为 [$1,2]，其中的 1 是指行偏移量，2 是绝对列号。什么是行偏移量？如果你的Excel表格中，多行对应一个Word文档（假设3行对应一个文档，即一个文档包含了3行数据）那么[$1,2] 其中的1，表示3行中的第1行，2表示第2列，[$2,5] 其中的2，表示3行中的第2行，5表示第5列。

④[$pic-b1] 和[$pic-1,3]都是图片标记。如果你每个Word文档都是插入同一张图片，比如公章，你可以用[$pic-b1]这种方式；如果你每一个Word文档插入的图片都不一样，比如案例中考试报名表要插入考生一一对应的照片，可用[$pic-1,3]这种方式。需要注意的是：在Excel表格中，图片文件的路径一定要正确，否则会导致程序出错。

案例中，考试报名表的标记如下图：

如上图中，姓名[$1,2]，这里的1是指一行对应一个Word文档，2是第2列，[$pic-1,9]表示照片的路径在第9列中。

五、Excel表格导出到Word的步骤

1、打开Xls2Doc工具（工具可到ExcelHome下载，请下最新版本）

ExcelHome论坛截图

2、将前面准备的EXCEL表格数据复制到工具的数据存放表中。

3、添加Word引用

复制数据到数据存放表后，按ALT+F11，调出VBA 编辑窗口→【工具】→【引用】，看是否勾选了Microsoft Word引用，如果没有请往下找到它，勾上确定。因为我是365版本的，所以我勾选的是Microsoft Word 16.0 Object ：Library（如下图）。

4、导出相关参数设置

点击Xls2Doc工作表的Xls2Doc蓝色按钮，调出设置对话框，设置相关参数。

①选择Word模板（做好了标记的《考试报名表》模板文件）路径

②设置创建文档的数据，案例中数据是从第2行到第9行，每1行创建一个文档，直接填上数据即可

③选择输出存放Word文件的文件夹，案例中是存放到D:\拆分的文件\目录下

④确定输入文件名的命名规则，案例的命名规则为原文件名_姓名，最后的效果如“考试报名表_1_安迪”，文件名中有表格名称、有序号、有姓名，可以满足各种需求！

5、一键导出Word文档

最后点击开始导出，上面有导出的进度提示。导出完成后会有完成提示“所有数据已经导出”，完成后效果可见前面的效果展示，非常完美，全部按我们的要求完成任务。

动图演示：

我是Excel学习微课堂，如果我的分享对您有帮助，欢迎点赞、收藏、评论、转发！更多的Excel技能，可以关注 “EXCEL学习微课堂”。需要【通用Excel导至Word工具 Xls2Doc】的，可到ExcelHome论坛下载，或评论转发后私信联系我！

与本期内容相关的往期教程有：

1.《EXCEL重命名3000多个文件，只用了2分钟，原来他是用了这个方法！》

2.《邮件合并功能批量生成3000名员工带照片的工作牌，只要5分钟！》

本文由“EXCEL学习微课堂”原创，欢迎关注，带你一起长知识。

施老师：

大家好，EXCEL的用途非常大，不仅可以制表，演算公式，还可以制作漂亮的流程图。而且简单实用，比在PS里做方便多了，下面大家就看我演示一遍吧。

一、首先打开EXCEL，点击插入]-[SmartArt]

二、然后在弹出的对话框中选择流程图

然后在弹出来的图形中输入流程图的文字

然后选择一个自己喜欢的样式

最后在EXCEL视图菜单中，选择显示选项卡，把网络线去掉就可以了。

然后用QQ一截图，一张漂亮的流程图就做好了，非常的方便，而且特别实用。

各位朋友们，你们平时是怎么做流程图的呢，是在PS里做的呢，还是在EXCEL中做的呢，

欢迎在下方评论区点评欢迎在下方评论区点评。喜欢此文就转发点赞吧！想学习更多的教程请点击下方的“了解更多”。

分享 Excel 批量图片导入功能，使单元格高度和宽度适应图片。

Excel 批量图片导入功能，很多插件有这个功能，大部分插件的导入功能都是使图片适应单元格的大小，

但是这点可能跟很多人的实际需求不一样，因此我单独写了一个图片导入功能，使单元格适应图片的大小。

代码缺点，需要手工替换代码中的 .png 图片格式为你 自己需要导入的 图片文件格式.

附上代码：

Sub 导入图片()

Dim wenjian_geshu

Dim lujin

Dim tupian_name

Dim zonghe_bi

Dim hanggao

Dim tishi_kuozhangming

tishi_kuozhangming = MsgBox(vbCrLf & "请确认是否需要 修改 程序代码的 文件扩展名 ？ " & vbCrLf & vbCrLf _

& "点击 “确定” 退出程序，并修改程序扩展名；" & vbCrLf & vbCrLf _

& "点击 “取消” 继续导入图片。" & vbCrLf & vbCrLf _

, vbOKCancel)

If tishi_kuozhangming = vbOK Then Exit Sub

wenjian_geshu = 0

lujin = InputBox("请输入图片文件夹路径，可以贴入路径")

If lujin = "" Then Exit Sub

tupian_name = Dir(lujin & "*.png", vbNormal)

'.png 格式可以更改为其他格式，用于显示其他格式的图片，

'.png 可以替换为 .* 任意文件格式，但是为了避免 ActiveSheet.Shapes.AddPicture(lujin & "" & ActiveSheet.Cells(wenjian_geshu, 1).Text & ".png", _ 程序出错，暂时不替换

'但是可以新建不同的工作簿，再导入不同格式的图片后，将表格合并为一张表格。

'不可以在同一工作簿的不同表格中重复执行 代码，即使将 新建分页表 的 名称改为 Sheet1 也不可以，因为本人水平有限不会修改测试了。希望能有大神优化下代码。

Do

If tupian_name = "" Then '输出图片名称 到 第 1 列

Exit Do

End If

wenjian_geshu = wenjian_geshu + 1

ActiveSheet.Cells(wenjian_geshu, 1).Select '方便查看执行到哪一行了

ActiveSheet.Cells(wenjian_geshu, 1) = tupian_name '输出图片名称

Rows(wenjian_geshu).RowHeight = 409 '设置行高为 Excel 的最大值 409

Columns(5).ColumnWidth = 255 '设置列宽为 Excel 的最大值 255

Dim tupian

Set tupian = ActiveSheet.Pictures.Insert(lujin & "" & ActiveSheet.Cells(wenjian_geshu, 1).Text)

With tupian

.ShapeRange.LockAspectRatio = msoTrue '锁定纵横比

.Placement = xlMoveAndSize '图片大小和位置随单元格的大小和位置而改变。

.Top = ActiveSheet.Cells(wenjian_geshu, 5).Top + 4

.Left = ActiveSheet.Cells(wenjian_geshu, 5).Left + 4 '两行代码设置图片左上角位置，对其单元格，距离单元格边距为 4

zonghe_bi = .Width / .Height '取得图片的 长宽比，以便后续图片的实际高度超过行高的时候，重新设置图片宽度，以保持图片缩小后的长宽比例

Cells(wenjian_geshu, 2) = Int(.Height) + 1

hanggao = Cells(wenjian_geshu, 2) + 3

If hanggao > 409 Then '不超过 409 则就使用上一行代码图片的默认长度

.Height = 403 '超过 EXCEL 最大行高 409，则设置图片 高度为 403，并根据图片纵横比 重新设置图片的长度

.Width = zonghe_bi * .Height ' 根据图片综合比 重新设置图片的长度

Else '不超过 409 则就使用上一行代码图片的默认长度

Rows(wenjian_geshu).RowHeight = hanggao + 6

End If

Cells(wenjian_geshu, 6) = .Width '图片后面的第一列即表格的第六列存储

If wenjian_geshu > 1 Then

If Cells(wenjian_geshu, 6) < Cells(wenjian_geshu - 1, 6) Then Cells(wenjian_geshu, 6) = Cells(wenjian_geshu - 1, 6)

End If

'取得列宽最大值，以便循环结束后设置最大列宽

Cells(wenjian_geshu, 1) = Left(Cells(wenjian_geshu, 1), Len(Cells(wenjian_geshu, 1)) - 4) '重新输出图片名称，去掉扩展名。

Cells(wenjian_geshu, 7) = .Height '在执行 Delete 语句 删除 链接图片之前取得修改后的图片 宽 和 高的数据

Cells(wenjian_geshu, 8) = .Width

.Delete 'Pictures.Insert只能插入图片链接，不能将图片与表格一起保存，

'故 删除图片链接，改用 Shapes.AddPicture 导入图片，使图片与表格同时保存，以上全部代码用来设置行高和列宽，及 设置 取得 图片的 宽 和 高 ，使其适应单元格的 高 和 宽

'.png 格式可以更改为其他格式，用于显示其他格式的图片，

ActiveSheet.Shapes.AddPicture(lujin & "" & ActiveSheet.Cells(wenjian_geshu, 1).Text & ".png", _

False, _

True, _

ActiveSheet.Cells(wenjian_geshu, 5).Left + 4, _

ActiveSheet.Cells(wenjian_geshu, 5).Top + 4, _

Cells(wenjian_geshu, 8), _

Cells(wenjian_geshu, 7)).Select '在第五列导入图片

Selection.ShapeRange.LockAspectRatio = msoTrue '锁定纵横比

Selection.Placement = xlMoveAndSize '图片大小和位置随单元格的大小和位置而改变。

End With

tupian_name = Dir '再次调用 dir 执行下面的图片的循环操作，不可以有参数，

'此句为整个代码断 最重要的语句，虽然我看不懂，但是直接用吧，有用就好了，知其然而不知其所以然好了。

Loop

Columns("E:E").Select

Selection.ColumnWidth = Int(Cells(wenjian_geshu, 6) / 5.9) '设置列宽为最大图片的列宽，5.9 为图片宽度 与 Excel 表格的宽度比

Columns("A:A").Select

Columns("A:A").EntireColumn.AutoFit

Columns(6).Select

Selection.Delete Shift:=xlToLeft '设置完第 5 列的列宽后，删除存储最大列宽值的 第 6 列

Columns("F:XFD").Select

Selection.ColumnWidth = 8.11

Columns("B:D").Select

Selection.Delete Shift:=xlToLeft

Columns("C:D").Select

Selection.Delete Shift:=xlToLeft

Range("A1").Select

'可以通过删除和插入列 的代码，调整图片名称列 和 图片实际位置列 最终所在的位置列

ActiveSheet.UsedRange.Select '添加边框

Selection.Borders(xlDiagonalDown).LineStyle = xlNone

Selection.Borders(xlDiagonalUp).LineStyle = xlNone

With Selection.Borders(xlEdgeLeft)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlEdgeTop)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlEdgeBottom)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlEdgeRight)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlInsideVertical)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlInsideHorizontal)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

MsgBox ("图片导入完成！")

Range("A1").Select

End Sub

程序执行完成以后，A列放置的数据为自己命名的图片名称，B列放置的为图片。

Excel 批量图片导入功能，使单元格高度和宽度适应图片

小伙伴们好啊，今天老祝继续和大家分享一个比较冷门的技巧，将照片批量导入Excel表。

首先在Excel工作表中输入员工姓名和序号。

在文件夹中准备好统一尺寸的员工照片：

单击姓名所在列的任意单元格，在【数据】选项卡下点击【升序】按钮：

然后设置工作表的行高和列宽。设置的行高可以比实际图片高度再大一些。

单击C2单元格，插入图片。

在【插入图片】对话框中找到照片文件夹位置，单击任意一个图片，然后按Ctrl+A全部选定，再按【插入】按钮：

插入的图片效果如下图所示：

选中最上层的照片，拖动到最后一个姓名的对应位置。

单击最后一个图片，再按Ctrl+A选中全部图片

单击【格式】→对齐→纵向分布

然后再单击【格式】→对齐→水平居中

此时的效果如下图所示：

单击A列序号任意单元格，数据→升序

最后再适当调整一下行高列宽，OK