将excel图片复制到另一个工作簿

Question

我正在编写一个excel宏，它将从1个工作簿中复制工作表并创建一个新工作簿并删除其中的所有计算。

我遇到的问题是将徽标复制过来。当我运行我的宏时，它会不时挂在图片副本或图片粘贴上。 这就是我所拥有的。我已经尝试了（从注释掉的行中可以看到）几个修复。

    Sub CopySheets(Actbook As String, newfilestr As String, filestr As String,Sheetstr As String)
    '
    ' NewPriceSheets Macro
    '

    '

        Workbooks.Add
        ActiveWorkbook.SaveAs Filename:=newfilestr, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
        Windows(Actbook).Activate
        Worksheets(Sheetstr).Activate
        Cells.Select
        Selection.Copy
        Windows(filestr).Activate
        Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        Application.CutCopyMode = False
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        Windows(Actbook).Activate
        Worksheets(Sheetstr).Shapes("Picture 1").Copy
        'ActiveSheet.Shapes.Range(Array("Picture 1")).Copy

        'Selection.Copy
        Windows(filestr).Activate
        'Range("A1").Select
        'ActiveSheet.Paste
        Worksheets(1).Paste Range("A1")

        'Application.CutCopyMode = False
        ActiveWorkbook.Save
        ActiveWorkbook.Close
        Application.CutCopyMode = False

        Windows(Actbook).Activate