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 tudo sobre o Aplicativo Microsoft Excel VBA, sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel

    Baixe o exemplo de planilha com as macros acima
vba shapes deleta todos os objetos na folha de planilha (20.77 kB 2010-11-27 16:50:22)