Di seguito esamineremo due programmi in Excel VBA. Un programma scorre tutti i grafici su un foglio e trasforma ogni grafico in un grafico a torta. L'altro programma cambia un po' proprietà del primo grafico.
1. Crea dei grafici (o scarica il file Excel).
Posiziona un pulsante di comando nel foglio di lavoro e aggiungi le seguenti righe di codice:
1. Innanzitutto, dobbiamo dichiarare un oggetto ChartObject. L'oggetto ChartObject funge da contenitore per un oggetto Chart. Chiamiamo ChartObject cht ma puoi usare qualsiasi nome.
Dim cht As ChartObject
2. La raccolta ChartObjects contiene tutti i grafici incorporati su un singolo foglio. Vogliamo scorrere tutti i grafici sul primo foglio. Aggiungi il seguente ciclo For Each Next.
Per ogni cht In Worksheets(1).ChartObjects
Avanti
3. L'oggetto Chart rappresenta un grafico in una cartella di lavoro. Aggiungi la seguente riga di codice al ciclo For Each Next per modificare ogni grafico in un grafico a torta.
cht.Chart.ChartType = xlPie
Nota: ancora una volta, cht funge da contenitore per l'oggetto Chart. Usiamo la proprietà ChartType per cambiare il tipo di grafico. Usiamo la costante xlPie incorporata per cambiare ogni grafico in un grafico a torta.
4. Risultato quando si fa clic sul pulsante di comando sul foglio:
Ora cambieremo alcune proprietà del primo grafico.
Posiziona un altro pulsante di comando sul foglio di lavoro e aggiungi le seguenti righe di codice:
5. L'insieme ChartObjects contiene tutti i grafici incorporati su un singolo foglio. Aggiungi la seguente riga di codice per attivare il primo grafico:
Fogli di lavoro(1).ChartObjects(1).Attiva
Ora possiamo fare riferimento a questo grafico come ActiveChart.
6. Aggiungere la seguente riga di codice per modificare il titolo del grafico.
ActiveChart.ChartTitle.Text = "Rapporto sulle vendite"
7. Aggiungi la seguente riga di codice per spostare la legenda nella parte inferiore del grafico:
ActiveChart.Legend.Position = xlBottom
8. Risultato quando si fa clic sul pulsante di comando sul foglio:
