How to create an animated Excel splash screen for a Workbook
- Thread starter Dan
- Start date
bobhc
Excel Ninja
Good day, Dan and welcome to the forum
You may find these links of use
http://www.ozgrid.com/Excel/excel-splash-screen.htm
http://www.brainbell.com/tutorials/ms-office/excel/Create_A_Workbook_Splash_Screen.htm
https://www.youtube.com/watch?feature=player_detailpage&v=tTfIR1RK-Dc
.
You may find these links of use
http://www.ozgrid.com/Excel/excel-splash-screen.htm
http://www.brainbell.com/tutorials/ms-office/excel/Create_A_Workbook_Splash_Screen.htm
https://www.youtube.com/watch?feature=player_detailpage&v=tTfIR1RK-Dc
.
Thanks, I've seen these examples and they only provide basic information for how to create a static splash screen versus an animated splash screen. I'm looking for animated transitions like you can do in Powerpoint slide where new text is displayed after clicking on the screen and/or after a time delay.
This turned out to be more complicated than I thought it would be and I have encountered 3 problems with this method I need help with:
problem1-When I added the following code to my existing Excel 2010 workbook to play a PowerPoint show I get a "File not found: VBA6.DLL" error even though the file path is valid.
Code:
Sub Workbook_Open()
'Auto Open PowerPoint Show when Excel Workbook opens
Dim objPPT As Object
Set objPPT = CreateObject("PowerPoint.Application")
objPPT.Visible = True
'Change the directory path and file name to the location of PP document
objPPT.Presentations.Open "\\SharePoint2010teamsiteFilepath\Splash.ppsx"
'Set Active Worksheet to display
ActiveWorkbook.Sheets("On-time Delivery").Activate
End Suberror, but the Powerpoint show is hidden behind the active worksheet and does not play automatically.
problem3-After I manually click on the PowerPoint show to advance it to the end, the PowerPoint show does not
automatically close and leaves a blank screen displayed instead of returning to the active Excel
worksheet.
Thx!
Last edited by a moderator:
SirJB7
Excel Rōnin
Hi, Dan!
Problem 1.
First check if the project has these references, and then try again:
Visual Basic For Applications
OLE Automation
Microsoft Office 15.0 Object Library
Microsoft Excel 15.0 Object Library
Microsoft Powerpoint 15.0 Object Library
Maybe you find any other versions than 15.0 (2013), use the one you get displayed.
Problem 2 & 3.
If still happen after 1., then consider uploading (a) sample file(s) (including manual examples of desired output if applicable), it'd be very useful for those who read this and might be able to help you.
Regards!
Problem 1.
First check if the project has these references, and then try again:
Visual Basic For Applications
OLE Automation
Microsoft Office 15.0 Object Library
Microsoft Excel 15.0 Object Library
Microsoft Powerpoint 15.0 Object Library
Maybe you find any other versions than 15.0 (2013), use the one you get displayed.
Problem 2 & 3.
If still happen after 1., then consider uploading (a) sample file(s) (including manual examples of desired output if applicable), it'd be very useful for those who read this and might be able to help you.
Regards!
Thanks for the tip! I found Problem 1 was the VBA Reference Library Path was incorrectly set in my Windows Registry Key [HKEY_CLASSES_ROOT\TypeLib\{000204EF-0000-0000-C000-000000000046}\6.0\9\win32].
I found some articles on this error which indicated the problem may be the VBA Reference Library and indicated the VBA Reference Library Path should be set to "C:\Program Files (x86)\Common Files\microsoft shared\VBA\VBA6\VBE6.dll", which solved the Problem 1.
Problem 3 is still there. I solved Problem 2 by modifying my code to play the PowerPoint show in a PowerPoint Kiosk but now get an unwanted message asking the user if they want to save changes to the PowerPoint show and a new error (Problem 4) "Run-time error "-2147467259 (80004005)': SlideShowView.State : Object does not exist." when I click on the Debug button it takes me to the "Do Until objSlideShow.State = ppSlideShowDone" line in my code (See attached txt file)...