[VBA] Excel: numero serie grafico

[VanessaInfo]

salve a tutti,

allora ho una tabella da inserire in un grafico...ogni riga rappresenta una serie..il problema è ke devo fare tutto da codice....la macro mi crea questo codice per inserimento di una riga.

Range("I15").Select
ActiveSheet.ChartObjects("Grafico 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(19).Values = "=Foglio1!R12C2:R12C6"
ActiveChart.SeriesCollection(19).Name = "=Foglio1!R12C1"


e fino a qui tutto ok...(a parte il fatto ke fa riferimento a colonne-righe come R12C1 riga 12 e colonna 1...ma va bè)...

il problema è ke devo poter visualizzare o meno una serie ...e come dato immediato ho solo il nome, come faccio dopo averla inserita a cancellarla da codice visto ke seriescollection(index) vuole il numero?

Come estrapolare il numero di memorizzazione serie?

(index è il numero in base ad aggiunta serie nel grafico)

Grazie

VaneX

P.S.: spero d essere stata kiara, utilizzo officeXP

[VanessaInfo]

altra soljuzione potrebbe essere inserire tutte le serie e visualizzarne solo alcune semprecon codice è possibile?


VaneX

[VanessaInfo]

..c sono quasi ma mi serve un piccolo aiuto allora:

Dim Serie As Series
'
ActiveSheet.ChartObjects("Grafico 4").Activate
ActiveChart.ChartArea.Select
For Each Serie In ActiveChart.SeriesCollection
N = N + 1
Next Serie


ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(N).Values = "=Foglio1!R4C2:R4C6"
ActiveChart.SeriesCollection(N).Name = "=Foglio1!R4C1"

poi farò parametrica la riga...ma...

mi servirebbe sapere a quale insieme appartiene il grafico...ovvero poiké in questo caso il gtrafico si kiama grafico 4 vorrei poterlo rendere parametrico e quidni trovarmi il nome del grafico in base a quello esistente.

Tipo come ho fatto per seriescollection

Grazie

VaneX

[VanessaInfo]

..index può essere anke un nome..quindi seriescolletion(Nome)...ma ovviamente deve esistere!

VaneX

[VanessaInfo]

...ripilogo...

come faccio a scorrere i grafici contenuti in un foglio di lavoro?

vorrei rinominare inoltre i grafici, okio nn il titolo, il nome dell'ogggetto!!!

VaneX

[VanessaInfo]

Dim Grafico As ChartObject

'foglio in cui si trovano i grafici
Sheets("Grafico").Select


For Each Grafico In ActiveSheet.ChartObjects
Numero_Grafico = Numero_Grafico + 1
Next


ce l'ho fatta....mannaggia!

ora mi manca solo d rinominare i grafici.....appena c riescovi faccio sapere!


VaneX

[VanessaInfo]

ActiveSheet.ChartObjects(Numero_Grafico).Name


il tutto per vedere se il grafico che riporta un determinato nome è stato creato...vi ho postato le soluzioni magari a qcuno può servire!

mi sa ke esiste un metodo count!

cmq funzia uguale, no?

VaneX

[VanessaInfo]

(ActiveSheet.ChartObjects.Count)

banale....

Ciao

VaneX