Todos nós sabemos que uma macro pode economizar muito o tempo de um usuário ou desenvolvedor que utiliza o Microsoft Excel.
Sub Criar_Grafico_Plan()
Range("A1:C5").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Range("Plan1!$A$1:$C$5")
ActiveChart.SetElement (msoElementChartTitleAboveChart)
ActiveChart.ChartTitle.Text = "Vendas ano 2008"
Range("A1").Select
End Sub

Neste exemplo mostraremos como criar um simples gráfico de colunas via macro.
Em nosso exemplo vamos utilizar os seguintes dados:

Para criar uma gráfico na própria planilha é só criar um módulo e digitar o seguinte código.
Sub Criar_Grafico_Plan()
Range("A1:C5").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Range("Plan1!$A$1:$C$5")
ActiveChart.SetElement (msoElementChartTitleAboveChart)
ActiveChart.ChartTitle.Text = "Vendas ano 2008"
Range("A1").Select
End Sub
Nenhum comentário:
Postar um comentário