find farvekode

Kan du måle farven i UserForm med en colorpicker, der leverer resultatet i bl.a. RGB. (Der er mange på nettet.)

Nej den funktion er ikke der ikke desværre.

Så vidt jeg kan se, er der metoder til at anvende RGB i BackColor for userform og alle farver på skærmen kan vel måles.

Men muligvis har jeg misforstået dig, så prøv at beskrive problemet lidt nærmere med den kode, som volder problemer.

http://colorselector.sourceforge.net/

Hvis man laver en UserForm i Excel og vælger &H00ECC8AC& i BackColor så får du en farve som jeg har valgt.
Jeg har brug for at finde Farve koden i RGB eller noget andet så når jeg vil indsætte noget som f.eks. er lavet i Paint kan jeg lave den samme baggrund som i UserFormen.

Håber det er til at forstå.

OK. Med et værktøj, som jeg linker til i #4, får jeg for denne (lyseblå?) farve:

ACC8EC (HTML)
172,200,236 (RGB)

Prøv selv. Du får brug for sådan en lille dims, når du arbejder med farver :-)

Farven hedder i RGB : 172 , 200 , 236

mvh martens

Tak Falster
Og Martens hvordan fandt du det?
Mere hvis man ikke kan installere det lille program (arbejdes computer)

Function getRGB2(Hexcolor) As String
    Dim C As Long
    Dim R As Long
    Dim G As Long
    Dim B As Long

    C = CLng(Mid(Hexcolor, 1, Len(Hexcolor) - 1))
    R = C Mod 256
    G = C \ 256 Mod 256
    B = C \ 65536 Mod 256
    getRGB2 = "R=" & R & ", G=" & G & ", B=" & B
End Function

Sub TestColor()
    Dim s
    s = getRGB2("&H00ECC8AC&")
    Debug.Print s
End Sub

Hvis du vil læse det direkte fra formen:

Function getRGB3(color) As String
    Dim C As Long
    Dim R As Long
    Dim G As Long
    Dim B As Long

    C = color
    R = C Mod 256
    G = C \ 256 Mod 256
    B = C \ 65536 Mod 256
    getRGB3 = "RGB(" & R & "," & G & "," & B & ")"
End Function

Sub TestColor()
    Dim s
    s = getRGB3(UserForm1.BackColor)
    Debug.Print s
End Sub

Fin kode ovenfor :-)

Blot for at sige, at Color Selector ikke behøver installation. Det afvikles fra hvilken mappe som helst.

Skal lige regne koden ud, er det en nu userform man laver med den kode i?