GIF Animé ds USF

ftho

XLDnaute Occasionnel

• 28 Mars 2008

• #2

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 28 Mars 2008

• #3

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

Cliquez pour agrandir...

bonne soirée
@+

 

Vote positif 0 Vote négatif

gds35

XLDnaute Impliqué

• 28 Mars 2008

• #4

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é)

 

Vote positif 0 Vote négatif

P

paul87

XLDnaute Impliqué

• 30 Mars 2008

• #5

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

Code:

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

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 30 Mars 2008

• #6

Re : GIF Animé ds USF

bonjour

Code:

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

Supprime le 2 puis refait un essai


Bonne soirée
MichelXld

 

Vote positif 0 Vote négatif

papapaul

XLDnaute Impliqué

• 30 Mars 2008

• #7

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é

@+

 

Pièces jointes

• modop_caninge.zip

  31.5 KB · Affichages: 125

Vote positif 0 Vote négatif

P

paul87

XLDnaute Impliqué

• 30 Mars 2008

• #8

Re : GIF Animé ds USF

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

 

Vote positif 0 Vote négatif

P

paul87

XLDnaute Impliqué

• 30 Mars 2008

• #9

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

 

Vote positif 0 Vote négatif

papapaul

XLDnaute Impliqué

• 30 Mars 2008

• #10

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"

@+

 

Vote positif 0 Vote négatif

P

paul87

XLDnaute Impliqué

• 30 Mars 2008

• #11

Re : GIF Animé ds USF

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

 

Vote positif 0 Vote négatif

P

paul87

XLDnaute Impliqué

• 30 Mars 2008

• #12

Re : GIF Animé ds USF

si ça marche dans l'activate du UF

Code:

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

 

Vote positif 0 Vote négatif

P

paul87

XLDnaute Impliqué

• 30 Mars 2008

• #13

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..?

 

Vote positif 0 Vote négatif