问将对象粘贴到新工作簿

EN

Sub SampleIndividualReport()
    Dim wbI As Workbook, wbO As Workbook
    Dim wsI As Worksheet, wsO As Worksheet


    Set wbI = ThisWorkbook
    Set wsI = Sheet7

    Set wbO = Workbooks.Add

    With wbO
        Set wsO = wbO.Sheets("Sheet1")
        ActiveWindow.DisplayHeadings = False
        Application.DisplayFormulaBar = False
        ActiveWindow.DisplayGridlines = False

        .SaveAs ThisWorkbook.Path & "\" & GetSelectedSlicerItems("Slicer_Teacher") & ".xlsx"

        wsI.Range("D39:BR97").Copy

        wsO.Range("D7").PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False

        wsO.Range("D7").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False


        wsI.Shapes.Range(Array("Chart 29", "TextBox 30")).Select
        Selection.Copy

        wsO.Range("G31").Select
        wsO.PasteSpecial Format:="Picture (Enhanced Metafile)", Link:=False _
        , DisplayAsIcon:=False

        .Save

   End With
End Sub