Studio dei grafici in Excel VBA

Analizziamo tutti i passaggi della creazione di un grafico in Excel.

La prima riga è questa:

Charts.Add

Che dovrebbe significare "Aggiungi un elemento all'insieme dei grafici.
E sta bene.

La seconda riga è questa:

ActiveChart.ChartType = xlColumnStacked

E sta a significare il tipo di grafico.

Ed ecco una cosa più succosa:

ActiveChart.SetSourceData Source:=Sheets("Foglio7").range("C2:C16"), PlotBy _
        :=xlColumns

Sarebbe la sorgente dei dati e il tipo di organizzazione di questi dati, ossia ciò che si sceglie con questo form:



Ora provo a fare un grafico fino a qua e vediamo cosa viene fuori.

    Charts.Add
    ActiveChart.ChartType = xlColumnStacked
    ActiveChart.SetSourceData Source:=Sheets("Foglio7").range("C1:C3"), PlotBy _
        :=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Foglio7"

Ecco:



Ecco, un grafico in cui in ordinate ci sono i valori espressi nel range C1:C3 del foglio di lavoro, mentre in ascisse ci sono semplicemente dei numeri.

---

Ora rifaccio un grafico usando la scheda "Serie".
Ecco come mi si presenta la scheda all'inizio:



e io proseguo dando i valori:



Ecco il codice:

    Charts.Add
    ActiveChart.ChartType = xlColumnStacked
    ActiveChart.SetSourceData Source:=Sheets("Foglio7").range("C1:C3"), PlotBy _
        :=xlColumns
    ActiveChart.SeriesCollection(1).XValues = "=Foglio7!R1C1:R3C1"
    ActiveChart.SeriesCollection(1).Name = "=Foglio7!R1C2"
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Foglio7"

Quindi

ActiveChart.SetSourceData Source:=Sheets("Foglio7").range("C1:C3"), PlotBy _
        :=xlColumns

esprime i valori espressi sull'asse delle ordinate;

 ActiveChart.SeriesCollection(1).XValues = "=Foglio7!R1C1:R3C1"

esprime i nomi espressi sull'asse delle ascisse;

 ActiveChart.SeriesCollection(1).Name = "=Foglio7!R1C2"

esprime il nome della serie.

Così, se io voglio sapere quanti ROSSI sono stati fatti dal 118 di Roccasecca, Pizzobello e Casaminchiola, ho come SetSourceData i numeri dei rossi fatti dalle tre sedi, come XValues i nomi dei tre paesi e come Name il nome ROSSI, appunto.