VBA Excel - Apague todos os gráficos da Planilha - Delete all charts on worksheet

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

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

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

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

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Key Performance Indicators - 7 Características desejáveis

Os 10 mandamentos do gerenciamento de projetos

Business English - Termos em inglês do mundo dos negócios - Speaking the lingo

13 Dicas para se Falar em Público

Sim, às vezes, para tornar as nossas planilhas mais leves, precisamos, antes de fechá-las e gravá-la, deletar todos os gráficos nela contidos. É lógico que isso só deve ser feito quando existem rotinas que garantem a criação automática dos mesmos.

Sub DelAllCharts()

Dim shp  As Shape

' Mude o nome da Planilha.

For Each shp In Sheets("nSheet").Shapes

    If shp.Type = msoChart Then

        shp.Delete

    End If

Next

End Sub

Tags: VBA, populando, combo box, formulário, form, control, controle