返回目录：excel表格制作
一、前提：
假设图片名称在A2:A15，不带扩展名，图片格式为jpg格式，图片保存在“D:\图片\”文件夹下
二、操作方法：
1、A2：A15输入图片名称（来不带扩展名）
2、B2输入
="<table><img src=""D:\照片\"&A2&".jpg""width=""176""height=""220"">"
3、下拉公式到B15
说明：公式中Width 和height是装入后的图片宽和高，可自行调整。
4、选中B2：B10，复制
5、返回桌面，新建一个文本文自件，并打开，粘贴
6、调整Excel行距，以确保图片能装下
7、选中文本文件中的全部内容，复制
8、转到Excel中，选中B2，选择性粘贴——Ubicode文本
9、所有图片立即以相同大小插入到了B2：B10
注意：如果粘贴后，图片大小觉得不合适，这时不要急于点选其他单元格，在全部图片选中状态，任意一张图片上鼠标右键——图片属性zhidao，设置其宽和高即可统一调整图片尺寸了。
下面介绍一下使用“邮件合并法”批量导入excel数据到word表格中的方法，
1. 打开需要进行邮件合并的word文档，浏览要插入的数据。
2. 在菜单栏----邮件菜单----开始邮件合并----邮件合并分步向导，在文档的左边出现“邮件合并”对话栏。
3. 选择文档类型为“信函”（将信函发送给一组人，可以设置信函的格式），单击“下一步”继续。
4. 点击下一步（正在启动文档）---选择开始文档，就是需要设置信函，e79fa5e98193e58685e5aeb9365选中“使用当前文档”，单击“下一步”
5. 点击下一步（选取收件人）---选择收件人，勾中“使用现在列表”，点击“浏览...”（使用来自某文件或数据库的姓名和地址。），选择数据源，找到需要添加的数据源地址---选择表格，的名称SHEET1$,和选中数据首行包含列标题。并点击确定按钮，---选择“邮件合并收件人”把需要的收件人列表勾中，在此不可以调整收件人列表，比如：排序，筛选，查找重复收件人，查找收件人，验证地址---点击确定。
6. 回到“邮件合并”栏，选择下一步：撰写信函，选中“其他项目”---出现“插入合并域”，根据需要合并的邮件内容，选择域的内容。比如:姓名栏后面添加姓名域，性别栏添加性别域等等。插入完后，点击关闭。单击“下一步”预览信函---可以就看到第一条记录。
7. 点击“下一步”完成邮件合并---完成合并，已经可以使用“邮件合并”生成信函----点击“编辑单个信函”---选择合并全部记录。左边可以看到，记录的全部内容。此时就可以打印，需要的内容。
8. 邮件合并完成。注：如果要修改，就可以点击“上一步”来实现修改，其他操作和上述相同。
使用这段VB吧,生成的工e799bee5baa6e4b893e5b19e362作表名是按原表名+1.2.3.4.5这样来的.Sub CombineWorkbooks()
Dim FilesToOpen
Dim x As Integer On Error GoTo ErrHandler
Application.ScreenUpdating = False FilesToOpen = Application.GetOpenFilename(FileFilter:="MicroSoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="要合并的文件") If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "没有选中文件"
GoTo ExitHandler
End If x = 1
While x <= UBound(FilesToOpen)
Workbooks.Open Filename:=FilesToOpen(x)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
x = x + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox Err.Description
Resume ExitHandler
End Sub
可以先将图片保存成tif，然后用ipp打开，process/segmentain/apply mask，在用measure/bitmap analysis 就可以导到excel