VBA Excel - Apague todos os gráficos da planilha - Delete All Charts in Workbook

| Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

DESENVOLVO APLICAÇÕES VBA

Acesse uma ENORME lista de Dashboards e Infográficos

Aprenda a detectar gráficos que precisam mudar

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Dashboards e Infocharts - Diversas Visualizações de Dados

Diversos exemplos de Gráficos

Excel - DashMap - Mapa do Brasil

Key Performance Indicators - 7 Características desejáveis

MIS - Usufruindo a excelência na análise das suas Informações

O Melhor do Business Intelligence

Os 10 mandamentos do gerenciamento de projetos

Receba  3 Calendários Customizáveis de  2013 em Excel

Usando Gauges em Dashboards no MS Access

Você tem direito as informações da sua empresa

Todas as Você precisa ter algum cuidado ao utilizar este código, pois ele apaga todos os gráficos na pasta de trabalho ativa, e também é útil quando você quer limpar as coisas e começar de novo.

Sub AllChartsDelete()

On Error GoTo ExitChart

Dim ws As Worksheet

Dim chObj As ChartObject

  Let Application.DisplayAlerts = False

  'delete embedded charts

  For Each ws In ActiveWorkbook.Worksheets

    For Each chObj In ws.ChartObjects

       chObj.Delete

    Next chObj

  Next ws

  'delete the chart sheets

  ActiveWorkbook.Charts.Delete

ExitChart:

  Let Application.DisplayAlerts = True

  Exit Sub

End Sub

Tags: VBA, Excel, chart, graph, export, image, GIF, picture, active chart