在Word标题（VBA）中粘贴图像时“服务器抛出异常”

Question

在Excel vba脚本中，我尝试从Excel复制图片并使用以下代码将其粘贴到我的Word标题中：

Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.documents.Add

Set WRng = objDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range
WRng.Text = "Hello"     // Displays properly Hello in the header
Worksheets("Logos").Shapes("LogoToCopy").Copy    
WRng.Paste      // Server threw exception error

但是我收到运行时错误＆＃39; -2147417851＆＃39;，服务器引发了异常。

复制/粘贴文本可以正常工作。知道如何从Excel中复制图像并使用Excel中的VBA将其粘贴到Word标题中吗？ 谢谢。

Answer 1

好的，终于找到了。粘贴必须由PasteSpecial替换，Copy由CopyPicture替换：

Worksheets("Logos").Shapes("LogoToCopy").CopyPicture
WRng.PasteSpecial