Я создаю отчет, который должен запускаться ежедневно. У меня есть несколько картинок в 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.
Большое спасибо за ваше время и усилия!