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
