Gif animé

Bonsoir Patrice et toi le Forum,

En guise de lien je te propose ce fichier...c'est plus simple :

Son principe : tu cliques sur le bouton ouvrir, tu choisis un Gif (j'ai paramétré l'ouverture dans le répertoire C:\) et il s'affiche dans l'Userform...

je n'ai pas mis de commentaire c'est assez simple...enfin j'pense...lol

Bonjour à tous et à toutes

Je te remercie Vériland pour ton aide.
J'aurai quand même besoin encore de ton aide (je sais: je rame toujours lol !).

Trois questions se présente et "torturent" mon esprit :

1/ Dis moi comment fais-tu pour créer le webBrouser du USF ?

2/ Comment faire pour que le gif animé soit toujours le même qui apparaisse sur le USF. En bref que je n'ai pas à en chercher un à chaque fois.

3/ Comment fais-tu pour que la souris de ton userform se déplace en même temps que je redimensionne ton USF ? Comme je ne peux pas la sélectionner je me demandais si l'on pouvait créer un modèle perso de USF?

En te remerciant encore pour ton aide.

Bonne soirée et bon dimanche à tous et à toutes.

@ + Patrice

Houlà...y'a pleins de questions là...bon ben j'vais te répondre dans l'ordre...patience...le temps de faire le post......lol

Bonsoir tout le monde,

Je me posai la même question en ce qui concerne les gifs animés dans un UserForm. Vériland, je suis vraiment très impatient de voir ta réponse. Patrice en attendant que Vériland propose sa solution, je peux peut-être t'aider pour ta deuxième question: dans les propriétés de ton UserForm tu, dans 'picture' tu va chercher l'image que tu veux insérer et dans 'PictureAlignment' tu choisis '2 fmPictureAlignmentTopRight'. Et voilà.

Bonsoir à tous et à bientôt

Ludwig

ah ben vous m'attendiez ?...lol...ben me revoiloù...bon j'étais un peu long le temps de faire les images...hi hi hi

donc voici les réponses dans l'ordre des questions :

1/ Dis moi comment fais-tu pour créer le webBrowser du USF ?

pour le WebBrowser il faut ajouter un contrôle supplémentaire dans la boite à outils Contrôle

Procédure :

a) ...(dans VBA) Tu cliques sur : ...

b) ...sur la boîte à outils tu fais Clic droit pour sélectionner Contrôle supplémentaire...



c) ...et dans la boite de dialogue tu coches Navigateur Web Microsoft...



et voilà le contrôle WebBrowser disponible dans la boite à outils que tu peux insérer dans un Userform...

2/ Comment faire pour que le gif animé soit toujours le même qui apparaisse sur le USF. En bref que je n'ai pas à en chercher un à chaque fois.

ben là il suffit de modifier la variable Gif dans la procédure...en fait supposons que tu veuilles insérer un gif qui se nomme : Image.gif, il suffit de définir son emplacement depuis ton disque dur...comme ceci :

Private Sub UserForm_Initialize()
' Insérer un Gif Animé dans l'userform
' Vériland Octobre 2003
Dim Gif As Variant
Gif = "C:\Documents and Settings\Veriland\Bureau\Image.gif"
WebBrowser1.Navigate Gif
End Sub

et voilà l'image intégrée dans l"userform tout le temps...bon le chemin c'est un exemple...

maintenant tu peux aussi mettre un lien image depuis le net dans cette userform...il suffit de définir le lien image comme ceci...

Private Sub UserForm_Initialize()
' Insérer un Gif Animé dans l'userform
' Vériland Octobre 2003
Dim Gif As Variant
Gif = "http://imagesdeti.free.fr/Wiki/Trucs_Et_Astuce_lagaffe.jpg"
WebBrowser1.Navigate Gif
End Sub

Mais là faut être connecté sur le net...

3/ Comment fais-tu pour que la souris de ton userform se déplace en même temps que je redimensionne ton USF ? Comme je ne peux pas la sélectionner je me demandais si l'on pouvait créer un modèle perso de USF?

Pour la souris tu parles bien de celle-ci



ah oui...à un moment je croyais que c'était l'autre...celle de l'ordi...lol

bon ben je te présente SouriVéri le compagnon de

TiFauve ...lool

Alors je l'ai mise pour qu'elle fasse partie intégrante de l'Userform...en fait l'userform contient une image qui est placée à droite...lol

pour l'alignement Ludwig à pratiquement répondu sauf qu'il s'agit de la Troisième question...lol...je vais pas complèter les infos à ce sujet...si ce n'est que pour retirer cette image il suffit de sélectionner (Image bitmap) dans l'option Picture et de faire "Suppr"...

Voilà...je pense que tu y arriveras...enfin vous y arriverez !...lol

Bonne programmation

...youpi ! on recule d'une heure...lol



PS : Macro à copier depuis le forum auquel cas tu risques d'avoir les attributs gras du post dedans...

Tiens avant que Ti ne passe par là...

voici les macro réduites pour les images...

depuis le disque dur :

Private Sub UserForm_Initialize()
' Insérer un Gif Animé dans l'userform
' Vériland Octobre 2003
WebBrowser1.Navigate "C:\Documents and Settings\Veriland\Bureau\Image.gif"
End Sub

Depuis le net :

Private Sub UserForm_Initialize()
' Insérer un Gif Animé dans l'userform
' Vériland Octobre 2003
WebBrowser1.Navigate "http://imagesdeti.free.fr/Wiki/Trucs_Et_Astuce_lagaffe.jpg"
End Sub

tout simplement...lol



PS : une heure en moins...c'est quoi la macro ?

Bonsoir le forum

Merci,... un très grand merci Vériland et à toi aussi Ludwig.
Je vais enfin pouvoir m'amuser un peu plus. Ca faisait longtemps que ça me travailler.

Bonne soirée à tous et @ +

Patrice

Bonjour tout le monde,

Je me joins à Patrice pour les remerciements.

Vériland encore merci pour tes réponses et Patrice merci pour ta question.

Longue vie au forum.

Encore merci,

Ludwig

Rebonjour à tous,

J'ai une petite question pour Vériland au sujet des gifs animés dans un UserForm. Peut-on insérer un gif animé à la place de SouriVéri. J'ai essayé mais si je place dans les propriétés de l'UserForm un Gif celui-ci reste figé. Sinon dans la déclaration j'obtiens une erreur : "type incompatible"
=> UserForm1.Picture = "F:\Documents and Settings\ludwig\Mes documents\Mes images\image.gif"

Je dois mettre quoi en plus pour que ça marche?

Mille mercis (comme ça j'en aurai d'avance).

A bientôt

Ludwig

Bonjour tout le monde.

Et oui on a pu dormir une heure de plus. Enfin pour ceux qui ont pu en profiter.

J'ai une autre question à poser :

Peut-on supprimer la barre de défilement ( grisée ) qui se trouve sur le côté du GIF animé.
Je trouve que ça gâche un peu la présentation.

Bon dimanche à tous.

@ +

Patrice

Bonjour LP, Ludwig, Véri, le Forum


Dans cette vieille démo que j'avais faite tu trouveras ce qu'il faut faire LP :


Lien supprimé

Tu verras qu'il suffit d'un petit tag HTML pour éviter les scrollbar...


Bon Dimanche
@+Thierry


PS : n'oublie pas de mettre le son !

Bonjour LP, Ludwig, Thierry et toi le Forum
toi le forum,

Bon ben j'vais répondre dans l'ordre des questions de Ludwig...tiens il me fait penser à quelqu'un ce Ludwig...

hi hi hi...Bon...j'en étais où moi...ah oui !!

Peut-on insérer un gif animé à la place de SouriVéri ?

Ben oui...tu peux même insérer une image au format *.jpg / *.bmp si tu veux...l'essentiel est de définir la bonne image dans la procédure...en fait Image.Gif, c'était le nom donné à l'image de mon exemple...

Plus concrètement :

Voici une Image Gif normale...(SourisForum03.gif)



et voici la même image mais animée...(SourisForum02.gif)



en fait *.Gif est un format spécifique qui permet d'avoir une animation de l'image...Seul le format GIF autorise de telles animations.

Le format Gif est ni plus ni moins une séquence d'images affichées simultanéments où chaque image diffère très légèrement de la précédente...ce qui créé une illusion de mouvement lorsque les images sont visualisées en succession rapide. En fait c'est comme une mini séquence vidéo...

En fait ma première image (SourisForum03.gif) ne contient qu'une seule image dans l'animation...(SourisForum02.gif) quand à elle, contient une succession de 5 images...ce qui fait qu'elle est animée

Bon ben voilà pour le format Gif...par contre pour créer un Gif cela fera l'objet d'un autre lieu qu'XLD...lol

Peut-on supprimer la barre de défilement (grisée) qui se trouve sur le côté du GIF animé.

oui...pour cela tu regarde le fichier joint...mais c'est une autre procédure qui fait appel à Gif89.dll qu'il te faut installer dans Windows/System...

Enfin tout est expliqué dans Lien supprimé où j'avais déjà mis à disposition ce fichier démo...c'est plus simple de cette manière...mais cela ne fonctionne pas pour une image qui vient du net...

Arf en fait c'était LP qui posait la deuxième question...lol...j'croyais que c'était Ludwig...lol...bon ben c'est pas grave l'essentiel est dans Excel...hi hi hi

Tiens ça va Thierry ? tu as une heure de plus pour le forum là...hi hi hi...

bon Dim as Anche

Bonjour Vériland, re le fil, le Forum


Oui pour les ScrollBar on peut utiliser la Gif89.dll, mais tout simplement un petit Tag HTML permet de la faire sans installer quoique ce soit mais juste le WebBrowser fourni...

Exemple :
WebBrowser1.Navigate "about: <html><body scroll='no'><img src='http://boulfroy.thehutt.free.fr/Divers/Bande_annonce.jpg'></img></body></html>"


Pour la questions de LudWig (que j'avais zappée !) je pense qu'il a tous les éléments avec ta réponse et aussi avec "The Matrix" il suffit de faire "Reload" ! (lol facile)

Bon Dimanche à Toi Vincent et au Forum
@+Thierry