Options¦Color

Home Search Site Map

Up
Options¦Calculation
Options¦Chart
Options¦Color
Options¦Custom Lists
Options¦Edit
Options¦Error Checking
Options¦General
Options¦International
Options¦Save
Options¦Security
Options¦Spelling
Options¦Transitions
Options¦View

New! Excel User Group Now Open @ www.excelusergroup.org,

UK EXCEL USER CONFERENCE - LONDON, UK. APRIL 1st/2nd 2009 - TOTALLY FREE - DETAILS CAN BE CHECKED OUT HERE! Check It Out!


Menu command Type
Color Tabab

Allows you to set the 56 colours available to the workbooks. There are 40 standard colours and 16 for charts (8 for fills, 8 for lines). The 'chart' colours can also be used for anything which can have a colour 'fill, line, etc.

You are also able in charts to use any of the 56 colours, it is set here for the first 8 that excel will use 'automatically'.

Clicking on the 'Modify...' button, will show the dialog below, which has to tabs with 'coarse' colour selection (1), or fine tuned colour selection, (2). Selecting any square on the first dialog, (above) and then selecting a colour on either of these two tabs, will replace the colour selected in the palette.

1. (Standard Tab)

2.(Custom Tab)

This second tab has the ability to set the RGB (Red, Green, Blue) and HSL (Hue, Saturation, Luminescence), to arrive at very precise colours.

Setting 56 colours this way each time can be laborious, so if you set a workbook once with certain colours. (This may be a template with 'in-house' colours for example), you can open this each time and then, in another workbook, import the colour palette, by using the 'copy colors from' drop-down on the main tab. (As below).

VBA Sub ImportColours()
Dim wbColor As Workbook
Set wbColor = Workbooks.Open("C:\HouseColours.xls")
ActiveWorkbook.Colors = wbColor.Colors
wbColor.Close SaveChanges:=False
End Sub

Sub ListColourNumbers()
'Demo in a blank workbook
'Shows property numbers not actual colours
Dim vColours As Variant
Dim x As Byte
vColours = ActiveWorkbook.Colors
For x = 1 To 56
Range("A" & x).Value = ActiveWorkbook.Colors(x)
Next x
End Sub

Sub SetIndividualColour()
'Set first colour sort of greeny!
ActiveWorkbook.Colors(1) = RGB(92, 188, 66)
End Sub
 

Top

Copyright Nick Hodge 2008. All Rights Reserved.