从Excel到Word复制粘贴图像时的运行时错误-2147023170 (800706be)
从Excel到Word复制粘贴图像时的运行时错误-2147023170 (800706be)
提问于 2020-05-28 17:15:20
我正在尝试复制/粘贴一些图像从我的Excel工作表到一个word文件。有时，它运行得完美无缺，但我经常会遇到一个伟大的运行时错误'-2147023170 (800706be)'：自动化错误。远程过程调用失败。消息。Google向我展示了我并不是唯一有这个错误的人，而且它常常是由于没有精确地定义范围这一事实而产生的，我认为它们在我的项目中。
这是我的密码：
Dim wdDoc As Object
Dim wdApp As Object
Set wdApp = CreateObject("Word.Application")
Set wdDoc = wdApp.Documents.Add
Dim wdImg As Object
ThisWorkbook.Worksheets("Backup - Do not change").Shapes("companyLogo").Copy
With wdDoc.Sections(1).Headers(2).Range
.PageSetup.DifferentFirstPageHeaderFooter = True
.Paste
Set wdImg = .InlineShapes(.InlineShapes.Count).ConvertToShape
With wdImg
'some specifications
End With
End With
ThisWorkbook.Worksheets("Backup - Do not change").Shapes("projectLogo").Copy
With wdDoc.Sections(1).Headers(2).Range
.Paste
Set wdImg = .InlineShapes(.InlineShapes.Count).ConvertToShape
With wdImg
'some specifications
End With
End With
Application.CutCopyMode = False错误总是发生在.Paste。我已经试过了.PasteSpecial DataType:=8和其他各种东西，但都没有用。任何帮助都是非常欢迎的！
回答 2
Stack Overflow用户
回答已采纳
发布于 2020-05-30 20:19:59
所以，我现在没有直接粘贴到标题范围，而是在标题中创建了一个表，并将图像粘贴到两个不同的单元格中。从那以后，我已经成功地运行了超过10倍的代码，所以看起来它解决了这个问题(我希望它保持这样)。但还是不知道是什么原因造成的。
Stack Overflow用户
发布于 2021-10-30 01:43:46
我想补充一下这一点，因为这是我第一次遇到类似问题时遇到的帖子之一。至少对我来说，解决方案是使用copypicture和pastespecial，如下所述：
尽管进行了大量搜索，但直到我开始键入一个问题，它才出现在类似的问题列表中，才出现在我面前。希望这能拯救其他人的巨大头痛，这是我要解决的。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/62070625
复制相关文章
相似问题
腾讯云开发者
