vba - 运行时错误 '1004' 。复制/粘贴为图片

Question

尝试复制一系列单元格并粘贴为图片时出现运行时错误“1004”。

Excel 文件说明:

我有 1 个 Excel 文件，其中包含 2 个工作表:

• Sheet1 - 它有一个包含数据的表格
• Sheet2 - 它有一个数据透视表，可从 Sheet1 的表中读取数据

(我创建这个小 Excel 只是为了复制目的，因为我在一个更大的 Excel 文件中遇到了问题。)

问题描述:

我有一个宏来复制包含数据透视表的单元格范围并将其粘贴为图片。

宏在我的笔记本电脑和其他同事的笔记本电脑上运行正常，没有错误。一些同事在他们的笔记本电脑中遇到了错误。

我们都在使用:

• Windows 7 旗舰版 64 位
• Office 365 专业增强版 (Excel 2016)

已创建宏:

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 处停止

Answer 1

您需要使用不同的副本来复制图片:

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