Results 1 to 4 of 4
  1. #1
    2 Star Lounger
    Join Date
    Jul 2004
    Location
    Hampton, New Hampshire, USA
    Posts
    120
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Alter Default Color Palette (2002 SP3)

    Does anyone here in the Lounge know if it is possible to alter the Default Color Palette in Excel. I know how to alter it for the workbook and I saw Hans' instructions on how to import colors from another workbook (<post:=660,040>post 660,040</post:> ) but I would like to be able to alter it for all my users without all the individual hand-hauling. I know my crew, that would never work!

    Any help is, as always, greatly appreciated.
    <font face="Comic Sans MS">MickeyMouse</font face=comic>
    How best to describe the Lounge-
    "Coming together is a beginning, staying together is progress, working together is success"

  2. #2
    WS Lounge VIP sdckapr's Avatar
    Join Date
    Jul 2002
    Location
    Pittsburgh, Pennsylvania, USA
    Posts
    11,225
    Thanks
    14
    Thanked 342 Times in 335 Posts

    Re: Alter Default Color Palette (2002 SP3)

    You could create a default workbook with the color palette of your choice, save it as Book.xlt and copy it to everyone'd default path, so when they create a new workbook it will use the new palette.

    Steve

  3. #3
    2 Star Lounger
    Join Date
    Jul 2004
    Location
    Hampton, New Hampshire, USA
    Posts
    120
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Alter Default Color Palette (2002 SP3)

    Thanks Steve,

    I will try this out and let you know how I make out.
    <font face="Comic Sans MS">MickeyMouse</font face=comic>
    How best to describe the Lounge-
    "Coming together is a beginning, staying together is progress, working together is success"

  4. #4
    3 Star Lounger
    Join Date
    Aug 2002
    Location
    Denmark
    Posts
    347
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Alter Default Color Palette (2002 SP3)

    Hi,

    I think the solution must depend on how your users react, when and if you change their defaults. I know that if I changed peoples book.xlt here I who have an outcry...
    -so another approach could be to make a small add-in with various palettes (could be launched from 'startup' to always be there)

    Then you just have a small commandbar - 'Colors' with submenus... (Here I've got a 'reset to MS default' as well as 'Company corporate colors')


    Code could look something like:

    Public Sub ColorPalette_CorpDefaults()
    Dim iColors As Integer

    Application.ScreenUpdating = False

    ' Colorpalette has a maximum of 56 fixed colors (means a max of 56 colors per workbook)
    ' Colors 17-32 are chart fills and chart lines
    For iColors = 1 To 56
    With ActiveWorkbook
    Select Case iColors
    Case 1
    'BLACK
    .Colors(iColors) = RGB(0, 0, 0)
    Case 17, 25, 53
    'BRAND BLUE
    .Colors(iColors) = RGB(0, 42, 95)
    Case 22, 30, 52
    'BRAND GREEN
    .Colors(iColors) = RGB(152, 145, 103)
    Case 20, 28, 51
    'GREEN 2
    .Colors(iColors) = RGB(170, 185, 10)
    Case 23, 31, 49
    'RED
    .Colors(iColors) = RGB(255, 10, 10)
    Case 38
    'WHITE
    .Colors(iColors) = RGB(255, 255, 255)
    Case Else
    '(gives impression of disabled color - used for non-filled corp colors in the palette)
    'LIGHT GREY - SAME AS COMMANDBARS
    .Colors(iColors) = RGB(204, 204, 204)
    End Select
    End With
    Next iColors

    Application.ScreenUpdating = True

    End Sub


    Public Sub ColorPalette_MSdefaults()
    ActiveWorkbook.ResetColors
    End Sub

    Just as an alternative....
    Bests,
    RD


    PS: Wish there were a knob on the TV to turn up the intelligence. There's a knob called "brightness," but that doesn't work

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •