Como criar gráficos no Excel com VBA?

Aprenda a criar gráficos no Excel utilizando VBA de forma prática e rápida! Neste vídeo, mostramos passo a passo como desenvolver um código VBA para gerar gráficos de barras a partir de uma tabela de dados. Ideal para quem deseja automatizar a criação de gráficos e otimizar o trabalho no Excel.
#excel #vba #automação #macros #visualbasic #tutorialexcel #programação #cursoexcel #dicasexcel #análisededados #ia
Dim ws As Worksheet 'Variavel de planilha
Dim chartObj As ChartObject 'Este é o nosso objeto gráfico (no qual nos editamos os atributos)
Dim myChart As chart 'A janela do nosso gráfico
Dim dataRange As Range 'Intervalo de dados
CODIGO VBA ###
' Definir a planilha ativa e o intervalo de dados
Set ws = Worksheets("Planilha1") 'ou ActiveSheet
Set dataRange = ws.Range("A1:B6") ' Defina o intervalo de acordo com os seus dados
' Adicionar um novo gráfico na planilha
Set chartObj = ws.ChartObjects.Add(Left:=300, Width:=375, Top:=50, Height:=225)
Set myChart = chartObj.chart
' Definir o tipo de gráfico (por exemplo, coluna)
myChart.ChartType = xlColumnClustered
' Tipos de gráfico:
'xlColumnClustered: Colunas agrupadas
'xlBarClustered: Barras agrupadas
'xlLine: Linha simples
'xlPie: Gráfico de pizza
' Definir a fonte de dados para o gráfico
myChart.SetSourceData Source:=dataRange
' Personalizar o título do gráfico
myChart.HasTitle = True
myChart.ChartTitle.Text = "Vendas por Produto (em unidades)"
' Personalizar o título do eixo X
myChart.Axes(xlCategory, xlPrimary).HasTitle = True
myChart.Axes(xlCategory, xlPrimary).AxisTitle.Text = "Tipos de Produtos"
' Alterar a cor das colunas do gráfico
myChart.SeriesCollection(1).Interior.Color = RGB(0, 102, 204)
' Adicionar rótulos de dados às colunas
myChart.SeriesCollection(1).ApplyDataLabels
End Sub