Displaying animated GIF on another userform while macro runs

[Broker666]

Hi,

Basically I have a main userform called 'Main' that contains a number of command buttons to run specific macros. I also have another userform called 'Loading' that contains a WebBrowser Control that houses an animated GIF. What I want to achieve is click one of the command buttons on the main form, launch the additional form containing the animated gif and then close this form upon completion of the macro. I have opened both forms as non modal and the loading userform is displayed but there is a white screen where the animated gif should be. I am thinking that it will probably involve DoEvents or Repaint but I'm not quite sure where to include it in the code. Any help would be massively appreciated.


On click event of command button on main form

Private Sub CommandButton1_Click()

Loading.Show vbModeless

Application.Run "Macro1"

Unload Loading

End sub


Code contained within the Loading form:

Private Sub UserForm_Activate()

Call RemoveCaption(Me)
WebBrowser1.Navigate ("C:\Users\B666\Images\31.gif")

End Sub


Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Me.WebBrowser1.Document.body.Scroll = "no"
WebBrowser1.Document.body.Style.Border = "none"
WebBrowser1.Visible = True
Me.Repaint

End Sub


Code in workbook module to remove caption from 2nd userform

Sub RemoveCaption(objForm As Object)

Dim lStyle As Long
Dim hMenu As Long
Dim mhWndForm As Long

If Val(Application.Version) < 9 Then
mhWndForm = FindWindow("ThunderXFrame", objForm.Caption) 'XL97
Else
mhWndForm = FindWindow("ThunderDFrame", objForm.Caption) 'XL2000+
End If
lStyle = GetWindowLong(mhWndForm, -16)
lStyle = lStyle And Not &HC00000
SetWindowLong mhWndForm, -16, lStyle
DrawMenuBar mhWndForm

End Sub


Regards,

B666.

 

[bertie]

Here is how I got it to work. Both forms need to be loaded Modeless. And you will need a DoEvents to allow the forms and Macro1 to run at the same time.

For testing, Macro1 is in a module and will display a message box.

Load the first user form:

Private Sub Main()
   Load UserForm1
   UserForm1.Show vbModeless
End Sub

Command Button Code- UserForm1

Private Sub CommandButton1_Click()
   Load UserForm2
   UserForm2.Show vbModeless
   
   DoEvents
   Application.Run "Macro1"
   
   Unload UserForm2
End Sub

UserForm2 - WebBrowser Initialize Event

Private Sub UserForm_Initialize()
   Me.WebBrowser1.Navigate ("C:\temp\couple5.gif")
End Sub

 

[Broker666]

Works like a charm, thanks for your help Bertie. You have saved me alot (more) fruitless tinkering...

 

[Broker666]

I have a slight problem. I have a macro that runs on workbook open that set the application.visible property to false and loads the main form. However when I altered the code to load the main form as modeless rather than modal the workbook is visible behind the main userform. When I load the main form as modal then the workbook is hidden as expected. Any suggestions?

 

[bertie]

In all honesty this is not something I have ever tried to do before. My initial thoughts are the error handling techniques to restore the application before close. Also, if the code produces an error how do you edit it with the application hidden?

I did a Google search and found relevant information in the link below.
Pay attention to post #7
Post #5 contains the code you can experiment with.
Hide Excel & Only Show a UserForm