运行时错误“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 

(你的代码没有格式化,但是我猜测我做对了)。