Status: Solved
Priority: Medium
Security: Public
Views: 613
Last Modified: 2013-06-20

VB.net Excel Add-In RGB Color

Hi

I have used the following code to color cells in my VSTO Excel Add-in
Globals.ThisAddIn.Application.Selection.Interior.color = RGB(200, 160, 35)

I am now using a Color Dialog control on a form and the value of the selected color
is given in the following format "Color [A=255, R=128, G=64, B=0]"
How do I color a cell using this format?

Murray Brown

Asked: 2013-06-19

Advertise Here

2 Solutions

LVL 81

byundtCommented: 2013-06-19

You might try parsing the string like this:

Sub ColorPicker()
Dim strColor As String
Dim iRed As Integer, iGreen As Integer, iBlue As Integer
strColor = "Color [A=255, R=128, G=64, B=0]"
iRed = Val(Mid(strColor, InStr(1, strColor, "R=") + 2))
iGreen = Val(Mid(strColor, InStr(1, strColor, "G=") + 2))
iBlue = Val(Mid(strColor, InStr(1, strColor, "B=") + 2))
Globals.ThisAddIn.Application.Selection.Interior.Color = RGB(iRed, iGreen, iBlue)
End Sub

Open in new window

Brad

LVL 85

Rory ArchibaldCommented: 2013-06-20

The ColorDialog returns a Color object which has R G and B properties so you should be able to use (assuming C is your returned Color object)

Globals.ThisAddIn.Application.Selection.Interior.Color = RGB(C.R, C.G, C.B)

Open in new window

Murray BrownMicrosoft Cloud Azure/Excel Solution DeveloperAuthor Commented: 2013-06-20

Thanks for the help

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

VB.net Excel Add-In RGB Color

Join & Write a Comment Already a member? Login.

Featured Post