Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

con macro aggiungere una serie grafico

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

con macro aggiungere una serie grafico

Postdi wallace&gromit » 15/03/12 11:56

Ciao Flash,
mi rivolgo soprattutto a te, che sei il nostro mago delle macro, ma altri contributi sono benvenuti.

In una trentina di grafici x,y devo fare a scadenze regolari un lavoro piuttosto ripetitivo: aggiungere parecchie serie di dati ogni volta.
I dati di x nuovi si trovano sempre nelle colonne adiacenti a quelli precedenti. I dati dei valori y sono sempre nella colonna A.
Per semplificare l'operazione ho cercato di compilare una macro.
Ecco il mio codice:
Codice: Seleziona tutto
Sub AggiungiSerie()
    attuale = ActiveChart.SeriesCollection.Count

    nuovoX = "CB140_InvDiff!R3C" & attuale + 1 & ":R38C" & attuale + 1
    nuovoN = "=CB140_InvDiff!R2C" & attuale + 1
   
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(attuale + 1).XValues = nuovoX
    ActiveChart.SeriesCollection(attuale + 1).Values = "=CB140_InvDiff!R3C1:R38C1"
    ActiveChart.SeriesCollection(attuale + 1).Name = nuovoN
End Sub


nuovoN è riconosciuto correttamente e mi trovo nella nuova serie il valore della cella di intestazione della nuova colonna.
nuovoX invece non è riconosciuto come range ma mi figura in forma di testo racchiuso tra virgolette e parentesi graffe.
Il plot della nuova serie è di conseguenza totalmente sbagliato.
stato 2014: Office2003/2013 su win7
Avatar utente
wallace&gromit
Utente Senior
 
Post: 1420
Iscritto il: 16/01/12 14:21

Sponsor
 

Re: con macro aggiungere una serie grafico

Postdi wallace&gromit » 15/03/12 12:18

Ritiro tutto!!!
mi mancava solo un "="!
ecco il codice guisto (tra l'altro dovevo aggiungere un po' più di una colonna per cercare i dati giusti):
Codice: Seleziona tutto
Sub AggiungiSerie()
   
    Dim nuovoX As String
    Dim nuovoN As String
    attuale = ActiveChart.SeriesCollection.Count

    nuovoX = "=CB140_InvDiff!R3C" & attuale + 3 & ":R38C" & attuale + 3
    nuovoN = "=CB140_InvDiff!R2C" & attuale + 3
    MsgBox (nuovoX)
   
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(attuale + 1).XValues = nuovoX
    ActiveChart.SeriesCollection(attuale + 1).Values = "=CB140_InvDiff!R3C1:R38C1"
    ActiveChart.SeriesCollection(attuale + 1).Name = nuovoN
   

End Sub
stato 2014: Office2003/2013 su win7
Avatar utente
wallace&gromit
Utente Senior
 
Post: 1420
Iscritto il: 16/01/12 14:21

Re: con macro aggiungere una serie grafico

Postdi Flash30005 » 15/03/12 14:57

:)
Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-


Torna a Applicazioni Office Windows


Topic correlati a "con macro aggiungere una serie grafico":


Chi c’è in linea

Visitano il forum: Nessuno e 11 ospiti

cron