VBA 코드 이미지 복사/붙여 넣기 오류 1004

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