Как копировать и вставлять картинки из Excel в Word - PullRequest
0 голосов
/ 10 апреля 2019

Я создаю отчет, который должен запускаться ежедневно. У меня есть несколько картинок в Excel, и я хочу скопировать их и вставить в Word. Мне они нужны в определенном месте. Все это нужно сделать в VBA.

Мой предложенный способ сделать это - создать шаблоны изображений в Word и присвоить им имя (это можно увидеть в разделе «Главная»> «Выбор»> «Панель выбора»). Я предполагаю, что затем могу скопировать изображения из Excel и вставить их поверх изображений шаблона (т.е. заменить изображения шаблона) - я считаю, что этот тип техники возможен с Excel-Powerpoint.

(1) Если я смогу выполнить это, будут ли изображения из Excel отправлены в нужное место в Word и будут иметь те же размеры, что и изображения шаблона?

(2) Как выбрать существующие именованные шаблоны изображений?

Вот мой код, но в конце мне не хватает возможности выбрать существующие изображения шаблона NAMED ...

Dim wd As Object
Dim ObjDoc As Object
Dim FilePath As String
Dim FileName As String
FilePath = "OMITTED FOR PRIVACY REASONS"
FileName = "OMITTED FOR PRIVACY REASONS"

On Error Resume Next
    Set wd = GetObject(, "Word.Application")

If wd Is Nothing Then
    Set wd = CreateObject("Word.Application")
    Set ObjDoc = wd.Documents.Open(FilePath & "\" & FileName)
Else
    On Error GoTo notOpen
    Set ObjDoc = wd.Documents(FileName)
    GoTo OpenAlready
notOpen:
    Set ObjDoc = wd.Documents.Open(FilePath & "\" & FileName)
End If
OpenAlready:
On Error GoTo 0

   wd.Visible = True
   ObjDoc.

Большое спасибо за ваше время и усилия!

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...