Contribution by User: Advanced VersionDescription| How it works| Advanced version
I am grateful to Bert van Zandbergen from Beekbergen, The Netherlands for modifying the original version and modifying it to make it work with the newer versions of Excel. (2007 and later). He has kindly agreed to allow me to post his brilliant work on the site for the benefit of other users.
Download.xlsm file (1.8 MB) or .zip file (780 KB)
Macros must be enabled for this app to work.
DetailsExcel 2003 calculates in 8-bit and the introduction of Excel 2007 the calculations are based on 32-bit (total different). Microsoft has not made an application, which updates the VBA code automatically. Hence the functions coded in VBA for Excel 2003 for extracting the colour values will not work in later versions. A word document detailing the changes to the code has also been provided by Bert, it can be downloaded here.
In addition to the image processing algorithm, Bert has included a clever MouseHover feature in his app. After creating an image with one of the buttons, move the mouse in the display area. A color change in the cell with the text. ". . Processing. . . . " will be seen.
The color is supplemented with the corresponding RGB and Hexadecimal values.
Bert mentions that In Excel2007 and later, you can use a UDF in a Hyperlink formula - a technique is not documented by Microsoft. This technique fires a recall of the content (value and/or color) of the mouse address to a ‘defined named’ cell.
Furthermore, Bert has also contributed this file (.xlsm file, 105 KB) containing small VBA code that displays over 16½ million colors in one cell. It shows how easy it is to create cell changes with mouse movement. The colors also can be displayed in a Shape.
Example, to show the colors on the sheet with name "Oval 1", use this code:
ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = _
RGB(Cells(11, 49).Value, Cells(11, 115).Value, Cells(11, 181).Value)