Risultati da 1 a 13 di 13

Discussione: Personalizzazione Colore Grafici



  1. #1
    L'avatar di iridia88
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    montemurlo
    Età
    25
    Messaggi
    11
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    0

    Personalizzazione Colore Grafici

    Salve a tutti, ho un problema nella colorazione del mio grafico, in particolare non sò come poter colorare due serie diverse con lo stesso nome con un colore uguale. L'esempio è quello sottostante in cui ho due serie diverse con lo stesso nome (ORE) diviso per colore, ma in reltà vorrei che fossero colorate con lo stesso colore. Excel mi mette a disposizione solo la colorazione policromatica oppure monocromatica, ma non mi permette di andare a analizzare il nome delle serie, le diversifica e basta.
    Avete qualche idea su come poter fare?
    Vi ringrazio in anticipo, e vi allego un immagine, spero di esser stato chiaro!
    Ultima modifica fatta da:Canapone; 06/07/17 alle 09:09 Motivo: Immagine non visulaizzata bene
    Invia MPPM 

  2. #2
    L'avatar di Alessandro
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Roma
    Età
    45
    Messaggi
    863
    Versione Office
    2010 64 bit
    Likes ricevuti
    113
    Likes dati
    63
    scusami ma forse non ho capito io...
    ma se fai tasto dx sulla serie in questione>>>formato serie dati>>>riempimento>>>e ci metti il colore che vuoi...
    ma ripeto, temo di non aver capito io.
    ciao
    ale
    Invia MPPM 

  3. #3
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    50
    Messaggi
    5386
    Versione Office
    office 365/2016
    Likes ricevuti
    1272
    Likes dati
    1339
    Ciao iridia88
    in questa immagine potrai notare che ho colorato le stesse serie del"ORE" allo stesso modo, è questo quello che vuoi?
    Se la tua risposta è si, visto che hai excel 2013 clicca sull'asse che vuoi cambiare il colore
    fai CTRL+1 (oppure mouse destro e clicca formato serie dati) e poi guarda i vari passaggi che ho fatto nell'immagine
    Fammi sapere!
    Se non lo sai spiegare in modo semplice, non l'hai capito abbastanza bene Cit. Einstein
    Invia MPPM 

  4. #4
    L'avatar di iridia88
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    montemurlo
    Età
    25
    Messaggi
    11
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    0
    Ciao Alessandro, hai capito perfettamente! solo che non voglio impostarlo io " a mano" voglio che automaticamente ci sia un controllo e che tutte le serie che si chiamano ore vengono colorate di blu, e le serie che si chiamano licciate di giallo invece.
    Invia MPPM 

  5. #5
    L'avatar di iridia88
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    montemurlo
    Età
    25
    Messaggi
    11
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    0
    Citazione Originariamente Scritto da Gerardo Zuccalà Visualizza Messaggio
    ...
    Ciao Gerardo! Si è perfettamente quello che voglio, ma hai modificato il riempimento delle serie "ore" una per volta? se cosi fosse ho capito come fare per cambiare il riempimento singolarmente!
    E' invece possibile dare una regola in cui tutte le serie "ore" vengono colorate di arancione e tutte le serie "licciate" vengono colorate di un altro colore?
    Grazie mille!
    Ultima modifica fatta da:Canapone; 08/02/17 alle 09:08
    Invia MPPM 

  6. #6
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    50
    Messaggi
    5386
    Versione Office
    office 365/2016
    Likes ricevuti
    1272
    Likes dati
    1339
    Citazione Originariamente Scritto da iridia88 Visualizza Messaggio
    Ciao Gerardo! Si è perfettamente quello che voglio, ma hai modificato il riempimento delle serie "ore" una per volta? se cosi fosse ho capito come fare per cambiare il riempimento singolarmente!
    E' invece possibile dare una regola in cui tutte le serie "ore" vengono colorate di arancione e tutte le serie "licciate" vengono colorate di un altro colore?
    Grazie mille!
    Ciao che io sappia non è possibile a priori avere tutte le serie dati "ORE" colorate allo stesso modo, comunque nella mia procedura e molto snella è veloce e vale per tutta la serie dati (non solo per una barra) poi ripeti la stessa cosa per la prossima serie dati e cambi colore ecc. ecc..
    Se non lo sai spiegare in modo semplice, non l'hai capito abbastanza bene Cit. Einstein
    Invia MPPM 

  7. #7
    L'avatar di iridia88
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    montemurlo
    Età
    25
    Messaggi
    11
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    0
    Ok, il mio problema è che non ho dei dati statici, per cui non posso fare questa procedura tutte le volte...ne tanto meno farla fare a chi usufruirà di questo foglio di lavoro.
    In questo foglio importerò da un file.xml i dati per costruire il grafico, e l'unica cosa da "fare" per l'utente sarà appunto premere un bottone per importare i dati del file.xml.
    Spero di essere stato chiaro! Grazie della pazienza ragazzi!
    Invia MPPM 

  8. #8
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    50
    Messaggi
    5386
    Versione Office
    office 365/2016
    Likes ricevuti
    1272
    Likes dati
    1339
    Ok, ma i dati che scarichi dal file .xlsm ha intervalli di stesse dimensioni?
    con quale criterio decidi il campo "ore" o "licciate"?
    se hai bisogno di un pulsante che ti si aggiorna il grafico sicuramente avrai bisogno di un codice VBA che esegue i nuovi dati e ti colora le nuove serie dati "ore" allo stesso Modo :235:

    io mi arrendo! magari qualche amico del forum ci vuole provare
    Se non lo sai spiegare in modo semplice, non l'hai capito abbastanza bene Cit. Einstein
    Invia MPPM 

  9. #9
    L'avatar di Textomb
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    47
    Messaggi
    178
    Versione Office
    Excel 2016
    Likes ricevuti
    93
    Likes dati
    12
    Non sono certo di aver capito. Nè, tanto meno, di suggerirti una procedura corretta.
    Aggancia il codice sottostante ad un pulsante da inserire sul foglio ove è presente il grafico.
    Questa routine "dovrebbe" assegnare lo stesso colore alle serie che hanno lo stesso nome nel grafico.

    Sub ColoraSerieUguali()
    Dim ch As ChartObject
    Dim sC As Integer
    Dim x As Integer
    Dim sc_Coll As New Collection
    Dim NomeSerie As String
    Dim ColorSeries As Long
    Set ch = ActiveSheet.ChartObjects(1)
    ch.Activate
    sC = ActiveChart.SeriesCollection.Count
    For x = 1 To sC
    NomeSerie = ActiveChart.SeriesCollection(x).Name
    On Error Resume Next
    sc_Coll.Add NomeSerie, NomeSerie
    If Err.Number <> 0 Then
    ColorSeries = ActiveChart.SeriesCollection(sc_Coll(NomeSerie)).Format.Fill.ForeColor.RGB
    ActiveChart.SeriesCollection(x).Format.Fill.ForeColor.RGB = ColorSeries
    On Error GoTo 0
    Else
    ActiveChart.SeriesCollection(x).Format.Fill.ForeColor.RGB = RGB(60 * x, 40 * x, 20 * x)
    End If

    Next
    Range("a1").Select
    Set ch = Nothing
    Set sc_Coll = Nothing
    End Sub
    Invia MPPM 

  10. I seguenti utenti hanno dato un "Like"


  11. #10
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    50
    Messaggi
    5386
    Versione Office
    office 365/2016
    Likes ricevuti
    1272
    Likes dati
    1339
    @ TextTomb

    Come da tuo PM per racchiudere la formula tra TAG, fai cosi!

    1) Copia il codice
    2) Clicca Rispondi
    3) Clicca Modalità avanzata
    4) Clicca su # (come vedrai nella immagine)
    5) ed incolli (CTRL+V)





    Codice: 
    Sub ColoraSerieUguali()
    Dim ch As ChartObject
    Dim sC As Integer
    Dim x As Integer
    Dim sc_Coll As New Collection
    Dim NomeSerie As String
    Dim ColorSeries As Long
    Set ch = ActiveSheet.ChartObjects(1)
    ch.Activate
    sC = ActiveChart.SeriesCollection.Count
    For x = 1 To sC
    NomeSerie = ActiveChart.SeriesCollection(x).Name
    On Error Resume Next
    sc_Coll.Add NomeSerie, NomeSerie
    If Err.Number <> 0 Then
    ColorSeries = ActiveChart.SeriesCollection(sc_Coll(NomeSerie)).Format.Fill.ForeColor.RGB
    ActiveChart.SeriesCollection(x).Format.Fill.ForeColor.RGB = ColorSeries
    On Error GoTo 0
    Else
    ActiveChart.SeriesCollection(x).Format.Fill.ForeColor.RGB = RGB(60 * x, 40 * x, 20 * x)
    End If
    
    Next
    Range("a1").Select
    Set ch = Nothing
    Set sc_Coll = Nothing
    End Sub
    Se non lo sai spiegare in modo semplice, non l'hai capito abbastanza bene Cit. Einstein
    Invia MPPM 

  12. #11
    L'avatar di Alessandro
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Roma
    Età
    45
    Messaggi
    863
    Versione Office
    2010 64 bit
    Likes ricevuti
    113
    Likes dati
    63
    ciao iridia,
    oltre al fatto di inserire un pulsante e con una macro assegnare il colore...io ho appena provato con una:

    Sub graph()
    ActiveSheet.ChartObjects("Grafico 1").Activate
    ActiveChart.SeriesCollection(1).Select 'questo SeriesCollection(1) è la serie in questione
    With Selection.Format.Fill
    .ForeColor.RGB = RGB(255, 0, 0) 'questo RGB(255, 0, 0) è il colore
    End With
    End Sub

    ho come il sentore che tu sbagli nel cambiare formato alla serie. Nei tuoi post quando dici
    "...una per volta? ...per cambiare il riempimento singolarmente..."
    non vorrei che tu faccia doppio click sulla serie e non un click solo.
    Infatti se tu fai doppio click lui gestisce la serie di una sola voce e non tutta la serie di tutte le voci.
    Chiaramente azzerando il lavoro.
    boh..è un tentativo!!!
    ciao
    ale
    Invia MPPM 

  13. #12
    L'avatar di iridia88
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    montemurlo
    Età
    25
    Messaggi
    11
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    0
    Ciao ale, grazie della tua risposta. Ho fatto esattamente come funzione TextTomb e funziona alla perfezione!
    Il codice che mi ha postato lui è perfetto. Ho notato però che più serie aggiungo piu il colore va schiarendosi.

    Ho provato a modificare da solo il codice tenendo fisso uno dei 3 parametri in questa riga di codice e mi pare abbia trovato un buon compromesso.

    ActiveChart.SeriesCollection(x).Format.Fill.ForeColor.RGB = RGB(60 * x, 40 * x, 20 * x)

    Vi ringrazio davvero tanto, un ultima cosa, dove trovo una guida per sviluppare del codice come quello che mi avete passato?
    Grazie mille!





    Invia MPPM 

  14. #13
    L'avatar di Textomb
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    47
    Messaggi
    178
    Versione Office
    Excel 2016
    Likes ricevuti
    93
    Likes dati
    12
    grazie Iridia88 del tuo riscontro positivo.
    Se la tua domanda è stata risolta segna questa discussione come [RISOLTO]
    Vai nella barra dei menu, situata all’inizio di questa discussione, troverai il menu“Strumenti Discussione” quindi scegliere “Segna questo Thread come risolto”

    Per una guida sullo sviluppo di codice VBA ve ne sono tante. Più o meno buone. Ma alla fine è soggettivo. L'unico ingrediente necessario è un pizzico di passione. Il resto poi arriva...
    Invia MPPM 

Discussioni Simili

  1. Personalizzazione Etichette Colonne nelle Pivot
    Di Duchess@71 nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 27/01/17, 12:16
  2. Personalizzazione della Ribbon - Forum tools
    Di ggratis nel forum Domande su Excel VBA e MACRO
    Risposte: 0
    Ultimo Messaggio: 28/05/16, 19:09
  3. Personalizzazione AVANZATA di grafico
    Di aldomattana nel forum Domande su Excel in generale
    Risposte: 10
    Ultimo Messaggio: 05/10/15, 21:18
  4. Grafici
    Di Laura Belli nel forum Domande su Excel in generale
    Risposte: 1
    Ultimo Messaggio: 12/07/15, 12:48
  5. Quiz #6 Personalizzazione del formato del numero
    Di Gerardo Zuccalà nel forum Domande su Excel in generale
    Risposte: 6
    Ultimo Messaggio: 22/06/15, 14:17

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •