When copying Excel sheet to a new workbook, images are not being copied VBA

[Bellatrix461]

Hello all,
I have created the VBA code to copy an Excel sheet to a new workbook in .xlsx format as I need the new workbook to be free of macros. However, the sheet I'm copying has the company's logo and I need it to be on the new workbook as well. However, is not doing it.

The code I'm using to copy the sheet to a new workbook is:

Sub SaveAsName()

Sheets("WWW").Copy
ActiveWorkbook.SaveAs Filename:="TEST FILE " & Range("G13") & ".xlsx"
Application.DisplayAlerts = False

End Sub

You may see attached a screenshot on how it looks the original file and the new workbook after running the macro. The "New" button should not be included in the new workbook (which is ok now because is not showing) but the logo (called Picture_6) it should.

Thank you for all your help!

 

[DanteAmor]

Hi and welcome to MrExcel.

Try this:

Sub SaveAsName()
  Application.CopyObjectsWithCells = True
  Sheets("WWW").Copy
  ActiveSheet.DrawingObjects("New").Delete
  ActiveWorkbook.SaveAs Filename:="TEST FILE " & Range("G13") & ".xlsx"
    Application.DisplayAlerts = False
End Sub

 

[Bellatrix461]

Hi and welcome to MrExcel.

Try this:

Sub SaveAsName()
  Application.CopyObjectsWithCells = True
  Sheets("WWW").Copy
  ActiveSheet.DrawingObjects("New").Delete
  ActiveWorkbook.SaveAs Filename:="TEST FILE " & Range("G13") & ".xlsx"
    Application.DisplayAlerts = False
End Sub

Thank you so much,@DanteAmor !! This worked perfectly! :D

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.