Fatal编程技术网
  • vba/
  • 用VBA将图像插入Word

用VBA将图像插入Word

vba ms-access ms-word

用VBA将图像插入Word,vba,ms-access,ms-word,Vba,Ms Access,Ms Word,给定的是图片的路径。如何使用VBA代码将图片添加到word文档？这是将图像添加到word文档的概念 创建一个模板文档，比如在c:\path\file.docx中 在您喜欢的地方添加图像（这将是保存新图像的框架） 选择图像并插入书签，将其命名为“someBookmarkName” 现在从access使用此代码 Sub insertImageToWord() Dim Word As Object Dim doc As Object Dim filePath As String: filePath =

给定的是图片的路径。如何使用VBA代码将图片添加到word文档？

这是将图像添加到word文档的概念

创建一个模板文档，比如在c:\path\file.docx中

在您喜欢的地方添加图像（这将是保存新图像的框架）

选择图像并插入书签，将其命名为“someBookmarkName”

现在从access使用此代码

Sub insertImageToWord()
Dim Word As Object
Dim doc As Object
Dim filePath As String: filePath = "c:\path\file.docx"
Dim SHP As Object
Dim strTmp As String: strTmp = "someBookmarkName"
Dim strPath As String: strPath = "c:\path\image_file.png"

Set Word = CreateObject("Word.Application")
Set doc = Word.Documents.Open(filePath)
Set SHP = doc.Bookmarks(strTmp).Range.InlineShapes.AddPicture(Filename:=strPath, _
    LinkToFile:=False, _
    SaveWithDocument:=True)
With SHP
    'this will keep ratio
    '   .WrapFormat.type = 1  'wdWrapTight
    '   .WrapFormat.type = 7  'wdWrapInline
    .LockAspectRatio = -1    ' msoTrue
    'this will adjust width to 0.5 inch
    '.Width = wd.InchesToPoints(2.5)
    ' .Width = wd.CentimetersToPoints(2.66) * 2.5
    ' .Height = wd.CentimetersToPoints(3.27) * 2.5
    '   .ScaleHeight = 150
End With
End Sub

请给我们看一下相关代码？你好，xShen。基本上你的代码是有效的。有一个问题，带书签的图片仍在新文档中。我将尝试增强解决方案，即使用书签图片的比例。您好，开发人员。我查看了使用此技术的旧word文档，那里的固定框架是一个文本框。所以试着从图片切换到文本框。