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") & "\Cursors\drum.ani")
If hCursor > 0 Then SetCursor hCursor
End Sub
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é.
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é.
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é.
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 :
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é.
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 :
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é.
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 :
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é.
Tu peux positionner le cursor de la souris sur le label au chargement du UserForm avec :
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Sub UserForm_Activate() SetCursorPos x, y End Sub
où x et y sont les coordonnée de ton label sur l'écran. Afin de les connaître, (les propriétés left et top étant relatives au UserForm et non pas à l'écran) tu peux utiliser :
Private Type POINTAPI x As Long y As Long End Type
Private Declare Function GetCursorPos Lib "user32" _ (lpPoint As POINTAPI) As Long
Private Sub Label3_Click() Dim pt As POINTAPI
GetCursorPos pt Debug.Print pt.x & " " & pt.y End Sub
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
-- Cordialement,
Jacques.
Bonjour Didier NOVARIN,
Tu peux positionner le cursor de la souris sur le label au chargement du
UserForm avec :
Private Declare Function SetCursorPos Lib "user32"
(ByVal x As Long, ByVal y As Long) As Long
Private Sub UserForm_Activate()
SetCursorPos x, y
End Sub
où x et y sont les coordonnée de ton label sur l'écran. Afin de les
connaître, (les propriétés left et top étant relatives au UserForm et
non pas à l'écran) tu peux utiliser :
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" _
(lpPoint As POINTAPI) As Long
Private Sub Label3_Click()
Dim pt As POINTAPI
GetCursorPos pt
Debug.Print pt.x & " " & pt.y
End Sub
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
Tu peux positionner le cursor de la souris sur le label au chargement du UserForm avec :
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Sub UserForm_Activate() SetCursorPos x, y End Sub
où x et y sont les coordonnée de ton label sur l'écran. Afin de les connaître, (les propriétés left et top étant relatives au UserForm et non pas à l'écran) tu peux utiliser :
Private Type POINTAPI x As Long y As Long End Type
Private Declare Function GetCursorPos Lib "user32" _ (lpPoint As POINTAPI) As Long
Private Sub Label3_Click() Dim pt As POINTAPI
GetCursorPos pt Debug.Print pt.x & " " & pt.y End Sub
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
-- Cordialement,
Jacques.
isabelle
bonjour Jean Paul,
mais si,regarde cette exemple : http://cjoint.com/?fxtX65YgcE
isabelle
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 :
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é.
mais si,regarde cette exemple : http://cjoint.com/?fxtX65YgcE
isabelle
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 :
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é.
mais si,regarde cette exemple : http://cjoint.com/?fxtX65YgcE
isabelle
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 :
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é.
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
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
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
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 :
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é.
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 :
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é.
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 :
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é.
le Declare et la Private Sub doivent aller dans le code du userform (et non pas module2)
Cdlt.
lSteph
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 :
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é.
le Declare et la Private Sub doivent aller
dans le code du userform (et non pas module2)
Cdlt.
lSteph
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 :
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é.
le Declare et la Private Sub doivent aller dans le code du userform (et non pas module2)
Cdlt.
lSteph
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 :
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é.
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
-- Cordialement,
Jacques.
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
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
-- Cordialement,
Jacques.
isabelle
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
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
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
Jean-Paul V
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 :
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é.
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 :
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é.
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 :
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é.
