Problemi con macro e grafici in Excel!

[Joint]

ciao ragazzi ho un problema con le macro e i grafici di excel 2000. Quando creo una macro correlata ad un grafico questa non funziona se il grafico viene modificato in larghezza o all'interno (caratteri, asse) ma solo se lascio il grafico come creato di default. L'Errore che mi genera è questo...errore di Run time (impossibile trovare l'elemento corrispondente al nome specificato).
Praticamente nel vbscript genera questo codice:

Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("SerieB").Range("A4:C4"), PlotBy:= _
xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:="SerieB"
ActiveSheet.Shapes("Grafico 96").ScaleWidth 1.32, msoFalse, _
msoScaleFromTopLeft
End Sub

dove quel grafico 96 cambia ogni volta che apro il grafico...diventanto 97 e cosi via..perdendo cosi il nome specifico e generando l'errore...almeno questo ho capito. C'è un modo per risolvere il problema?

grazie

Andrea

[Joint]

ciao ragazzi ho un problema con le macro e i grafici di excel 2000. Quando creo una macro correlata ad un grafico questa non funziona se il grafico viene modificato in larghezza o all'interno (caratteri, asse) ma solo se lascio il grafico come creato di default. L'Errore che mi genera è questo...errore di Run time (impossibile trovare l'elemento corrispondente al nome specificato).
Praticamente nel vbscript genera questo codice:

Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("SerieB").Range("A4:C4"), PlotBy:= _
xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:="SerieB"
ActiveSheet.Shapes("Grafico 96").ScaleWidth 1.32, msoFalse, _
msoScaleFromTopLeft
End Sub

dove quel grafico 96 cambia ogni volta che apro il grafico...diventanto 97 e cosi via..perdendo cosi il nome specifico e generando l'errore...almeno questo ho capito. C'è un modo per risolvere il problema?

grazie

Andrea

[Joint]

ho risolto

basta aggiungere un'istruzione che richiama il nome del grafico.

x = Mid(ActiveChart.Name, n+1nomefoglio) -- richiama il nome del grafico..deve cominciare dopo n+1 il nome del foglio altrimenti non trova il grafico! (se il foglio si chiama foglio1 l'istruzione sarà ,8 alla fine)

ActiveSheet.Shapes(x).ScaleWidth 1.37, msoFalse, _
msoScaleFromBottomRight

[Terno]

Bravo. Grazie per la soluzione