Office中国论坛/Access中国论坛

标题: 如何把照片插入指定的图文框？ [打印本页]

作者: zzcjp 时间: 2008-11-5 11:23
标题: 如何把照片插入指定的图文框？
从ACCESS向WORD文档输出员工简历表，需要在word文档指定的图文框显示员工照片，该如何实现？

作者: pureshadow 时间: 2008-11-5 12:44
不会用ACC，还是帮你转到A版吧。

作者: tmtony 时间: 2008-11-5 14:02
ActiveDocument.Shapes("你的文本框控件名").Select
Selection.InlineShapes.AddPicture FileName:= _
"你的图片路径\20085295336334_2.jpg" _
, LinkToFile:=False, SaveWithDocument:=True

作者: zzcjp 时间: 2008-11-5 14:59
tmtony 您好！我把代码贴进程序，并修改成：
Dim wordApp As Object
Set wordApp = CreateObject("word.application")
Set mydoc = wordApp.Documents.Open(wj)
wordApp.Visible = True
wordApp.ActiveDocument.Shapes("Image1").Select
Selection.InlineShapes.AddPicture FileName:= _
CurrentProject.Path & "\image.jpg" _
, LinkToFile:=False, SaveWithDocument:=True

运行后提示：未找到以指定名称命名的项目。不知“mage1”这个控件名是不是word中图文框的名称？

作者: zzcjp 时间: 2008-11-5 15:13
标题: 未解决问题
修改成：
Dim wordApp As Object
Set wordApp = CreateObject("word.application")
Set mydoc = wordApp.Documents.Open(wj)
wordApp.Visible = True
wordApp.ActiveDocument.Shapes(1).Select
wordApp.Selection.InlineShapes.AddPicture FileName:=CurrentProject.Path & "\image.jpg", LinkToFile:=False, SaveWithDocument:=True

[ 本帖最后由 zzcjp 于 2008-11-5 15:45 编辑 ]

作者: zzcjp 时间: 2008-11-6 10:48
标题: 上传图文框插入图片例程求教
如何将图片插入word文档中指定的图文框问题已经折腾我很久了，在输出员工简历表、产品简介等需要在WORD文档显示和打印照片的朋友来说，这是一个共同瓶颈，请版主相助。
例程中问题出在如何选择word图文框上。

作者: xiaotang_184 时间: 2009-5-7 10:53
学习一下

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)