Inserer un gif animé

Bonjour,

je voudrais inserer à mon classeur un gif animé, est-ce possible ? si oui est-ce que cela ne prend pas trop de

ressource au classeur?

Merci pour vos réponses

Bonjour

Un exemple ici

https://forum.excel-pratique.com/post108471.html?hilit=gif animé#p108471

Cordialement

Merci Amadéus,

Le seul hic c'est que l'exemple ouvre une fenêtre, et je voudrai que mon classeur est un gif animé directement dessus,

si cela est possible bien entendu.

Salut le forum

Pour insérer une image gif animée dans un classeur Excel, le réflexe est de faire le menu insertion / image, mais cela ne fonctionne pas. C'est normal car l'animation est faite par plusieurs images et l'importation se limite à la première.

Pour que l'animation fonctionne, il faut insérer l'image dans un Contrôle.

Pour insérer le contrôle, aller dans le menu Affichage / Barre d'outils / Boîte à outils Contrôle

Activer le premier bouton "Mode création"

Choisir le dernier bouton, (celui avec un marteau), puis choisir "Navigateur Web Microsoft"

Ensuite dessiner un cadre pour recevoir l'image.

Désactiver le premier bouton "mode création" et la barre d'outils.

Enfin, dans l'éditeur VBA et dans la fenêtre de la feuille concernée coller le code suivant :

Private Sub Worksheet_Activate()
   WebBrowser1.Navigate "X:\chemin complet de l'image.GIF"
End Sub

Changer la page active du classeur, puis revenez sur la feuille de l'animation pour voir l'image animée.

Pour insérer d'autres animations, il faut procéder de la même manière en rajoutant à chaque fois une ligne au code ci-dessus, en tenant compte du numéro de contrôle attribué.

 WebBrowser2.Navigate "X:\chemin complet de l'image.GIF"

Pour insérer d'autres animations, sur d'autres pages, il faut procéder de même en rajoutant la procédure VBA sur chaque page concernée.

Si la taille ne cadre pas avec l'image, il faut corriger :

Menu Affichage / Barre d'outils / Boîte à outils Contrôle

Il faut activer le premier bouton "Mode création"

Redimensionner le cadre et ces paramètres.

Désactiver le premier bouton "mode création" et la barre d'outils.

Mytå

merci Myta(excuse pour ton nom je n'arrive pas a mettre le ° sur le a)

Je ne comprend pas cela ne fonctionne pas, pourtant test explications sont claires,

je met un fichier rar avec un classeur et le gif, serait il possible que tu me dise ce qui m'échappe.

Re le forum

Alpha, tu as inséré un contrôle Image au-lieu du Web Browser

Et le code suivant va sur le module de la feuille pas dans ThisWorkBook

Private Sub Worksheet_Activate()
   WebBrowser1.Navigate "c:\piston.GIF"
End Sub

Mytå

Bonjour,

Je pense qu'hier soir je devais être fatigué, après une bonne nuit, cela fonctionne!

est-t-il possible de supprimer ou masquer la fenêtre autour du gif car elle n'est pas très design ?

Merci encore!

Re le forum

Pas certain d'avoir saisie ta demande

Private Sub WebBrowser1_DownloadComplete()
On Error Resume Next
Application.ScreenUpdating = False
  With WebBrowser1
    .Document.body.Style.Border = "none"
    .Document.body.Scroll = "no"
  End With
Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_Activate()
  WebBrowser1.Navigate "D:\piston.gif"
End Sub

Mytå

c'est exactement ça! Merci Myta

Bonsoir,

je relance le post, pour savoir un petit truc.

Je ne trouve pas du tout Navigateur Web Microsoft

merci de votre réponse.

Bonjour,

Tu cliques sur Insérer > Contrôle ActiveX > clic sur Autres contrôles (en bas à droite) > dans la liste tu cherches :

Microsoft Web Browser

Cordialement.

pouns94 a écrit :

Bonsoir,

je relance le post, pour savoir un petit truc.

Je ne trouve pas du tout Navigateur Web Microsoft

merci de votre réponse.

Onglet Développeur > Insérer > ActiveX > Autres contrôles (Petite Boîte à outils)

Bonjour

Onglet Développeur > Insérer > ActiveX > Autres contrôles (Petite Boîte à outils)

l'icone tout en bas en forme de tournevis et de clé, tu cliques dessus et cela t'ouvre les 3autre contrôle"

Dans le déroulant "Microsoft Web Browser"

Enregistrer le contrôle personnalisée

et ensuite tu traces sur ta feuille la forme comme pour un simple bouton

Merci pour vos réponses

alors j'ai fait exactement ce que tu m'a dit je me retrouve avec un rectangle noir.

Où dois je mettre mon gif ensuite?

Tu reprends le sujet, et tu suis les indications de Mytå (que je salue ).

Bonsoir le forum,

Avec un code qui, cette fois, se place dans ThisWorkbook.

Option Explicit

Private Sub Workbook_Open()
  With Sheets("Feuil1")
    .WebBrowser1.Navigate "C:\chemin du .gif"
  End With
End Sub

Remarque : si le gif se trouve sur un site :

.WebBrowser1.Navigate "http://................gif"

Un exemple joint.

Magnifique, j'ai reussi à le faire.

Merci pour ton exemple MBBP, par contre comment enlever les fléches sur le coté de l'image?

En bas de la page 1 de cette discussion, Mytå donne le code qui permet de masquer les ascenseurs.

J'ai reussi a enlever les ascenseurs, mais maintenant je me retrouve avec un cadre blanc autour du gif