Вставьте изображение в Word с помощью VBA

Question

Дан путь изображения. Как добавить изображение в текстовый документ, используя код VBA?

Answer 1

Это концепция добавления изображения в текстовый документ.

Создание шаблона документа, скажем, в c: \ path \ file.docx

, добавлениеизображение где угодно (это будет рамка для хранения нового изображения)

выберите изображение, вставьте закладку и назовите ее как-нибудь как «someBookmarkName».

А теперь из доступа используйтеэтот код

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