VBA COLORI ESADECIMALI

[nicola_na78]

Buongiorno a tutti, ho due quesiti da porvi:
1) nella colonna b di un foglio excel o inseriti i codici colori esadecimali di alcuni articoli. Es.

B2 #943B4F
B3 #AF595B
B4 #C36B79
B5 #CD003F
B6 #DF1223

è possibile colorare le celle della colonna C con il colore esadecimale presente in B?

B2 #943B4F c2 colore
B3 #AF595B c3 colore
B4 #C36B79 ecc.....
B5 #CD003F
B6 #DF1223


2) in una cartella "colori" ho delle immagini, è possibile sapere in un foglio excel per ogni immagine presente nella cartella il suo codice esadecinale??

Grazie a tutti, buon week-end

win 7
Office 2007

[FRIEDRICH]

Ciao Nicola,
per quanto riguarda la prima domanda usa il codice seguente:

Codice: Seleziona tutto

Sub ColoraCelle()
     
    Dim i As Integer
    Dim UltimaRiga As Integer
   
    UltimaRiga = Range("B" & Rows.Count).End(xlUp).Row
    For i = 2 To UltimaRiga
        Cells(i, "C").Interior.Color = HEXCOL2RGB(Cells(i, "B"))
    Next
End Sub
   
Function HEXCOL2RGB(ByVal HexColor As String) As Long
'converte HEX in RGB
    Dim Red As String, Green As String, Blue As String
     
    HexColor = Replace(HexColor, "#", "")
    Red = Val("&H" & Mid(HexColor, 1, 2))
    Green = Val("&H" & Mid(HexColor, 3, 2))
    Blue = Val("&H" & Mid(HexColor, 5, 2))
     
    HEXCOL2RGB = RGB(Red, Green, Blue)
   
End Function

Per il secondo problema il consiglio è di usare uno strumento specifico senza passare da Excel, ad esempio PicPick, disponibile anche in versione portable, gratuito per uso non commerciale, vedi al seguente link: https://portableapps.com/apps/graphics_pictures/picpick-portable

[nicola_na78]

Ciao FRIEDRICH,
grazie per aver risposto, e grazie anche per l'aiuto, la macro è perfetta. Picpick devo capire come funziona :-)

Grazie ancora, alla prossima

Nicola