VBA Excel: Criando gráficos com VBA

| 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

Veja também:

MS Excel – Diversas Funções Úteis

Copiando um conjunto de arquivos de uma pasta para outra usando o VBA

Evocando chamada ao Painel de Controle

Uso do comando SHELL com as aplicações VBA

Talvez deseje aprender a criar gráficos automaticamente através de codificação VBA Considere o seguinte RANGE abaixo:

	A	B	C	D
1	Tools               Sold	Oct	Nov	Dec
2	South	7.000	6.610	4.827
3	North	1.155	2.914	3.790
4	East	757	659	7.072
5	West	5.012	3.880	4.752

Range("A1:D7").Select

Charts.Add

ActiveChart.ChartType = xlColumnClustered

ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A3:D7"), PlotBy:= xlRows

ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Tools Sold"

With ActiveChart

.HasTitle = True.ChartTitle.Characters.Text = "Tools Sales for Qtr 1".Axes(xlCategory, xlPrimary).HasTitle = True.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Month".Axes(xlValue, xlPrimary).HasTitle = True.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Sales"

End With

Pronto, nem doeu. Espero que através deste amplie a sua experiência. 

Tags: VBA, gráfico, Tips, Microsoft Office, excel, chart, automation