RGB Color Function


Use this function to create a RGB color object for use with symbols.

How to use:
  1. Call this function in VBA passing in red, green and blue values. The function returns an IRgbColor reference on a RgbColor object.
Private Function GetRGBColor(pRed As Long, pGreen As Long, _
                             pBlue As Long) As IRgbColor
  Dim pRGB As IRgbColor
  Set pRGB = New RgbColor
  With pRGB
    .Red = pRed
    .Green = pGreen
    .Blue = pBlue
    .UseWindowsDithering = True
  End With
  Set GetRGBColor = pRGB
End Function