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 10: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
    851
    Versione Office
    2010 64 bit
    Likes ricevuti
    113
    Likes dati
    61
    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Ó
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1125
    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!
    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 10:08
    Invia MPPM 

  6. #6
    L'avatar di Gerardo ZuccalÓ
    Clicca e Apri
    Data Registrazione
    May 2015
    LocalitÓ
    Milano, Italy
    EtÓ
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1125
    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..
    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Ó
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1125
    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
    Invia MPPM 

  9. #9
    L'avatar di Textomb
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Catania
    EtÓ
    47
    Messaggi
    171
    Versione Office
    Excel 2016
    Likes ricevuti
    93
    Likes dati
    11
    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Ó
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1125
    @ 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
    Invia MPPM 

  12. #11
    L'avatar di Alessandro
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Roma
    EtÓ
    45
    Messaggi
    851
    Versione Office
    2010 64 bit
    Likes ricevuti
    113
    Likes dati
    61
    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
    171
    Versione Office
    Excel 2016
    Likes ricevuti
    93
    Likes dati
    11
    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, 13:16
  2. Personalizzazione della Ribbon - Forum tools
    Di ggratis nel forum Domande su Excel VBA e MACRO
    Risposte: 0
    Ultimo Messaggio: 28/05/16, 20:09
  3. Personalizzazione AVANZATA di grafico
    Di aldomattana nel forum Domande su Excel in generale
    Risposte: 10
    Ultimo Messaggio: 05/10/15, 22:18
  4. Grafici
    Di Laura Belli nel forum Domande su Excel in generale
    Risposte: 1
    Ultimo Messaggio: 12/07/15, 13: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, 15: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
  •