Animer une icône au lancement du userform

Isabelle vient de poster la solution pour les UserForm, qui est aussi la
solution pour VB6, c'est à dire un WebBrowser (Contrôle ActiveX d'IE).

Pour information, il existe aussi des contrôles ActiveX en freeware pour
les Gifs animés pour pallier à ce "défaut" de MS.

C'est bien domage, que cela ne marche pas dans un userform alors que cela
marche dans le fichier Excel de Michel Pierron ( mais ce n'est pas dans un
Userform).Et j'avouerais que je ne comprends rien à ces macros.J'espèrais
qu'on pouvait les bricoler...

Merci pour toutes ces explications

--
Cordialement,

Jacques.

il faut que tu aies un gif animé sur ton pc et que tu en indiques le
chemin dans la macro, c'est tout !

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

Merci Misange
Ce site est extraordinaire !
je vais étudier cela, la recherche de google sur excelabo m'a bien indiqué
ce fichier de Sigonneau mais pour l'instant je viens de charger le fichier
mais ça ne marche pas, j'ai du mal m'y prendre,je n'ai pas encore regardé la
macro...
Affaire suivre

La solution de Frédéric Signneau fonctionne très bien dans un userform.
Télécharge l'exemple et dans le code de la macro indique le chemin d'un
gif animé sur ton PC
http://www.excelabo.net/excel/controlesimages.php#gifanime

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

C'est bien domage, que cela ne marche pas dans un userform alors que cela
marche dans le fichier Excel de Michel Pierron ( mais ce n'est pas dans un
Userform).Et j'avouerais que je ne comprends rien à ces macros.J'espèrais
qu'on pouvait les bricoler...

Merci pour toutes ces explications

Bonjour,

l'API LoadCursorFromFile ne gère que les format .cur et .ani spécifiques
aux curseur de la souris :

http://msdn2.microsoft.com/en-us/library/ms648392.aspx

et donc pas les gifs animés.

Par ailleurs ces gifs animés, pour de sombres raisons de brevet
d'algorithme de compression LZW, ont toujours été très mal gérés par MS

J'ai essayé, ça marche pas.

Je ne comprends pas ces instructions car même si je supprime les gifs ils
restent bien dans mes 7 images.Rappel le gif animé est dans l'image7 du
Userform1 et le gif n'est pas supprimé.

@+ j'espère

refait un essaie en modifient cette ligne :

hCursor = LoadCursorFromFile _
(Environ("Windir") & "ExcelaboAmicalement.gif")

par:

hCursor = LoadCursorFromFile("C:DOCExcelaboAmicalement.gif")

isabelle

--
Cordialement,

Jacques.

de fait tu as raison, ce n'est pas la même chose. Excuses pour le mic mac

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

Bonjour Misange,

Je crois qu'il y a un mélange entre plusieurs objets, ce qui pourrait
prêter à confusion :-)

Au départ, dans un fil précédent, il s'agissait d'afficher le curseur
de souris en forme de main (comme sur les liens hypertextes), ce qui
concerne les propriétés MouseIcon et MousePointer des contrôles, et
cette main n'étant pas dans les curseurs de souris par défaut, passage
par les API et un fichier .cur (ou les resources de user32.dll)

Ensuite on est passé à un curseur animé (.ani), animé certes, mais qui
suit les mouvements de la souris, ce qui n'est pas du tout le cas des
Gifs animés, qui sont très utiles, mais pour un usage différent ;-)

en plus de la solution d'Isabelle tu as aussi celle-ci de Frédéric
Sigonneau qui fonctionne ma foi très bien
http://www.excelabo.net/excel/controlesimages.php#gifanime

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

Bonjour
Grâce à Jacques93, j'ai une procédure qui me permet d'animer une icône
Je souhaite en fait que celle-ci s'anime au lancement du userform
Je vous remercie
Didier

Private Declare Function LoadCursorFromFile Lib "user32" Alias _
"LoadCursorFromFileA" (ByVal lpFileName As String) As Long

Private Declare Function SetCursor Lib "user32" _
(ByVal hCursor As Long) As Long

Private Sub Label3_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, _
ByVal X As Single, _
ByVal Y As Single)
Dim hCursor As Long

hCursor = LoadCursorFromFile _
(Environ("Windir") & "Cursorsdrum.ani")
If hCursor > 0 Then SetCursor hCursor
End Sub

;-)

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

très jolie, merci Misange.

j'ai mis celui là comme .gif : http://cjoint.com/?fxuX1TPguv

isabelle

en plus de la solution d'Isabelle tu as aussi celle-ci de Frédéric
Sigonneau qui fonctionne ma foi très bien
http://www.excelabo.net/excel/controlesimages.php#gifanime

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

Bonjour
Grâce à Jacques93, j'ai une procédure qui me permet d'animer une icône
Je souhaite en fait que celle-ci s'anime au lancement du userform
Je vous remercie
Didier

Private Declare Function LoadCursorFromFile Lib "user32" Alias _
"LoadCursorFromFileA" (ByVal lpFileName As String) As Long

Private Declare Function SetCursor Lib "user32" _
(ByVal hCursor As Long) As Long

Private Sub Label3_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, _
ByVal X As Single, _
ByVal Y As Single)
Dim hCursor As Long

hCursor = LoadCursorFromFile _
(Environ("Windir") & "Cursorsdrum.ani")
If hCursor > 0 Then SetCursor hCursor
End Sub

Bonsour® Jean-Paul V avec ferveur ;o))) vous nous disiez :

C'est bien domage, que cela ne marche pas dans un userform alors que cela
marche dans le fichier Excel de Michel Pierron ( mais ce n'est pas dans un
Userform).Et j'avouerais que je ne comprends rien à ces macros.J'espèrais
qu'on pouvait les bricoler...

Un autre exemple ....
http://excelabo.net/moteurs/compteclic.php?nom=cm-gifanimes

--
--
@+
;o)))

Non, non pas d'excuses. Tout le monde s'y retrouvera ...
(mais ça prendra du temps, je sais plus de qui c'est :-D )

de fait tu as raison, ce n'est pas la même chose. Excuses pour le mic mac

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

--
Cordialement,

Jacques.

Bonjour,

...certes aussi!

(Et vous avez tous d'excellent exemples!)
Mais si comme il l'a fait dans classeur en cjoint
il met son code dans module2 cela ne risque pas de marcher.

(bis)

Il faut que la Private Sub soit dans le code du userform

:-)

lSteph

il faut que tu aies un gif animé sur ton pc et que tu en indiques le
chemin dans la macro, c'est tout !

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

Merci Misange Ce site est extraordinaire !
je vais étudier cela, la recherche de google sur excelabo m'a bien
indiqué ce fichier de Sigonneau mais pour l'instant je viens de
charger le fichier mais ça ne marche pas, j'ai du mal m'y prendre,je
n'ai pas encore regardé la macro...
Affaire suivre

La solution de Frédéric Signneau fonctionne très bien dans un
userform. Télécharge l'exemple et dans le code de la macro indique le
chemin d'un gif animé sur ton PC
http://www.excelabo.net/excel/controlesimages.php#gifanime

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

C'est bien domage, que cela ne marche pas dans un userform alors que
cela marche dans le fichier Excel de Michel Pierron ( mais ce n'est
pas dans un Userform).Et j'avouerais que je ne comprends rien à ces
macros.J'espèrais qu'on pouvait les bricoler...

Merci pour toutes ces explications

Bonjour,

l'API LoadCursorFromFile ne gère que les format .cur et .ani
spécifiques aux curseur de la souris :

http://msdn2.microsoft.com/en-us/library/ms648392.aspx

et donc pas les gifs animés.

Par ailleurs ces gifs animés, pour de sombres raisons de brevet
d'algorithme de compression LZW, ont toujours été très mal gérés
par MS

J'ai essayé, ça marche pas.

Je ne comprends pas ces instructions car même si je supprime les
gifs ils restent bien dans mes 7 images.Rappel le gif animé est
dans l'image7 du Userform1 et le gif n'est pas supprimé.

@+ j'espère

refait un essaie en modifient cette ligne :

hCursor = LoadCursorFromFile _
(Environ("Windir") & "ExcelaboAmicalement.gif")

par:

hCursor = LoadCursorFromFile("C:DOCExcelaboAmicalement.gif")

isabelle

--
Cordialement,

Jacques.

Bonjour Misange

1)J'ai fait un essai du fichier en créant le même chemin que la macro où
j'ai mis mon gif animé et je l'ai renomé misange.gif.Chez moi cela ne marche
pas ( windows XP, Excel2000)
2)Après cet échec j'ai essayé en corrigeant la macro pour préciser Userform1
le résultat n'est pas mieux.
3)Serait-il possible de corriger la macro pour quelle fonctionne si le gif
animé est dans le même répertoire?

Bonne journée

La solution de Frédéric Signneau fonctionne très bien dans un userform.
Télécharge l'exemple et dans le code de la macro indique le chemin d'un
gif animé sur ton PC
http://www.excelabo.net/excel/controlesimages.php#gifanime

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

C'est bien domage, que cela ne marche pas dans un userform alors que cela
marche dans le fichier Excel de Michel Pierron ( mais ce n'est pas dans un
Userform).Et j'avouerais que je ne comprends rien à ces macros.J'espèrais
qu'on pouvait les bricoler...

Merci pour toutes ces explications

Bonjour,

l'API LoadCursorFromFile ne gère que les format .cur et .ani spécifiques
aux curseur de la souris :

http://msdn2.microsoft.com/en-us/library/ms648392.aspx

et donc pas les gifs animés.

Par ailleurs ces gifs animés, pour de sombres raisons de brevet
d'algorithme de compression LZW, ont toujours été très mal gérés par MS

J'ai essayé, ça marche pas.

Je ne comprends pas ces instructions car même si je supprime les gifs ils
restent bien dans mes 7 images.Rappel le gif animé est dans l'image7 du
Userform1 et le gif n'est pas supprimé.

@+ j'espère

refait un essaie en modifient cette ligne :

hCursor = LoadCursorFromFile _
(Environ("Windir") & "ExcelaboAmicalement.gif")

par:

hCursor = LoadCursorFromFile("C:DOCExcelaboAmicalement.gif")

isabelle

--
Cordialement,

Jacques.

Misange

J'ai trouvé l'erreur du fichier:
Il faut remplacer :
"<img src='C:!DocFlodisci3ds-gifmisange.gif'></img></body></html>"
par

"<img src='C:DocFlodisci3ds-gifmisange.gif'></img></body></html>"

Je ne suis pas très bon mais ce ! me choquait

La solution de Frédéric Signneau fonctionne très bien dans un userform.
Télécharge l'exemple et dans le code de la macro indique le chemin d'un
gif animé sur ton PC
http://www.excelabo.net/excel/controlesimages.php#gifanime

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

C'est bien domage, que cela ne marche pas dans un userform alors que cela
marche dans le fichier Excel de Michel Pierron ( mais ce n'est pas dans un
Userform).Et j'avouerais que je ne comprends rien à ces macros.J'espèrais
qu'on pouvait les bricoler...

Merci pour toutes ces explications

Bonjour,

l'API LoadCursorFromFile ne gère que les format .cur et .ani spécifiques
aux curseur de la souris :

http://msdn2.microsoft.com/en-us/library/ms648392.aspx

et donc pas les gifs animés.

Par ailleurs ces gifs animés, pour de sombres raisons de brevet
d'algorithme de compression LZW, ont toujours été très mal gérés par MS

J'ai essayé, ça marche pas.

Je ne comprends pas ces instructions car même si je supprime les gifs ils
restent bien dans mes 7 images.Rappel le gif animé est dans l'image7 du
Userform1 et le gif n'est pas supprimé.

@+ j'espère

refait un essaie en modifient cette ligne :

hCursor = LoadCursorFromFile _
(Environ("Windir") & "ExcelaboAmicalement.gif")

par:

hCursor = LoadCursorFromFile("C:DOCExcelaboAmicalement.gif")

isabelle

--
Cordialement,

Jacques.

Je ne vois pas comment cela pourrait marcher chez toi si tu gardes cette
ligne, à moins que sur C: tu aies un dossier intitulé !docFlo avec un
sous dossier disci3... et un fichier gif qui s'appelle misange.gif !
Dans cette ligne que tu indiques, tu remplaces
C:!DocFlodisci3ds-gifmisange.gif
par l'adresse de ton image gif (qui n'a aucunement besoin de s'appeller
misange) sur ton PC, avec le chemin complet.
par exemple
F:Mondossiermonsousdossiermeszouliesimagesmongifamoi.gif

Le ! devant le nom d'un fichier ou d'un dossier n'est pas du tout
genant. Bien au contraire, j'utilise très souvent ceci pour que le
dossier s'affiche en tête de liste alphabétique (le code asci du ! est
le premier dans la liste)

Reviens si ça va pas

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

Misange

J'ai trouvé l'erreur du fichier:
Il faut remplacer :
"<img src='C:!DocFlodisci3ds-gifmisange.gif'></img></body></html>"
par

"<img src='C:DocFlodisci3ds-gifmisange.gif'></img></body></html>"

Je ne suis pas très bon mais ce ! me choquait

La solution de Frédéric Signneau fonctionne très bien dans un userform.
Télécharge l'exemple et dans le code de la macro indique le chemin d'un
gif animé sur ton PC
http://www.excelabo.net/excel/controlesimages.php#gifanime

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

C'est bien domage, que cela ne marche pas dans un userform alors que cela
marche dans le fichier Excel de Michel Pierron ( mais ce n'est pas dans un
Userform).Et j'avouerais que je ne comprends rien à ces macros.J'espèrais
qu'on pouvait les bricoler...

Merci pour toutes ces explications

Bonjour,

l'API LoadCursorFromFile ne gère que les format .cur et .ani spécifiques
aux curseur de la souris :

http://msdn2.microsoft.com/en-us/library/ms648392.aspx

et donc pas les gifs animés.

Par ailleurs ces gifs animés, pour de sombres raisons de brevet
d'algorithme de compression LZW, ont toujours été très mal gérés par MS

J'ai essayé, ça marche pas.

Je ne comprends pas ces instructions car même si je supprime les gifs ils
restent bien dans mes 7 images.Rappel le gif animé est dans l'image7 du
Userform1 et le gif n'est pas supprimé.

@+ j'espère

refait un essaie en modifient cette ligne :

hCursor = LoadCursorFromFile _
(Environ("Windir") & "ExcelaboAmicalement.gif")

par:

hCursor = LoadCursorFromFile("C:DOCExcelaboAmicalement.gif")

isabelle

--
Cordialement,

Jacques.