如何把照片插入指定的图文框？

zzcjp

从ACCESS向WORD文档输出员工简历表，需要在word文档指定的图文框显示员工照片，该如何实现？

pureshadow

不会用ACC，还是帮你转到A版吧。

tmtony

ActiveDocument.Shapes("你的文本框控件名").Select
Selection.InlineShapes.AddPicture FileName:= _
        "你的图片路径\20085295336334_2.jpg" _
        , LinkToFile:=False, SaveWithDocument:=True

zzcjp

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

修改成：
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

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

xiaotang_184

学习一下