Saber como criar dinamicamente gráficos com Visual Basic for Applications pode economizar tempo ao analisar grandes quantidades de dados. Microsoft Excel é comumente usado para coletar dados semelhantes a um banco de dados Access. Excel oferece diferentes tipos de gráficos, tais como torta, linha, coluna, e outros formatos. Os gráficos de colunas são frequentemente utilizados em Excel para exibir graficamente informações. Não é difícil criar gráficos usando o VBA para apresentar seus dados de forma clara e com mais eficiência.
Abra o Microsoft Excel 2007 e clique no "Desenvolvedor" aba. selecionar "Visual Basic e tipo "Sub createColumnChart ()" e pressione "Entrar" para criar uma nova sub.
Digitar "myChart Dim Como Gráfico
Alcance("A1") .Select
ActiveCell.Value = "Dados do Gráfico 1"
Alcance("A2") .Select
ActiveCell.Value = "1"
Alcance("A3") .Select
ActiveCell.Value = "2"
Alcance("A4") .Select
ActiveCell.Value = "3"
Alcance("A5") .Select
ActiveCell.Value = "4"
Alcance("B1") .Select
ActiveCell.Value = "Dados do Gráfico 2"
Alcance("B2") .Select
ActiveCell.Value = "5"
Alcance("B3") .Select
ActiveCell.Value = "6"
Alcance("B4") .Select
ActiveCell.Value = "7"
Alcance("B5") .Select
ActiveCell.Value = "8"
Alcance("B6") .Select" para declarar a variável gráfico e adicionar alguns dados para o gráfico.
Digitar "Definir myChart = Charts.Add" para adicionar um novo gráfico.
Digitar "com myChart
.name = "dados do Gráfico"
.ChartType = xlColumnClustered
.SetSourceData Fonte: = Sheets ("Sheet1").Alcance("A1: B5"), _
PlotBy: = xlRows
.HasTitle = True
.ChartTitle.Text = "= Sheet1! R1C2"
.Eixos (xlCategory, xlPrimary) .HasTitle = True
.Eixos (xlCategory, xlPrimary) .AxisTitle.Characters.Text = "Dados do Gráfico 1"
.Eixos (xlValue, xlPrimary) .HasTitle = True
.Eixos (xlValue, xlPrimary) .AxisTitle.Characters.Text = "Dados do Gráfico 2"
End With" para definir propriedades do gráfico.
Digitar "End Sub" se necessário. Executar o seu novo sub.
dicas & avisos
- Seu novo sub deve ficar assim:
- "Sub createColumnChart ()
- myChart Dim Como Gráfico
- Alcance("A1") .Select
- ActiveCell.Value = "Dados do Gráfico 1"
- Alcance("A2") .Select
- ActiveCell.Value = "1"
- Alcance("A3") .Select
- ActiveCell.Value = "2"
- Alcance("A4") .Select
- ActiveCell.Value = "3"
- Alcance("A5") .Select
- ActiveCell.Value = "4"
- Alcance("B1") .Select
- ActiveCell.Value = "Dados do Gráfico 2"
- Alcance("B2") .Select
- ActiveCell.Value = "5"
- Alcance("B3") .Select
- ActiveCell.Value = "6"
- Alcance("B4") .Select
- ActiveCell.Value = "7"
- Alcance("B5") .Select
- ActiveCell.Value = "8"
- Alcance("B6") .Select
- Definir myChart = Charts.Add
- com myChart
- .name = "dados do Gráfico"
- .ChartType = xlColumnClustered
- .SetSourceData Fonte: = Sheets ("Sheet1").Alcance("A1: B5"), _
- PlotBy: = xlRows
- .HasTitle = True
- .ChartTitle.Text = "= Sheet1! R1C2"
- .Eixos (xlCategory, xlPrimary) .HasTitle = True
- .Eixos (xlCategory, xlPrimary) .AxisTitle.Characters.Text = "Dados do Gráfico 1"
- .Eixos (xlValue, xlPrimary) .HasTitle = True
- .Eixos (xlValue, xlPrimary) .AxisTitle.Characters.Text = "Dados do Gráfico 2"
- End With
- End Sub"