Remove User Form Borders

[maacmaac]

I am using a user form to display a splash screen. In the user form, I have a picture that is being displayed as splash screen for 5 seconds and then it disappears.

I only want to display the picture in the splash screen.

I want to to remove the following three items from the user form:
1 - remove all borders
2 - remove the menu/caption bar
3 - remove the "x" button that allows user to close form.

Is there a way to do this? Thanks.

[Leith Ross]

Hello maacmaac,

Yes, you can. It requires using API code. If you wait a few minutes, I'll put the code together for you.

[Leith Ross]

Hello maacmaac,

Here is th macro code. Place this in a standard VBA module. You need to call this macro from the UserForm_Activate event module. You should add a fail safe way to close the UserForm, if you code fails to close it. I have an example at the bottom.

'Written: August 01, 2009
'Author:  Leith Ross
'Summary: Removes the Titlebar and thick border around a UserForm.

'Returns the Window Handle of the Window that is accepting User input.
 Public Declare Function GetForegroundWindow Lib "user32.dll" () As Long

 Private Declare Function GetWindowLong _
   Lib "user32.dll" _
     Alias "GetWindowLongA" _
       (ByVal hWnd As Long, ByVal nIndex As Long) As Long
               
 Private Declare Function SetWindowLong _
  Lib "user32.dll" _
    Alias "SetWindowLongA" _
      (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Sub RemoveFrame()

  Dim Bitmask As Long
  Dim hWnd As Long
  Dim WindowStyle As Long
  
  Const GWL_STYLE As Long = (-16)
  Const WS_DLGFRAME As Long = &H400000
  
    hWnd = GetForegroundWindow
    WindowStyle = GetWindowLong(hWnd, GWL_STYLE)

    Bitmask = WindowStyle And (Not WS_DLGFRAME)

    Call SetWindowLong(hWnd, GWL_STYLE, Bitmask)

End Sub

UserForm Code

Private Sub UserForm_Activate()
  RemoveFrame
End Sub

Fail Safe to Close UserForm

Private Sub UserForm_Click()
  Unload Me
End Sub

[swagatam2014]

Hi,

Your code works gr8. the only issue I have is that the splashscreen doesn't go. I am unable to understand, where to to put the fail safe code. It doesn't work when placed in worksheet, nor works after placing in module, neither in userform. Pls help. Thanks.

Hello maacmaac,

Here is th macro code. Place this in a standard VBA module. You need to call this macro from the UserForm_Activate event module. You should add a fail safe way to close the UserForm, if you code fails to close it. I have an example at the bottom.

'Written: August 01, 2009
'Author:  Leith Ross
'Summary: Removes the Titlebar and thick border around a UserForm.

'Returns the Window Handle of the Window that is accepting User input.
 Public Declare Function GetForegroundWindow Lib "user32.dll" () As Long

 Private Declare Function GetWindowLong _
   Lib "user32.dll" _
     Alias "GetWindowLongA" _
       (ByVal hWnd As Long, ByVal nIndex As Long) As Long
               
 Private Declare Function SetWindowLong _
  Lib "user32.dll" _
    Alias "SetWindowLongA" _
      (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Sub RemoveFrame()

  Dim Bitmask As Long
  Dim hWnd As Long
  Dim WindowStyle As Long
  
  Const GWL_STYLE As Long = (-16)
  Const WS_DLGFRAME As Long = &H400000
  
    hWnd = GetForegroundWindow
    WindowStyle = GetWindowLong(hWnd, GWL_STYLE)

    Bitmask = WindowStyle And (Not WS_DLGFRAME)

    Call SetWindowLong(hWnd, GWL_STYLE, Bitmask)

End Sub

UserForm Code

Private Sub UserForm_Activate()
  RemoveFrame
End Sub

Fail Safe to Close UserForm

Private Sub UserForm_Click()
  Unload Me
End Sub

[Elfend]

why the "expected variable or procedure, not module" message has to pop up?
is that cause I using office'13?

[maacmaac]

Exactly what I was looking for. Thanks.

[Sahonero]

Hello,

I am trying to accomplish the same task that was originally posted and I used the code provided here and did just what I wanted except that at the bottom of the user form there is a white line appeared which I am not sure if its an actual border of the user form or something else. Should the code be adjusted somehow to remove the white line on the bottom?

Thank you.User form.jpg

[JosephP]

Welcome to the Forum, unfortunately:

Your post does not comply with Rule 2 of our Forum RULES. Don't post a question in the thread of another member -- start your own thread. If you feel it's particularly relevant, provide a link to the other thread. It makes sense to have a new thread for your question because a thread with numerous replies can be off putting & difficult to pick out relevant replies.

[aquali1968]

cool

You are just amaising!

All the roads (atleast mine) will end here and i can fimd what im looking for. god bless you

[briton]

Thanks for this answer. It's very elegant!

Another method of ensuring that you have a means of closing the User Form is what I needed as I want the form to remain visible most of the time and it applies to many of the sheets in the Workbook so it acts like the toolbars in the old versions of Excel.

My call to open the User Form is by way of a macro in the Workbook module which can then be called from any macro, hotkey, button or from the Quick Access toolbar. Calling that macro either shows the user form unless it's already showing in which case it hides it.

Macro Called to open/close the User Form

Sub ufMyUserForm_ShowHide()
  With ufMyUserForm
    If .Visible Then
      .Hide
    Else
      .Show
    End If
  End With
End Sub

This means that whatever is clicked or called to show the user form will also hide it.

If any of your controls need the user form to be closed, insert the following code into the Click code.

UserForm Click Code

Private Sub MyControl_Click()
  Me.Hide
'  ...your other code follows...
End Sub

Obvious I know, but it completed my solution (with the addition of the white space problem which is on Sahonero's thread at http://www.excelforum.com/excel-prog...ml#post3874313)

[rdrmdr]

2009 code - that
2016 code - this (in the form's code):

Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Sub UserForm_Activate()
Me.Height = 0
Call SetWindowLong(GetForegroundWindow, -16, GetWindowLong(GetForegroundWindow, (-16)) And (Not &H400000))
Me.Height = 180
End Sub

[Elfend]

I use the first answer, and
"expected variable or procedure, not module" message was popped up..
why is that?

[protonLeah]

Elfend,
Unfortunately your post does not comply with Rule 2 of our Forum RULES. Do not post a question in the thread of another member -- start your own thread.

If you feel an existing thread is particularly relevant to your need, provide a link to the other thread in your new thread.

Old threads are often only monitored by the original participants. New threads not only open you up to all possible participants again, they typically get faster response, too.