&#39；在Word标题(VBA)中粘贴图像时，服务器引发异常

问题描述

在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

无论我收到运行时错误‘-2147417851’，服务器都引发异常。

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

推荐答案

好的，终于找到了。粘贴必须替换为特殊粘贴并按副本复制图片：

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