Code for Darken RGB

[Dossfm0q]

Greetings
Below Code for Lighten RGB How get Darken RGB?

[B]Sub lightenRGB()[/B]


    Dim I As Integer, Rng As Range
    Dim R As Byte, G As Byte, B As Byte
    Set Rng = Selection
    With Rng.Cells(1).Interior
    R = .Color Mod 256
    G = .Color \ 256 Mod 256
    B = .Color \ (CLng(256) * 256)
        End With
    For I = 2 To Rng.Cells.Count
        With Rng.Cells(I).Interior
        .Color = RGB(R + (255 - R) * (I - 1) / (Rng.Cells.Count - 1), G + (255 - G) * (I - 1) / (Rng.Cells.Count - 1), B + (255 - B) * (I - 1) / (Rng.Cells.Count - 1))
            End With
        Next I
        
    End Sub

THX

 

[Macropod]

But RGBtoCMYK(R, G, B) gives msgbox Function not Defined

Did you copy the RGBtoCMYK ans CMYKtoRGB functions as well? They're included at the bottom of the code in post 3.

 

[Dossfm0q]

Did you copy the RGBtoCMYK ans CMYKtoRGB functions as well? They're included at the bottom of the code in post 3.

Sorry! It is My mistake I did't scroll down Now Every Thing Ok


Thank Sir