Creazione Grafici

Hai un problema con Excel?

Nuova discussione

Creazione Grafici
di Alescant (utente non iscritto) data: 15/05/2014 23:42:21
ciao a tutti
comincio con lo scusarmi per il ritardo con cui Vi ringrazio per avermi aiutato a risolvere il difficile problema dei conteggi con selezione di celle da colorare: mi avete tolto dalla fossa delle Marianne.

adesso passo al nuovo quesito:
col registratore macro ho eseguito delle operazioni di selezione di colonne di dati che vanno ad alimentare un grafico. fin qui tutto ok
ma il numero di dati e fortemente variabile ogni volta che utilizzo il file per cui vorrei creare un grafico "parametrico" che si adatti ad un asse X variabile e non più costante.
purtroppo non conosco il modo di inserire i parametri nell'esempio di codice che vi inserisco di seguito (parametri come assegnare il nome al grafico, posizionamento del grafico nel foglio, la selezione della colonna dei dati - che si trova in un altro foglio ossia diverso da quello in cui viene eseguito il grafico).

a vostra disposizione per eventuali chiarimenti e grazie ancora

    Sheets("Grafici").Select
    
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range(Cells(RigPartenzaTitoli, Col_Valori), Cells(RigPartenzaTitoli + Campioni, Col_OoR))
    
    ActiveChart.ChartType = xlLine

    ActiveSheet.Shapes("Grafico 1").IncrementLeft -350.25
    ActiveSheet.Shapes("Grafico 1").IncrementTop 47.25
    ActiveSheet.Shapes("Grafico 1").ScaleWidth 1.9520833333, msoFalse, _
        msoScaleFromTopLeft
    
    
    ActiveChart.SeriesCollection.NewSeries
    
    ActiveChart.SeriesCollection(1).Name = "=Calcoli!$B$4"
    ActiveChart.SeriesCollection(1).Values = "=Calcoli!$B$5:$B$304"
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(2).Name = "=Calcoli!$C$4"
    ActiveChart.SeriesCollection(2).Values = "=Calcoli!$C$5:$C$304"
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(3).Name = "=Calcoli!$AT$4"
    ActiveChart.SeriesCollection(3).Values = "=Calcoli!$AT$5:$AT$304"
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(4).Name = "=Calcoli!$AP$4"
    ActiveChart.SeriesCollection(4).Values = "=Calcoli!$AP$5:$AP$304"
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(5).Name = "=Calcoli!$AU$4"
    ActiveChart.SeriesCollection(5).Values = "=Calcoli!$AU$5:$AU$304"

di isy data: 15/05/2014 23:49:07
Ciao

Prepara e allega un file d'esempio per poter interpretare la richiesta.
Prova a presentare i grafici che utilizzi
di Alescant (utente non iscritto) data: 19/05/2014 19:31:14
ok inviato il file con i grafici che desidero ottenere

grazie ancora
ciaooo
macro per grafici
di alescant (utente non iscritto) data: 26/05/2014 21:51:25
ciao a tutti,
scusate se mi faccio sentire con un po' di ritardo ma ho avuto un pò di problemi.

effettivamente vorrei semplicemente capire come fare a rendere parametrica questa istruzione:
ActiveChart.SeriesCollection(1).Values = "=Calcoli!$B$5:$B$304"
ne senso che, se dovesse cambiare il range dei dati (es $B$$:$B$100) come posso fare.

capito questo in grosso è fatto.

grazie
buona serata

Vuoi Approfondire?