Form Design

[RhinoNeil]

I have created a form to enter data into my Excel 2003 worksheet, no problem.

But the caption header is showing as a default blue at the moment and I want to change it to my Company's colour scheme (i.e. yellow). Changing "bordercolor" does not change it.

I cannot find anyway of changing the colour of the Cpation header, except by changing the Windows Themes.

Can anybody tell me either how change the colour or remveo it entirely from my form?

Thanks

 

[RoryA]

To remove it:

Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" ( _
      ByVal lpClassName As String, _
      ByVal lpWindowName As String _
   ) As Long
   
Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" ( _
      ByVal hwnd As Long, _
      ByVal nIndex As Long _
   ) As Long
   
Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" ( _
      ByVal hwnd As Long, _
      ByVal nIndex As Long, _
      ByVal dwNewLong As Long _
   ) As Long

Private Const GWL_STYLE As Long = (-16)
Private Const WS_CAPTION As Long = &HC00000

Public Sub RemoveWindowFrame(TargetForm As Object)

' Remove the form's title bar
   Dim hwnd As Long
   'Dim Style As Long
  If Val(Application.Version) < 9 Then
     ' Excel 97 or earlier
     hwnd = FindWindow("ThunderXFrame", TargetForm.Caption)
  Else
     ' Excel 2000 or later
     hwnd = FindWindow("ThunderDFrame", TargetForm.Caption)
  End If
  
  SetWindowLong hwnd, GWL_STYLE, GetWindowLong(hwnd, GWL_STYLE) And Not WS_CAPTION
  
End Sub

Private Sub UserForm_Activate()
   RemoveWindowFrame Me
End Sub

just make sure you have a button to close the form.

 

[RhinoNeil]

Thanks, I'll give it a go!!

 

[RhinoNeil]

I have "copy and pasted" the code into a module in my workbook. Then I added a show command to the subroutine "Private Sub UserForm_Activate()" in front of the line "RemoveWindowFrame Me".

When I run the subroutine, the form appears but still has the border.

What am I doing wrong?

 

[RoryA]

That code needs to be in the userform's code module. Then all you do is show it.

 

[RhinoNeil]

Got it and it works now!! Thanks