troppe serie nei grafici

Hai un problema con Excel?

Nuova discussione

troppe serie nei grafici
di ilFonta data: 08/06/2014 10:39:21
Buongiorno a tutti.

Alla fine della mia macro ho scritto alcune righe che mi permettono di fare una serie di tot grafici.
Io vorrei che ogni grafico avesse una sola serie, invece mi ritrovo tot grafici con ognuno tot serie.
In pratica succede che ogni grafico ha dentro se anche i dati delle serie relative ai dati adiacenti.

VI allego giusto la parte relativa ai grafici, tutto il resto funziona. Sapete darmi una mano?

Grazie mille

 y_iniz_graf = 300
    rigaROI = 4
    
    For i = 1 To numeroROI
    
        
        ActiveSheet.Shapes.AddChart(xlXYScatterSmooth, Left:=200, Top:=y_iniz_graf, Width:=600, Height:=300).Select
        ActiveChart.SeriesCollection.NewSeries
        ActiveChart.SeriesCollection(1).XValues = Range(Cells(2, 4), Cells(2, numeroBande + 3))
        ActiveChart.SeriesCollection(1).Values = Range(Cells(rigaROI, 4), Cells(rigaROI, numeroBande + 3))
    
        rigaROI = rigaROI + 1
        y_iniz_graf = y_iniz_graf + 310
    
    Next i

End Sub

VBA x collegare Doc. Work con Foglio Excel
di Black1971 (utente non iscritto) data: 08/06/2014 10:48:18
Ciao a tutti.
Ho dato un'occhiata al forum ma non riesco a correggere il codice vba per collegare in automatico un documento work a un foglio excel.
Ho fatto un "Registra macro" dal documento word per la connessione al foglio excel e ho sistemato il codice per la mia automazione, ma quando lo lancio, windows mi apre l'explorer per andare a cercare il documento excel e mi chiede nell'intestazione della finestra: "Seleziona Tabella".

Vi allego lo spezzone del codice di cui parlo.

Se vi serve qualche altra informazione fatemi sapere.

Riuscite ad aiutarmi ?

                LM = Percorso_LM & Codice_coop_Excel & "LIBRO MATRICOLA - " & Codice_coop_Excel & ".xlsm "         'costruisco il percorso
                
                ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
                ActiveDocument.MailMerge.OpenDataSource Name:= _
                LM, ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
                AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
                WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
                Format:=wdOpenFormatAuto, Connection:= _
                "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=LM;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path=" _
                , SQLStatement:="SELECT * FROM `LM$`", SQLStatement1:="", SubType:= _
                wdMergeSubTypeAccess

Vuoi Approfondire?