Question

我一直无法将图片从一个工作表复制粘贴到另一个工作表。此代码适用于PC但不适用于Mac！我在Mac上运行它时收到错误1004。

这是复制/粘贴图像的问题！我查看了很多论坛，没有任何工作正在进行中！

以下是我的代码：

    Dim sh As Shape
    For Each sh In Sheets("Settings").Shapes
        Debug.Print sh.Name
        If sh.Name = reportname Then  ' give the name of your Picture here
            sh.Copy
                With Sheets(reportname)
                    .Select
                    .Range("A1").Select
                    .PasteSpecial
                End With
            Application.CutCopyMode = False
        End If
    Next

.PasteSpecial行发生错误，再次出现错误1004。

Answer 1

尝试这似乎在我的最后工作。

Sub Test()
    Dim shp As Shape
    For Each shp In Sheets("Settings").Shapes
        If shp.Type = 13 Then
retry:
            shp.Copy
            On Error Resume Next
            Sheets(shp.Name).PasteSpecial
            If Err.Number = 9 Then
                Sheets.Add(after:=Sheets(Sheets.Count)).Name = shp.Name
                GoTo retry
            End If
            On Error GoTo 0
        End If
    Next
End Sub

VBA代码图像复制/粘贴错误1004

1 个答案: