[Risolto] Codice colori

[Raoul Duke]

Salve,

usando

Codice: Seleziona tutto

oCell.CellBackColor = x

ho scoperto per x=128000 mi da il verde...

ma esiste un posto dove leggere a che num corrispondono i colori? perché sennò ogni volta per trovarne uno ci metto sei anni.
grazie

[patel]

il metodo più semplice è colorare delle celle e fare una macro che scrive il numero del colore nella cella accanto

[Raoul Duke]

oook.. mo cerco come si fa a leggere il colore di una cella...

[Raoul Duke]

ok ho scritto questa e mi funziona. grazie

Codice: Seleziona tutto

sub color

doc = thiscomponent
Foglio = Doc.sheets.getByName("Foglio1")

C1=Foglio.getcellbyposition(0,0)
C2=Foglio.getcellbyposition(1,0)

Colore = C1.CellBackColor
C2.value=Colore

end sub

[lucky63]

ma esiste un posto dove leggere a che num corrispondono i colori?

Volendo puoi indicare il colore anche come formato RGB.
In rete trovi diverse tabelle. Vedi ad esempio: https://it.wikipedia.org/wiki/Lista_dei_colori

Colore amaranto corrisponde a rgb(229,43,80).
Quindi per ottenerlo dovresti inserire:

Codice: Seleziona tutto

oCell.CellBackColor = rgb(229,43,80)

Similmente per altri colori ...

[patel]

oook.. mo cerco come si fa a leggere il colore di una cella...

questo non lo dovevi dire ....

[Raoul Duke]

eheheh patel, ma io sono un perfetto rookie XD