Quitar shapes de mi hoja que sera respaldo

hola tengo el sig codigo:

Sub guardaCopiaPANADERIA()
On Error Resume Next
Application.ScreenUpdating = False
'x Elsamatilde
Sheets("PANADERIA").Select
'controla si existe hoja COPIA sino la crea
Dim X As Byte
For Each sh In Sheets
If sh.Name = "PANADERIA COPIA" Then X = 1
Next sh
'si la variable esta en 0 debe crear la hoja
If X = 0 Then
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = "PANADERIA COPIA"
'vuelvo a mi hoja
Sheets("PANADERIA").Select
End If
'copio el rango de datos en la misma ubicaciòn de hoja copia

ActiveSheet.Range("B2:V300").Copy Destination:=Sheets("PANADERIA COPIA").Range("B2")
'quito formulas de la copia

Sheets("PANADERIA COPIA").Select
ActiveSheet.Range("B2:V300").Select
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
Selection.Copy
Selection.PasteSpecial xlValues

'asigno ruta y nombre para la copia. El nombre concatena fecha y nro
ruta = ThisWorkbook.Path & "\COPIAS PANADERIA\"
nbrecopia = Format(Range("D2"), "") & "_" & Range("B2")

'creo libro como copia de esta hoja
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
'le agrego las instrucciones de bloqueo y protección
'.Sheets(1).Columns("J:K").Hidden = True 'OPCIONAL: ocultar col
.Sheets(1).Columns("A:V").EntireColumn.AutoFit 'ajusta ancho de col

'vista Pantalla completa
Application.DisplayFullScreen = True
'se oculta la barra de fórmulas
Application.DisplayFormulaBar = False
With ActiveWindow
'se ocultan las pestañas de las hojas
.DisplayWorkbookTabs = True
'se quitan los encabezados y líneas de las celdas
.DisplayHeadings = False
.DisplayGridlines = False
Application.CommandBars("Worksheet Menu Bar").Enabled = False
'QUITAR BARRAS MACROS
'With ActiveWindow
'OCULTAR LAS PESTAÑAS DE LAS HOJAS DEL LIBRO
.DisplayWorkbookTabs = False
Application.DisplayFullScreen = True ' PANTALLA COMPLETA
ActiveWindow.DisplayVerticalScrollBar = False 'OCULTA BARRA DE DESPLAZAMIENTO VERTICAL
ActiveWindow.DisplayHorizontalScrollBar = False 'OCULTA BARRA DE DESPLAZAMIENTO HORIZONTAL

End With
'se bloquean todas las celdas y se protege la hoja
.Sheets(1).Cells.Locked = True

.Sheets(1).Protect password:="1234"
'contemplo posible error en el guardado
On Error GoTo sinCopia

'contemplo posible error en el guardado
On Error GoTo sinCopia
'guardamos el libro en la misma carpeta, subcarpeta COPIAS
.SaveAs ruta & nbrecopia & ".xlsx"
On Error GoTo 0
'cerramos el nuevo libro
.Close
End With
'se libera el objeto
Set wb = Nothing
'limpio la hoja COPIA
ActiveSheet.Cells.Clear
ActiveSheet.Range("A1").Select
Cells.Hyperlinks.Delete

ActiveSheet.Hyperlinks.Delete
'vuelvo a la hoja FACTURA para seguir con el proceso
Sheets("PANADERIA").Select
Exit Sub

sinCopia:
MsgBox "Fallo el guardado. Guarda la hoja COPIA manualmente y luego borra su contenido.", , "ERROR"
'vuelvo a la hoja FACTURA para seguir con el proceso
Sheets("PANADERIA").Select
End Sub

el cual necesito que la hoja que estoy creado para guardar en mi carpeta 

se guarde sin las formas (shapes)

sin imagene ni nada

siempre y cuando no perjudique a la hoja que tomo como base...

espero su ayuda gracias