请问高手，怎么在文档中显示出超链接的图片？

w7321 · 发表于 2005-3-14 17:03

我用邮件合并做了一份通讯录，其中在相片位置显示的是链接文字，怎么样能够显示图片？

拜托高手们啦！

QczZ3u5i.rar (54.99 KB, 下载次数: 53)

tonny · 发表于 2005-3-14 17:50

我用office2002邮件合并,照片可正常显示的

守柔 · 发表于 2005-3-15 05:53

以下是引用tonny在2005-3-14 17:50:00的发言：
我用office2002邮件合并,照片可正常显示的

可能我想得复杂了,邮件合并中,关于照片的引用,好象不是TONNY兄这么简单吧?

我想,楼主是把一些个人简历,建成了一个数据库,而把所有相关的照片,放在了另一个文件夹中,对吗?

如果我猜得没错,只有请楼主重新上传一个附件,可以代表你的实际情况的附件,我需要编写一个小程序,以便像片的自动插入.

当然,如果楼主珍藏了不少歌星的相片的话,大伙也可以共享一下嘛!

[em05]

tudi6709 · 发表于 2005-3-15 12:24

问题见附件：此问题寻找了很多资料还是没有解决，守版主大家都等待你的好消息。照片链接问题。

jB0A1MAB.rar (7.09 KB, 下载次数: 50)

守柔 · 发表于 2005-3-15 14:12

以下是引用tudi6709在2005-3-15 12:24:00的发言：
问题见附件：此问题寻找了很多资料还是没有解决，守版主大家都等待你的好消息。照片链接问题。

这是一个很久远的问题了，我归整了一个，你看一下，不理解的地方再问： PfQrI3xl.zip (185.38 KB, 下载次数: 129)

w7321 · 发表于 2005-3-28 12:38

uBbBJRwX.rar (190.81 KB, 下载次数: 43)

我这里有几百个学生，每年开学都要办理住宿证，出入证等各种小卡，以前都是用WORD的邮件合并把他们一张A4纸打出几个人打印出来，打印出几十张一裁就完事了。可是再用到共享的照片时就完成不了啦。有没有什么好的方法，如果能在EXCEL里直接输出也行，卡的大小是9X5.5cm，一张A4可输出8个。再次感谢您的指教！

守柔 · 发表于 2005-3-29 06:27

这是邮件合并功能通过代码完成的一个典型的高级应用。

您需要做的是：必须确保所有图片与主文档在同一文件夹中；WORD的宏安全级必须设为低，如果为非低，请设为低后重启WORD后打开指定的主文档和设置数据源，然后进行邮件合并，当然，请先合并到新文档中，以便查阅。

以下代码供参考：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-3-29 06:27:38 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Dim X As New EventClassModule '从其他模块中初始化已声明的对象。 Private Sub Document_Open() Set X.App = Word.Application End Sub '----------------------

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-3-29 06:27:57 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [类模块-EventClassModule]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Public WithEvents App As Word.Application '在类模块中声明对应于事件的对象变量。 '编写指定事件的过程。 Private Sub App_MailMergeBeforeRecordMerge(ByVal Doc As Document, Cancel As Boolean) Dim PhotoPath As String, MyTextFram As Shape On Error Resume Next '忽略错误(特别是指定图片路径错误) '如果数据源的第六列(照片)为非空 If Doc.MailMerge.DataSource.DataFields(6).Value <> "" Then '定义一个路径为主文档同一目录下的第六列单元格中的文件名 PhotoPath = Doc.Path & "\" & Doc.MailMerge.DataSource.DataFields(6).Value ' Debug.Print PhotoPath Set MyTextFram = Doc.Shapes(1) '定义一个图形对象 With MyTextFram .Select '选定 '插入一个指定路径下的嵌入式图片 Selection.InlineShapes.AddPicture FileName:=PhotoPath, LinkToFile:=False, SaveWithDocument:=True .LockAspectRatio = msoFalse '不锁定图形大小 .Width = Application.CentimetersToPoints(2.5) '文本框宽度 .Height = Application.CentimetersToPoints(3) '文本框高度 End With End If End Sub '----------------------以下附件中，包括我以为做好的主文档（含类模块），以及你所上传的图片和数据源生成的邮件件合并结果。

5Q7s1tQU.zip (405.26 KB, 下载次数: 82)

相关链接：http://club.excelhome.net/viewthread.php?tid=79814

[此贴子已经被作者于2005-3-29 6:31:56编辑过]

shanyue · 发表于 2005-3-29 07:44

守柔版主：我看主文档是一个框，怎么合并生成了在一页的许多框，也就是说为什么没有生成许多页，每页只有一个框。另外照片的问题我没有看懂，是不是一定要写代码呀？？

在那里看你写的那些代码？？

盼回复。

[此贴子已经被作者于2005-3-29 7:47:38编辑过]

守柔 · 发表于 2005-3-29 08:32

以下是引用shanyue在2005-3-29 7:44:00的发言：
守柔版主：我看主文档是一个框，怎么合并生成了在一页的许多框，也就是说为什么没有生成许多页，每页只有一个框。另外照片的问题我没有看懂，是不是一定要写代码呀？？

在那里看你写的那些代码？？
盼回复。

第一个问题，可以通过邮件合并工具栏的第一个命令按钮：设置主文档类型进行行设置，如果需要达到你所说的情况，只需设置主文档的类型为普通WORD文档即可。（原为“目录”）

第二个问题，使用ALT+F11，在VB编辑器下的活动PROJECT的代码窗口中查看。

shanyue · 发表于 2005-3-30 06:10

多谢守柔！！

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

请问高手，怎么在文档中显示出超链接的图片？

[求助]

再次请教守版主