Question

我正在生成需要每天运行的报告。我在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.

非常感谢您的时间和精力！

如何将图片从Excel复制和粘贴到Word

0 个答案: