grafici e cambio di fogli



  • grafici e cambio di fogli
    di ilFonta data: 08/10/2013 00:28:21

    salve, ho i miei dati nel foglio chiamato "istogrammi" e vorrei fare dei grafici nel foglio "grafici".
    Ho scritto questa parte di codice , inserito in una macro piuttosto lunga, ma ottengo l'errore "parametro non valido".
    e viene evidenziata in giallo la riga
    ActiveChart.SeriesCollection(1).XValues = Worksheets("istogrammi").Range("G3:G101").

    Dove sbaglio?

    Grazie
     
    Dim istogrammi As Worksheets
                Sheets("grafici").Select
                ActiveSheet.Shapes.AddChart(xlColumnStacked, _
                Left:=x_iniz_graf, Top:=y_iniz_graf, Width:=300, Height:=200).Select
                ActiveChart.ChartType = xlColumnStacked
                ActiveChart.HasTitle = True
                ActiveChart.ChartTitle.Text = Worksheets("istogrammi").Range(nomi_ROI)
                ActiveChart.SeriesCollection(1).XValues = Worksheets("istogrammi").Range("G3:G101")
                ActiveChart.SeriesCollection(1).Values = Worksheets("istogrammi").Range(colon_freq)