Corrispondenza colore tra fondo cella e elemento grafico

Question

Buongiorno a tutti!

Immaginiamo che la cella B1 del mio foglio abbia un colore di sfondo (diverso da "nessun colore") e che sullo stesso foglio ci sia un grafico a bolle nel quale vorrei impostare il colore per una sola bolla (la prima della serie) tale che sia uguale al colore di fondo della cella B1.

Ho trovato questo codice che sembra rispondere al mio bisogno:

     ActiveChart.SeriesCollection(1).Point(1).Interior.ColorIndex = Sheets("mySheet").Range("b1").Interior.ColorIndex

Tuttavia nei fatti il colore che viene applicato è uno "simile" e non esattamente uguale a quello di fondo della cella.

Credo che ciò sia dovuto alla tavolozza colori che per le celle è un po' diversa da quella dei grafici...

Come faccio ad ottenere "esattamente" lo stesso colore?

Grazie in anticipo

Sergiovery

Answer 1

Ciao Mauro,

prendendo spunto dal tuo suggerimento (peraltro credo che sia un effetto collegato) ho modificato il mio codice in questo modo

    ActiveChart.SeriesCollection(1).Point(1).Interior.Color = Sheets("mySheet").Range("b1").Interior.Color

La differenza sta nel Color anzichè ColorIndex. Ora i colori sembra (controllerò ancora più attentamente) più simili.

Come sempre sei un valido aiuto.

Grazie per il riscontro e l'aiuto

Sergiovery

Answer 2

Buongiorno a tutti!

Immaginiamo che la cella B1 del mio foglio abbia un colore di sfondo (diverso da "nessun colore") e che sullo stesso foglio ci sia un grafico a bolle nel quale vorrei impostare il colore per una sola bolla (la prima della serie) tale che sia uguale al colore di fondo della cella B1.

<cut>

Sergiovery

Hai provato ad utilizzare Color e RGB?

Foglio1.Range("A1").Interior.Color = RGB(123, 1243, 123)

Answer 3

 

Grazie per il riscontro e l'aiuto

Sergiovery

Bene! Grazie a te per il riscontro.

Ciao e alla prossima.