Greetings all,

Is there a way of changing the color of the title bar on a user form? I
can't see any such attribute change under Properties.

Thanks,

Jeff
Tucson, Arizona

Hello Jeff,
If you have to ask how then you don't want to do it. <g
You can't do it using VBA. It is a Windows setting.
I believe there is some Windows API code out there that
will do it, but my advice is forget it.
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware



"Jeff Wright"

wrote in message
Greetings all,
Is there a way of changing the color of the title bar on a user form? I
can't see any such attribute change under Properties.
Thanks,
Jeff
Tucson, Arizona

Even in Windows, you cannot change the color of just one titile bar, you
change the color of all title bars of all windows and user forms. You can
preview the effects in Control PanelAppearance and
ThemesDisplayAppearanceAdvanced.

"Jim Cone" wrote:

Hello Jeff,
If you have to ask how then you don't want to do it. <g
You can't do it using VBA. It is a Windows setting.
I believe there is some Windows API code out there that
will do it, but my advice is forget it.
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware



"Jeff Wright"

wrote in message
Greetings all,
Is there a way of changing the color of the title bar on a user form? I
can't see any such attribute change under Properties.
Thanks,
Jeff
Tucson, Arizona

Ok, I found some code here...
http://www.allapi.net/tips/tips2.shtml
It can change the color of the active window title bar.
You must change the color back when unloading the form.
If you just hide the form, then Excel title bar will be active
and it will reflect the new color. It worked for me.
--
Jim Cone
San Francisco, USA
http://www.officeletter.com/blink/specialsort.html

'Proceed at your own risk!

This code goes at the top of a standard module...
Declare Function SetSysColors Lib "user32" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long

This code goes in the userform module...
Private Const COLOR_SCROLLBAR = 0 'The Scrollbar colour
Private Const COLOR_BACKGROUND = 1 'Colour of the background with no wallpaper
Private Const COLOR_ACTIVECAPTION = 2 'Caption of Active Window
Private Const COLOR_INACTIVECAPTION = 3 'Caption of Inactive window
Private Const COLOR_MENU = 4 'Menu
Private Const COLOR_WINDOW = 5 'Windows background
Private Const COLOR_WINDOWFRAME = 6 'Window frame
Private Const COLOR_MENUTEXT = 7 'Window Text
Private Const COLOR_WINDOWTEXT = 8 '3D dark shadow (Win95)
Private Const COLOR_CAPTIONTEXT = 9 'Text in window caption
Private Const COLOR_ACTIVEBORDER = 10 'Border of active window
Private Const COLOR_INACTIVEBORDER = 11 'Border of inactive window
Private Const COLOR_APPWORKSPACE = 12 'Background of MDI desktop
Private Const COLOR_HIGHLIGHT = 13 'Selected item background
Private Const COLOR_HIGHLIGHTTEXT = 14 'Selected menu item
Private Const COLOR_BTNFACE = 15 'Button
Private Const COLOR_BTNSHADOW = 16 '3D shading of button
Private Const COLOR_GRAYTEXT = 17 'Grey text, of zero if dithering is used.
Private Const COLOR_BTNTEXT = 18 'Button text
Private Const COLOR_INACTIVECAPTIONTEXT = 19 'Text of inactive window
Private Const COLOR_BTNHIGHLIGHT = 20 '3D highlight of button

'Red
Private Sub UserForm_Activate()
Dim t As Long
t = SetSysColors(1, COLOR_ACTIVECAPTION, RGB(255, 0, 0))
End Sub

'Dark Blue
Private Sub UserForm_Terminate()
Dim t As Long
t = SetSysColors(1, COLOR_ACTIVECAPTION, RGB(51, 51, 153))
End Sub

Thanks, Jim. I guess I'll just forget it. I just thought there might be some
easy way to do it, which I couldn't find. I was just trying to spice up the
final version of my company spreadsheet.

Jeff


"Jim Cone" wrote in message
...
Ok, I found some code here...
http://www.allapi.net/tips/tips2.shtml
It can change the color of the active window title bar.
You must change the color back when unloading the form.
If you just hide the form, then Excel title bar will be active
and it will reflect the new color. It worked for me.
--
Jim Cone
San Francisco, USA
http://www.officeletter.com/blink/specialsort.html

'Proceed at your own risk!

This code goes at the top of a standard module...
Declare Function SetSysColors Lib "user32" (ByVal nChanges As Long,
lpSysColor As Long, lpColorValues As Long) As Long

This code goes in the userform module...
Private Const COLOR_SCROLLBAR = 0 'The Scrollbar colour
Private Const COLOR_BACKGROUND = 1 'Colour of the background with no
wallpaper
Private Const COLOR_ACTIVECAPTION = 2 'Caption of Active Window
Private Const COLOR_INACTIVECAPTION = 3 'Caption of Inactive window
Private Const COLOR_MENU = 4 'Menu
Private Const COLOR_WINDOW = 5 'Windows background
Private Const COLOR_WINDOWFRAME = 6 'Window frame
Private Const COLOR_MENUTEXT = 7 'Window Text
Private Const COLOR_WINDOWTEXT = 8 '3D dark shadow (Win95)
Private Const COLOR_CAPTIONTEXT = 9 'Text in window caption
Private Const COLOR_ACTIVEBORDER = 10 'Border of active window
Private Const COLOR_INACTIVEBORDER = 11 'Border of inactive window
Private Const COLOR_APPWORKSPACE = 12 'Background of MDI desktop
Private Const COLOR_HIGHLIGHT = 13 'Selected item background
Private Const COLOR_HIGHLIGHTTEXT = 14 'Selected menu item
Private Const COLOR_BTNFACE = 15 'Button
Private Const COLOR_BTNSHADOW = 16 '3D shading of button
Private Const COLOR_GRAYTEXT = 17 'Grey text, of zero if dithering is used.
Private Const COLOR_BTNTEXT = 18 'Button text
Private Const COLOR_INACTIVECAPTIONTEXT = 19 'Text of inactive window
Private Const COLOR_BTNHIGHLIGHT = 20 '3D highlight of button

'Red
Private Sub UserForm_Activate()
Dim t As Long
t = SetSysColors(1, COLOR_ACTIVECAPTION, RGB(255, 0, 0))
End Sub

'Dark Blue
Private Sub UserForm_Terminate()
Dim t As Long
t = SetSysColors(1, COLOR_ACTIVECAPTION, RGB(51, 51, 153))
End Sub