View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
joel joel is offline
external usenet poster
 
Posts: 9,101
Default How Write for RGB palette?

What I usually do is record a new macro and manually set the colors until I
get the values I like. Then paste the values from the recorded macro into my
code.

Record macro by using worksheet menu Tools - Macro - Record New Macro.

"Walter" wrote:

I have the following procedure for changing background colors of cells based
upon whatever percentage a user types in, however, the standard colors to
pick are too dark and I would like some lighter colors from the RGB palette.
Here is my code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim icolor As Integer

Multiple Select Case Statements.... followed by....

ElseIf Not (Intersect(Target, Me.Range("SPM12mo")) Is Nothing) Then
Select Case UCase(Target.Value) 'Converts entry in cell to Uppercase
Case Is = "RED": icolor = 3
Case Is = "YLO": icolor = 6
Case Is = "BRZ": icolor = 53
Case Is = "SVR": icolor = 16
Case Is = "GLD": icolor = 44
Case Else: icolor = xlNone
End Select
Target.Interior.ColorIndex = icolor

End If
End Sub

Is there a way to rewrite this to draw from the RGB palette so I can get the
shade of color that I want to use. Mainly I need to use it for readability.
Thank you.