运行时错误“1004”。 在复制/粘贴为图片
试图复制一系列单元格并粘贴图片时,出现运行时错误“1004”。
Excel文件的说明:
我有1个Excel文件,有2张:
- Sheet1 – 它有一个数据表
- Sheet2 – 它有一个数据透视表,用于读取Sheet1中表格的数据
(我创build这个小的Excel只用于复制的目的,因为我有一个更大的Excel文件中的问题。)
问题说明:
我有一个macros来复制包含数据透视表的单元格区域,并将其粘贴为图片。
macros在我的笔记本电脑和其他同事的笔记本电脑上运行正常,没有错误。 有些同事在笔记本电脑上出错。
我们都在使用:
- Windows 7旗舰版64位
- Office 365 ProPlus(Excel 2016)
macros创build:
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
*****macros停止.Pictures.Paste
您需要使用不同的副本来复制图片:
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 Sub
你可以尝试这样的事情:
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
(你的代码没有格式化,但是我猜测我做对了)。