Splash screen with video?

Hi all,
has anyone tried adding a splashscreen to a file using a videoclip?
Can you embed media player in a userform and auto run it?
If anyone has an ideas or examples if they have done it before I would appreciate it please.

Many thanks in advance.

Hi Johnny,

The answer is yes and yes.

There are prerequisites (explained in the attached file) that may be required in order to:
a. Run Windows Media Player in a UserForm or a Spreadsheet
b. Avoid a Nasty Message from Excel that indicates 'Windows Media Player' (which is an 'ActiveX' Control) may destroy the world

It is not trivial to fix the 'Warning Messages' and changes to the Windows Registry may be involved.

The attached .zip file contains:
a. LJMWindowsMediaPlayerVideoMaster.xlsm - Excel file
b. SampleThreeSecondVideo.mp4 - Sample 3 second video in .mp4 format
c.SampleSixSecondVideo.mp4 - Sample 6 second video in .mp4 format


The attached Excel file has been tested in 32 bit Excel 2016 on Windows 10. The file can:
a. Run 'Windows Media Player' from the Spreadsheet
b. Run 'Windows Media Player' from a UserForm
c. Run 'Windows Media Player' Full Screen from a UserForm

The file was tested with the attached .mp4 files only which must be in the same folder as the Excel File.

There is code in Workbook_Open() to run 'Windows Media Player' when the file opens which is COMMENTED OUT because it is poor form to upload a file that automatically runs a Macro.

Some typical code excerpt to run Windows Media Player:

Please Login or Register  to view this content.

Lewis

Hi Lewis.
Wow. thank you. Very detailed, and very informative.
It will take me a little while to digest this, and I am sure I will have questions - but thank you so much for this. One initial question: the code looks for a filepath to the video files. Is there a way to embed the videofile within excel, then simply hide the worksheet it is embedded in?

Is there a way to embed the videofile within excel, then simply hide the worksheet it is embedded in?

There are many ways to do what you want in addition to the examples below. You can put the file name in the Spreadsheet or Hard Code the File Name in the Code.

Please Login or Register  to view this content.

The following tips may help you.

To enable Macros and to Run Macros see the following:
http://office.microsoft.com/en-us/ex...010031071.aspx
http://office.microsoft.com/en-us/ex...010014113.aspx
If help is still needed do a google search for 'youtube excel enable macro' and/or 'youtube excel run macro'.

To access Visual Basic (VBA) see:
http://www.ablebits.com/office-addin...a-macro-excel/
a. Click on any cell in the Excel Spreadsheet (may not be needed).
b. ALT-F11 to get to VBA.
c. CTRL-R to get project explorer (if it isn't already showing).
d. Double Click on a 'Module Name' in 'Project Explorer' to see code for that module.

Debugger Secrets:
a. Press 'F8' to single step (goes into subroutines and functions).
b. Press SHIFT 'F8' to single step OVER subroutines and functions.
c. Press CTRL 'F8' to stop at the line where the cursor is.
d. 'Left Click' the margin to the left of a line to set (or clear) a BREAKPOINT.
e. Press CTRL 'G' to open the IMMEDIATE WINDOW. 'debug.print' statements send their
output to the IMMEDIATE WINDOW.
f. Select View > Locals to see all variables while debugging.
g. To automatically set a BREAKPOINT at a certain location put in the line:
'Debug.Assert False'
h. To conditionally set a BREAKPOINT at a certain location put in lines similar to:
if i >= 20 and xTV20 > 99.56 then
Debug.Assert False
endif
i. A variable value will be displayed by putting the cursor over the variable name.

To manually set a breakpoint, see http://www.wiseowl.co.uk/blog/s196/breakpoints.htm

Lewis

Many thanks for that.
I have tried embedding the MP4 file, and I believe the only way is embed as an object, which I have done. However, using the last two lines of code above, I can name the sheet, but the object doesn't appear to have a range as an object. Is importing as an object the best way please?
Many thanks in advance.

Hi,

Thanks for the rep points. Your original question and your need to embed the object both created an opportunity to work with things I haven't worked with previously. Thank you.

Is there a way to embed the videofile within excel, then simply hide the worksheet it is embedded in?

Take 2. I'm sorry I misunderstood the question.

Yes, you are correct, you have to Embed an Object, which I was able to do successfully.

The procedure is (in Excel 2016):

To embed Video File see Method 2 in https://www.datanumen.com/blogs/2-ef...cel-worksheet/
a. Insert > Object (Object is all the way to the right) > Create From File > Browse
b. Select the File > Insert > Leave Both CheckBoxes UNCHECKED > OK
c. Double Click the Object to play in the Default Application for that type of file.
d. NOTE: After playing is completed, the Application remains OPEN.

You don't have to put the embedded file in another Sheet. It can be hidden in plain sight and nobody will know it exists.

The way the embedded file works is:
a. You embed the file.
b. Excel creates a temporary file in the Temporary work area (on my computer in C:\Users\Owner\AppData\Local\Temp\ ).
c. When Excel closes the temporary file and (it's folder) are deleted by Excel.

Thanks to code I was lucky enough to find, I was successful in accessing the temporary file and playing the video in Windows Media Player without the need for the External copy of Windows Media Player.

I need several days to make what I did, ready for prime time. I will probably post an updated file with Embedded Video files sometime next week.

Lewis

Many thanks.
I look forward to it!

Code from previous post continued:

Please Login or Register  to view this content.

Lewis

Hi Lewis.
Very informative. Thank you. I will need some time to digest this for sure. One initial question: When opening, the embedded file will not play. It states file not found - even though I can see it embedded.
When clicking on the button copy embedded file, it returns the message could not find embedded file (again, I can see the two files embedded. I have tried manually adding the files to the desktop etc. but to no avail.
Could you please advise where I have gone wrong?
Many thanks.

Hi,

Could you please advise where I have gone wrong?

Sorry for the problems you are having. We may be at a dead end.

On my computers, when the Excel file is opened, each embedded file is stored in a temporary file on on my computer in the folder C:\Users\Owner\AppData\Local\Temp\
In 32 bit Excel 2010 the temporary files are stored in that folder. In 32 bit Excel 2016 the temporary files are stored in a temporary subfolder in that folder.

My speculation is that you did not do anything wrong. I see from your profile that you are using Excel 2019. Excel may handle temporary files in a different manner in Excel 2019, than in previous versions of Excel.

Please download the attached file which started out as code that was in my most recent upload. I added diagnostic output to the code. Click the CommandButton on Sheet1 to run the Diagnostic Macro. Save the file, and Upload the file in this thread.

That may help us find a solution. Sheet '200505.103958' is the output when run on my computer.

Code folllows:

Please Login or Register  to view this content.

Lewis