Excel

Animation on a Userform

Ease of Use

Intermediate

Version tested with

2002 

Submitted by:

Jacob Hilderbrand

Description:

The attached workbook contains a userform that demonstrates how to control animation images. It also shows how to have multiple animations running at the same time. 

Discussion:

I use this method for my programs to display simple animations on a userform. 

Code:

instructions for use

			

'Force variable declaration Option Explicit 'Variable for controlling if the animation should continue to run Dim Running As Boolean Private Sub CommandButton1_Click() 'Close Command Button 'Dismiss the userform Unload Me End Sub Private Sub UserForm_Activate() 'Set Running to true, while true the animations will continue to run Running = True 'Start the animation sub Call Animation End Sub Private Sub Animation() Dim x As Integer Dim y As Integer Dim MyTimer As Double DoEvents x = 1 y = 1 MyTimer = Timer Do On Error Resume Next SplashScreen.Image3.Picture = LoadPicture _ (ThisWorkbook.Path & "\Images\Animation\Flag\" & x & ".Gif") SplashScreen.Image4.Picture = LoadPicture _ (ThisWorkbook.Path & "\Images\Animation\Pulser\" & y & ".Gif") On Error GoTo 0 Do Loop While Timer - MyTimer < 0.07 If x = 8 Then x = 1 Else x = x + 1 End If If y = 11 Then y = 1 Else y = y + 1 End If MyTimer = Timer DoEvents Loop While Running End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'Set running to False to stop the animation Running = False End Sub

How to use:

  1. Copy the above code.
  2. Press Alt + F11, to open the Visual Basic Editor (VBE).
  3. Select workbook in the left-hand frame.
  4. Click Insert - Userform
  5. Click View - Toolbar
  6. Create two Images in the userform
  7. Size each image to the picture file desired, ensure correct file path.
  8. NOTE: For animations to work, *animation* files must be numbered starting with 1 (see attached zip).
  9. From the Toolbar, create a Command Button on the userform.
  10. Right-click the userform and click View Code.
  11. Paste the above code into the blank frame on right.
  12. From the Forms toolbar, create a Command Button.
  13. Assign the macro ShowSplashScreen
 

Test the code:

  1. Save the attached workbook.
  2. Extract all files and folders to the same location (i.e. the Desktop).
  3. Open the Excel file.
  4. Click the Show Splash Screen button.
 

Sample File:

Splash Screen.zip 149.09KB 

Approved by mdmackillop


This entry has been viewed 1120 times.

Please read our Legal Information and Privacy Policy
Copyright @2004 - 2020 VBA Express