colori riempimento grafico

[wallace&gromit]

Ciao a tutti e a chi c'è stato (come me) buon rientro dalle vacanze.
Io mi sono trovato subito un bel grattacapo:
vorrei automatizzare con una macro la creazione di grafici a dispersione XY, in modo che i simboli assumano dei colori prefissati.
Nel foglio "SpostOrizz" ho i dati e nel foglio "Colori" ho appunto i colori che voglio dare ai "pallini" nel grafico.
Questa macro (ottenuta in gran parte registrando le operazioni che voglio eseguire) prima di tutto svuota il grafico, poi crea tutte le serie come sono elencate nel foglio dati (e fin qui tutto bene) e alla fine dovrebbe colorare tutte le serie.
Con il colore della linea funziona (anche se avrei preferito tenerla nera!)
Il colore del riempimento rimane uguale per tutti (come ho già detto sopra le istruzioni le ho ricavate da una macro registrata, mica inventate!).
Ecco la macro:

Codice: Seleziona tutto

    Sub AggiornaSerie()

        Sheets("Grafico1").Select
       
        For totale = 1 To ActiveChart.SeriesCollection.Count
        ActiveChart.SeriesCollection(1).Delete
        Next totale
           
        UR = Range("SpostOrizz!B9").End(xlDown).Row
        UC = Range("SpostOrizz!C6").End(xlToRight).Column
       
        For Col = 3 To UC
       
        Att = ActiveChart.SeriesCollection.Count + 1
        nomeSerie = Range("SpostOrizz!B6").Offset(0, Col - 2)
        ActiveChart.SeriesCollection.NewSeries
        ActiveChart.SeriesCollection(Att).XValues = "=SpostOrizz!R" & 9 & "C" & Col & ":R" & UR & "C" & Col
        Col = Col + 1
        ActiveChart.SeriesCollection(Att).Values = "=SpostOrizz!R" & 9 & "C" & Col & ":R" & UR & "C" & Col
        ActiveChart.SeriesCollection(Att).Name = nomeSerie

        Next Col
       
        For i = 1 To ActiveChart.SeriesCollection.Count
       
        ActiveChart.FullSeriesCollection(i).Select
       
        Rosso = Range("Colori!B1").Offset(i, 0)
        Giallo = Range("Colori!B1").Offset(i, 1)
        Blu = Range("Colori!B1").Offset(i, 2)
       
        With Selection.Format.Line
        .Visible = msoTrue
        .ForeColor.RGB = RGB(Rosso, Giallo, Blu)
        .Transparency = 0
        .Weight = 1
        End With
 
        With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(Rosso, Giallo, Blu)
        .Transparency = 0
        .Solid
        End With

        Next i
       
    End Sub




Qui c'è il file d'esempio

http://www.filedropper.com/estrazionevalori2015

[Anthony47]

Ciao a tutti e a chi c'è stato (come me) buon rientro dalle vacanze

E per chi le ha appena cominciate, niente??

Immagino che il problema sia il colore di sfondo del marker delle serie.
In effetti il codice prodotto dal registratore e' molto approssimato, per quanto riguarda l'impostazione dei colori dei marker, visto che per questo scopo esiste la proprieta' MarkerBackgroundColor...
Quindi inserirai

Codice: Seleziona tutto

    With Selection
        .MarkerStyle = 8
        .MarkerSize = 5
        .MarkerBackgroundColor = RGB(Rosso, Giallo, Blu)      '<<< QUESTA e' da aggiungere
    End With


Mentre tutto il codice tra With Selection.Format.Fill /End With si puo' rimuovere.

Stranamente funzionerebbe anche con il codice che ti ho appena detto di rimuovere, se .Transparency = 0 / .Solid vengono spostati PRIMA di .ForeColor.RGB = RGB(etc etc

Ciao

[wallace&gromit]

E per chi le ha appena cominciate, niente??

come no, anzi! godetevele appieno. Dalla ripresa della tua attività sul sito deducevo che eri già rientrato, ma allora invece significa solo che non riesci a stare disconnesso troppo a lungo. Buon per noi, che ci risolvi in men che non si dica i problemi posti.
Grazie mille.