Viewing aninmaton files in a WorkBook

macj

New Member
Joined
Feb 24, 2002
Messages
3
Hi there. I've got this almost figured out, but now I'm pressed for time :(

I need to place an animated GIF (1st choice) or an AVI (second choice) file in a WorkBook so that it will show the animation in full screen, as soon as you open the WorkBook.

The animation must play once and then "disappear" from view.

Any pointers to plug-ins, that will do the same, are also welcome.

Keep Well

Marcellus
 

Excel Facts

What is the shortcut key for Format Selection?
Ctrl+1 (the number one) will open the Format dialog for whatever is selected.
On 2002-02-26 11:29, macj wrote:
Hi there. I've got this almost figured out, but now I'm pressed for time :(

I need to place an animated GIF (1st choice) or an AVI (second choice) file in a WorkBook so that it will show the animation in full screen, as soon as you open the WorkBook.

The animation must play once and then "disappear" from view.

Any pointers to plug-ins, that will do the same, are also welcome.

Keep Well

Marcellus

try this

Option Explicit
'
'API and Constant Declarations
'The function declarations must each be typed on one line.

Declare Function mciSendString Lib "winmm" Alias "mciSendStringA" (ByVal _
lpstrCommand As String, ByVal lpstrReturnStr As Any, ByVal wReturnLen _
As Long, ByVal hCallBack As Long) As Long

Declare Function GetActiveWindow Lib "USER32" () As Integer

Const WS_CHILD = &H40000000

Sub PlayAVIFile()

'Dimension variables.
Dim CmdStr As String, FileSpec As String
Dim Ret As Integer, XLSHwnd As Integer

'The name and location of the AVI file to play.
FileSpec = "C:AVIFilesE-MailScanemail.avi" 'C:AVIFilesCommconnectmodemld.avi"

'Get the active sheet's window handle.
XLSHwnd = GetActiveWindow()

'Opens the AVIVideo and creates a child window on the sheet
'where the video will display. "Animation" is the device_id.
CmdStr = ("open " & FileSpec & _
" type AVIVideo alias animation parent " & _
LTrim$(Str$(XLSHwnd)) & " style " & LTrim$(Str$(WS_CHILD)))

Ret = mciSendString(CmdStr, 0&, 0, 0)

'Put the AVI window at location 25, 120 relative to the
'parent window (Microsoft Excel) with a size of 160 x 160.
Ret = mciSendString("put animation window at 50 240 160 160", _
0&, 0, 0)

'The wait tells the MCI command to complete before returning
'control to the application.
Ret = mciSendString("play animation wait", 0&, 0, 0)

'Close windows so they don't crash when you exit the application.
Ret = mciSendString("close animation", 0&, 0, 0)


End Sub


Animated gifs are a little diff....you'll need a ocx control specifically for this..

You could always try doing the aniimation yourself through code......


HTH

Ivan
 
Upvote 0
Wow!
You sure are a genius Mr. Ivan!
This code is sooooo far out of my league, it wants to make me cry...

The bottom line is that it works!

Thank you and God bless!
 
Upvote 0
I got the code running and I'm impressed too. Two questions!

1) While running the code/macro Excel freezes; nothing can be done within Excel. How to overcome this?

2) How to change the code in such a way that the opening picture and the end picture remain in view?
 
Upvote 0
That is so so cool Mr Ivan Maola
I want to include this in my project but i cant get it to work in a folder that has a space in the name of the fold eg C:My Projecttest.avi
Why is it so
 
Upvote 0
On 2002-11-03 06:04, seacrest wrote:
That is so so cool Mr Ivan Maola
I want to include this in my project but i cant get it to work in a folder that has a space in the name of the fold eg C:My Projecttest.avi
Why is it so

Ivan's Code is beyond me but does putting a %20 inplace of the space help?

Derrick Lee Rademaker
 
Upvote 0

Forum statistics

Threads
1,213,494
Messages
6,113,988
Members
448,538
Latest member
alex78

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top