分享：自动形成连续单个证件或表格：自定义版式、自选项目、可有相片、可并排

maxiaoan · 发表于 2013-12-24 13:57

很实用的代码学习了

漫漫慢 · 发表于 2013-12-25 11:13

老师，人员照片怎么换成自己的啊，你那个相片一栏里的数字怎么就能定位到不同的照片呢

lhdcxz · 发表于 2013-12-25 11:20

漫漫慢发表于 2013-12-25 11:13
老师，人员照片怎么换成自己的啊，你那个相片一栏里的数字怎么就能定位到不同的照片呢

那个相片一栏里的数字就是相片的文件名。你把相片都放在与我的EXCEL工作簿同样的文件夹里面。

jiangdong110 · 发表于 2013-12-25 11:47

感谢分享更新！经常用到！

漫漫慢 · 发表于 2013-12-25 14:35

lhdcxz 发表于 2013-12-25 11:20
那个相片一栏里的数字就是相片的文件名。你把相片都放在与我的EXCEL工作簿同样的文件夹里面。

还是不懂啊，那我怎么输入啊，我看你的只是数字啊，直接打进去对应的文件名就行了么

lhdcxz · 发表于 2013-12-25 16:21

漫漫慢发表于 2013-12-25 14:35
还是不懂啊，那我怎么输入啊，我看你的只是数字啊，直接打进去对应的文件名就行了么

因为在例子里面相片的文件名就是他的学号，所以看起来像数字（其实是文本）。你把相片的文件名输入就对了（不要后缀）。

yanny2 · 发表于 2013-12-26 11:11

老师，因为图片文件太多，集中在一个跟表格同个文件夹下的PIC文件夹里，代码应该怎么修改。因为我看里面插入图片的代码，并没有熟知的那些路径编写。这里不是很懂。可是图片全集中在一个文件夹的么？

lhdcxz · 发表于 2013-12-26 11:23

yanny2 发表于 2013-12-26 11:11
老师，因为图片文件太多，集中在一个跟表格同个文件夹下的PIC文件夹里，代码应该怎么修改。因为我看里面插入 ...

在模块里面
把 FilPath = ThisWorkbook.Path & "\" & pname & ".jpg" '查找此名称的相片
改为 FilPath = ThisWorkbook.Path & "\PIC\" & pname & ".jpg" '查找此名称的相片

80177850 · 发表于 2013-12-27 07:40

多谢老师分享,下载学习学习

yanny2 · 发表于 2013-12-27 16:58

谢谢老师指点。如果要更进一步，我图片进行分类的话，而图片信息有一列的分类的名称的话，那么路径可以改吗？例如：ThisWorkbook.Path & "\pic\" & Cells(iRow, 2) & pname & ".jpg"，即2列是分类名，pname为图片名这样的。能实现吗？

		自动登录	找回密码
密码			免费注册