Como criar um gráfico no vba excel

Criar um gráfico usando o Visual Basic for Applications no Excel.

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"
De esta maneira? Compartilhar em redes sociais:

LiveInternet