Veja também:
Talvez deseje aprender a criar gráficos automaticamente através de codificação VBA Considere o seguinte RANGE abaixo:
A | B | C | D | |
---|---|---|---|---|
1 | Tools Sold | Oct | Nov | Dec |
2 | South | 7.000 | 6.610 | 4.827 |
3 | North | 1.155 | 2.914 | 3.790 |
4 | East | 757 | 659 | 7.072 |
5 | West | 5.012 | 3.880 | 4.752 |
Range("A1:D7").Select Charts.Add
ActiveChart.ChartType = xlColumnClustered ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A3:D7"), PlotBy:= xlRows ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Tools Sold"
With ActiveChart .HasTitle = True .ChartTitle.Characters.Text = "Tools Sales for Qtr 1" .Axes(xlCategory, xlPrimary).HasTitle = True .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Month" .Axes(xlValue, xlPrimary).HasTitle = True .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Sales" End With
Pronto, nem doeu. Espero que através deste amplie a sua experiência.
Tags: VBA, Ecel, gráfico, chart, Tips,
Nenhum comentário:
Postar um comentário