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

Autofiltro - Mostrando todos os registros (Show All Records)
Autofiltro - Acioando o AutoFiltro da nossa Lista (Turn On List AutoFilter)
Autofiltro - Desligando a Lista de AutoFiltro (Turn Off List AutoFilter)
Autofiltro - Contando as Listas de AutoFiltros (Count List AutoFilters)
Autofiltro - Ocultando todas as Setas da lista de AutoFiltro, exceto uma (Hide Arrows Specific Columns)
Autofiltro - Ocultando Setas específicas nas listas de AutoFiltro (Hide Arrows Specific Columns)
Autofiltro - Visualizar todas as setas da Lista AutoFiltro (Show All List AutoFilter Arrows)
Autofiltro - Copiando Linhas filtradas específicas, sem os títulos (Copy Filtered List Rows Without Headings)
Autofiltro - Copiando Linhas filtradas específicas, com os títulos (Copy Filtered List Rows With Headings)
Autofiltro - Conte as Linhas Visíveis da Lista (Count Visible List Rows)

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