Excel color of Text Box same as cell

Hi

I have Excel cells with the background
Red 0
Green 21
Blue 62
and I want an ActiveX text box over to it to have the same background
color. The backcolor is &H00400000& but is still slightly different.
How do I change this to have the same color background as the cells?
Murray BrownMicrosoft Cloud Azure/Excel Solution DeveloperAsked:
Who is Participating?
 
rspahitzConnect With a Mentor Commented:
Sorry...that's &H003E1500&

Just run your number through the Windows calculator then convert to Hex (in Programmer mode)
0
 
Rory ArchibaldCommented:
Assign the cell's Interior.Color property to the textbox's BackColor property.
0
 
Murray BrownMicrosoft Cloud Azure/Excel Solution DeveloperAuthor Commented:
Hi. Where do you find the cell's Interior.Color propert
0
Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

 
Rory ArchibaldCommented:
Range("A1").Interior.Color
for example.
0
 
Murray BrownMicrosoft Cloud Azure/Excel Solution DeveloperAuthor Commented:
using a msgbox I found that the interior color of the cell is 4068608
but how do apply this to the text box backcolor notation of &H00400000&
0
 
rspahitzCommented:
Also, &H00400000& is the same as Blue=64, Green=0 and Red=0
So you want to change that to &H003EF500&
0
 
patrickabCommented:
Murbro,

In a Forms TextBox you are limited to the built in colours shown in the BackColor Properties options. See attached file.

Patrick
textbox-colour-01.xls
0
 
Rory ArchibaldCommented:
You don't have to convert:

Sheets("Sheet1").textbox1.backcolor = Range("A1").interior.color

Open in new window


for example.
0
 
patrickabCommented:
Nice one - works well.
0
 
Murray BrownMicrosoft Cloud Azure/Excel Solution DeveloperAuthor Commented:
Spot on - didn't realise that was Hexidecimal.
Thanks.
Thanks to everyone else but this answer suited best,
0
 
rspahitzCommented:
Glad to help.  the other solutions would have worked if you wanted to use VBA, but it appeared you just needed the number.  Now you'll know that any time you see the &H prefix (and & suffix) it's telling you that it's talking hexadecimal :)

One other side note: the number consists of 4 parts, 2-digits each.  The right 2 are the red component, next 2 from the right are green next 2 are blue.  The leftmost 2 in some contexts (outside of Excel) are the transparency but here it refers to a code for how to interpret the rest of the number.  00 means use RGB; anything else is an index into the Windows color scheme and each number refers to something like ButtonText color, or HighlightedText color, etc.
0
 
patrickabCommented:
murbro,

Strange choice of an 'Accepted' answer when:

Sheets("Sheet1").textbox1.backcolor = Range("A1").interior.color

from rorya (comment ID:34917731) works perfectly without any need to convert numbers to hexadecimal.

Patrick
0
 
rspahitzCommented:
Patrick, my interpretation was that author was only looking at the property window and not doing any VB coding.  In that context, fixing a property without doing any coding was a good choice.  But as I mentioned, the VB choices were also good ways to handle it.
0
 
Murray BrownMicrosoft Cloud Azure/Excel Solution DeveloperAuthor Commented:
Hi Patrick. I always appreciate your and Rory's help but in this instance I was manually changing properties and the answer was exactly what I needed
0
 
patrickabCommented:
murbro,

Thanks for the response. Given a choice between automation and doing something manually I tend to go for automation - provided it's not too complicated. In this instance rorya's answer seemed so much more elegant than messing around with hexadecimal numbers. But each to their own.

Patrick
0
Question has a verified solution.

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

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.