Considere o seguinte RANGE abaixo:
Copie e cole o código abaixo:
Range("A1:D5").Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A3:D7"), PlotBy:=xlRows
'ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Softwares Vendidos no Quadrimestre"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Softwares Vendidos por Qtr 1"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Meses"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Vendas"
End With
Tags: Microsoft Office, excel, chart, automation, gráfico