GIF Animé ds USF

[gds35]

Bsr a tous mes amis du Forum et Bon WE ..... j'espere pas trop pluvieux !!!

Ma question est simple : Je charge un GIF animé depuis le web et l'incorpore ds un USF . Mais une fois incorporé en tant qu'image plus d'animation , il y a t'il la solution dans la propriété car pour le positionner la ou je le desiré via la barre d'outil je clique sur l'icone représentant insertion image ....

Merci de me dire si Possible ou Non j'ai modifier les parametres de la photo mais niet il reste fige. Ou alors le code mais la suis ignorant ....

Bonne Soirée à Tous mes AMIS GDS35(GéGé)

 

[ftho]

Re : GIF Animé ds USF

Bonsoir,

Ci-dessous un fichier exemple que j'ai récupéré sur Excelabo
Le classeur et le Gif peuvent être placés n'importe où mais dans le même répertoire

FICHIER EXEMPLE

 

[Pierrot93]

Re : GIF Animé ds USF

Bonsoir Gégé, ftho

Regarde le lien ci dessous, dans la FAQ, les pages WIKI de MichelXLd :

https://www.excel-downloads.com/threads/ref-wiki-2-de-michelxld-ce-qui-touche-aux-userform.92357/


l'extrait pour un gif animé :

• Comment visualiser une image animée (.gif) dans un userform
tu dois préalablement insérer l'objet webBrowser dans l'userForm
Si cet objet n'apparaît pas par défaut dans la boite à outils :
clic droit dans la boite à outils
contrôles supplémentaires
coches la ligne Microsoft Navigateur Web
cliques que OK pour valider
ensuite tu inseres cette macro dans l'USF
Private Sub userForm_Initialize()
webBrowser1.Navigate "C:\monImage.gif"
End Sub

bonne soirée
@+

 

[gds35]

Re : GIF Animé ds USF

Merci a Tous mes CHERS AMIS DU FORUM, je vais des demain m'atteler à la tache de tests et vs tenir informé . Bon WE GDS35(GéGé)

 

[paul87]

Re : GIF Animé ds USF

bonjour à tous, Bonjour le Forum,
je me joint au post,
j'ai testé,
j'ai bien ajouté le contrôle MicrosoftWebBrowser
inséré le controle dans l'UF,
mis la macro

Private Sub userForm2_Initialize()
WebBrowser1.Navigate "C:\informaticiens007.gif"
End Sub

et lorsque j'ouvre mon UF, rien pas de message d'erreur, mais seulement un carré blanc à l'emplacement séléctionné pour le Gif..
j'ai bien vérifié le chemin...j'avais mis au plus simple a la racine de C:\..
Pourquoi ça ne marche pas..?
Merci

 

[MichelXld]

Re : GIF Animé ds USF

bonjour

userForm[COLOR=blue]2[/COLOR]_Initialize

Supprime le 2 puis refait un essai


Bonne soirée
MichelXld

 

[papapaul]

Re : GIF Animé ds USF

Salut Gds35, tout le monde.

A tout hasard, peut-être en ajoutant quelque part:
WebBrowser1.Visible = True

Ce n'est qu'un bout de code que j'ai trouvé sur le forum
dans un post de Caninge en 2005 !!!
En cherchant bien,tu aurais du le trouver.
C'est très complet, ca marche bien chez moi avec XP.
J'espère que ca t'aidera.

Lien supprimé

@+

 

[paul87]

Re : GIF Animé ds USF

re
effectivement, en supprimant le "2"...ça marche!!
Merci a vous tous

 

[paul87]

Re : GIF Animé ds USF

ca marche,
par contre quelle que soit la taille du Gif et quelles que soient les propriétés du controle WebBrowser j'ai toujours un ascenseur sur la droite de l'image, comment faire pour qu'il disparaisse....?
svp

 

[papapaul]

Re : GIF Animé ds USF

Re tous,

d'aprés un code de Michel, en mettant ca peut-être.
Ca marche dans le code d'une feuille, pourqiou pas dans un USF ?

WebBrowser1.Document.body.Scroll = "no"

@+

 

[paul87]

Re : GIF Animé ds USF

re j'ai essayé dans l'initialize du UF...
ça ne marche pas

 

[paul87]

Re : GIF Animé ds USF

si ça marche dans l'activate du UF

Private Sub UserForm_Activate()
WebBrowser1.Document.body.Scroll = "no"
End Sub

 

[paul87]

Re : GIF Animé ds USF

Et maintenant, comment enlever toutes les bordures, afin de fondre complètement le Gif dans le UF (pour peu que les couleurs soient identiques..)
comment faire..?