&#39；在Word标题(VBA)中粘贴图像时，服务器引发异常 [英] 'Server threw exception' when pasting image in Word header (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

这篇关于&#39；在Word标题(VBA)中粘贴图像时，服务器引发异常的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！