Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

colori riempimento grafico

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

colori riempimento grafico

Postdi wallace&gromit » 09/07/15 18:02

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
stato 2014: Office2003/2013 su win7
Avatar utente
wallace&gromit
Utente Senior
 
Post: 1421
Iscritto il: 16/01/12 14:21

Sponsor
 

Re: colori riempimento grafico

Postdi Anthony47 » 10/07/15 01:18

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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: colori riempimento grafico

Postdi wallace&gromit » 10/07/15 07:00

Anthony47 ha scritto: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.
stato 2014: Office2003/2013 su win7
Avatar utente
wallace&gromit
Utente Senior
 
Post: 1421
Iscritto il: 16/01/12 14:21


Torna a Applicazioni Office Windows


Topic correlati a "colori riempimento grafico":


Chi c’è in linea

Visitano il forum: Nessuno e 12 ospiti