Detalhes de vba shapes deleta todos os objetos na folha de planilha

Saberexcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, deleta todos os objetos shapes de uma determinada folha de planilha.

Sub Deletar_todos_objetos()
On Error Resume Next
Dim vPergunta As Long
vPergunta = MsgBox("Todos objetos em [ " & ActiveSheet.Name _
& " ] será removido. tem certeza que deseja isto? ", vbQuestion + vbYesNo, _
"Saberexcel - o site das macros")

If Not vPergunta = vbYes Then Exit Sub
ActiveSheet.DrawingObjects.Select
Selection.Delete
End Sub

Macro auxiliar que copia todos os shapes para planilha principal para serem deletados.
Sub copiar_para_teste()
On Error Resume Next
ActiveSheet.DrawingObjects.Select

Selection.Copy
Sheets("Plan1").Select
Range("H5").Select
ActiveSheet.Paste
Range("J29").Select
End Sub

Aprenda Microsoft Excel VBA com qualidade Saberexcel