';在Word标题(VBA)中粘贴图像时,服务器引发异常 [英] 'Server threw exception' when pasting image in Word header (VBA)
本文介绍了';在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
这篇关于';在Word标题(VBA)中粘贴图像时,服务器引发异常的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文