animation flash dans userform
Bonjour à tous,
j'ai un problème avec une animation que j'ai placé dans une userform. Je ne sais pas si le problème vient de la userform ou du programme lancé derrière. J'utilise une userform pour renvoyer une animation pendant qu'une macro s'execute sur le fichier excel. Lorsque je lance la userform toute seule l'animation fonctionne correctement. Mais lorsque je lance l'ensemble du programme l'animation apparait à l'écran mais l'image est figée.
Voici mon code de la Userform (il provient de vos tutoriels sur ShockwaveFlash)
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
Private Sub UserForm_Initialize()
Dim hwnd As Long
hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
"X", "D") & "Frame", Me.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
ShockwaveFlash1.Movie = "M:\Whitebird1.swf"
ShockwaveFlash1.Menu = False
MsgBox ShockwaveFlash1.ReadyState
ShockwaveFlash1.Play
MsgBox ShockwaveFlash1.Playing
ShockwaveFlash1.Loop = True
End Sub |
Y a t-il une solution ou est-il impossible de mettre une image animée si le programme de la macro est trop conséquent?
D'avance merci
Jamelie
