Grafico excel da macro



  • Grafico excel da macro
    di Du9 (utente non iscritto) data: 01/05/2016 15:48:30

    Devo creare ripetutamente una serie di grafici, per cui ho pensato ad una macro registrata.
    Dove Hbulk e Tbulk sono i "nomi" che ho definito agli intervalli di celle interessate
    Purtroppo la macro non funziona e restituisce l'errore:

    ERRORE DI RUN-TIME 1004
    Errore definito dall'applicazione o dall'oggetto.

    Qualcuno ha qualche idea?

     
    Sub Macro3()
    
    
    
    ' Macro3 Macro
    '
    
    '
        ActiveSheet.Shapes.AddChart2(240, xlXYScatterSmooth).Select
        ActiveChart.SeriesCollection.NewSeries
        ActiveChart.FullSeriesCollection(1).Name = "=""v"""
        ActiveChart.FullSeriesCollection(1).XValues = "==Cartel_Grafici_Prova.xlsm!Hbulk"
        ActiveChart.FullSeriesCollection(1).Values = "==Cartel_Grafici_Prova.xlsm!Tbulk"
        
    End Sub
    



  • di patel data: 01/05/2016 18:15:49

    come già detto allega il file
    perché inserisci nuove discussioni invece di continuare la precedente cambiando anche nome ?





  • di Marius44 data: 01/05/2016 22:47:35

    Ciao patel
    è un perditempo!
    In altro forum gli ho suggerito una macro che crea un grafico (non certo il suo, ma che almeno provasse a farlo) ma non ha dato segni di vita.
    Nell'altro forum ha postata la domanda alla 16,00 qui alle 15,48

    Io lascio perdere. Ciao,
    Mario



  • di Du9 (utente non iscritto) data: 02/05/2016 12:46:14

    Ciao ragazzi.
    Mi scuso se non ho risposto in tempo e anche per aver creato un'altra discussione (la domanda era concettualmente differente e ho pensato, sicuramente sbagliando, di creare un nuovo post).
    Il cambio di nome è stata una dimenticanza, perchè non ricordavo bene che nome avessi utilizzato, capisco di aver creato confusione.
    Comunque, per coloro ai quali possa servire, ho risolto il problema in questa maniera:

    In pratica, il nome assegnato all'intervallo, memorizzato nella cella (17,5) va trattato come Range.

    Buona giornata e grazie.
     
    
    s = Sheets("Admin").Cells(17,5).Value
    
    ActiveChart.FullSeriesCollection(c).XValues = Sheets("Admin").Range(s)