Removendo gráficos do Excel via VBA

Recentemente precisei criar uma rotina de criação de gráficos no Excel via VBA, porém, antes seria preciso apagar os gráficos que existem na Planilha.
Iniciei elaborando um loop que percorresse cada gráfico, o que se tornou muito dispendioso. Foi então que encontrei essa solução:

Sub Macro3()
Dim WSD As Worksheet
Set WSD = Worksheets("Dados")
WSD.ChartObjects.Delete
End Sub

O ChartObjects.Delete apagou todos os gráficos em um instante. Simples. Sem loop.
Encontrei aqui

Anúncios

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s