运行时错误“1004”。复制/粘贴为图片
运行时错误“1004”。复制/粘贴为图片
提问于 2017-01-18 13:32:41
当我试图复制一系列单元格并将粘贴作为图片时，我会得到运行时错误'1004‘。
Excel文件的说明：
我有一个Excel文件，它有两个工作表：
- Sheet1 -它有一个包含数据的表
- Sheet2 -它有一个数据透视表，从Sheet1中的表中读取数据
(我只为复制目的创建了这个小Excel，因为我在一个更大的Excel文件中有这个问题。)
对该问题的说明：
我有一个宏来复制包含数据透视表的单元格范围，并将其粘贴为图片。
宏运行正常，在我的笔记本电脑和其他同事的笔记本电脑中没有出错。一些同事在他们的笔记本电脑上发现了错误。
我们都在使用：
- Windows 7终极64位
- Office 365 ProPlus (Excel2016)
宏创建：
Sub Macro4()
Dim ws As Worksheet
Set ws = Sheets("CS - Pivot Tables")
With ws
.Activate
.Range("B2:D13").Copy
.Range("L2").Select
.Pictures.Paste
End With
Application.CutCopyMode = False
Range("A1").Select
End Sub*宏在.Pictures.Paste上停止
回答 2
Stack Overflow用户
发布于 2017-01-18 13:41:53
您需要使用不同的副本复制图片：
Sub Macro4()
Dim ws As Worksheet
Set ws = Sheets("CS - Pivot Tables")
With ws
.Activate
.Range("B2:D13").CopyPicture Appearance:=xlScreen, Format:=xlPicture
.Range("B1").Select
.Paste
End With
Range("A1").Select
End SubStack Overflow用户
发布于 2017-01-18 13:42:01
你能试试这样的东西吗？
Sub Macro4()
Dim ws As Worksheet
dim pic as picture
Set ws = Sheets("CS - Pivot Tables")
With ws
.Activate
.Range("B2:D13").Copy
.Range("L2").Select
set pic = .pictures.paste
End With
Application.CutCopyMode = False
Range("A1").Select
End Sub(您的代码没有格式化，但我猜我做对了)。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/41720821
复制相关文章
相似问题
腾讯云开发者
