Arquivo mensal: julho 2012

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