Sujet Précédent Sujet Suivant

Insérer image.gif animé dans un shape

Fermé
duduleray - Modifié le 12 mai 2020 à 19:18
 duduleray - 16 mai 2020 à 07:48
Bonsoir a tous, forum bonsoir,

<config>Windows 10/ Edge 81.0.416.72</Excel 2007>

Je cherche un tutoriel ou un code vba pour insérer une image.Gif animée dans un shape avec le code pour que l'image une fois intégrer s'anime.

Si cela est possible bien sur.

Merci pour votre aide et conseils, bonne soirée a tous.

Cdlt Ray
A voir également:

5 réponses

Réponse 1 / 5
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
12 mai 2020 à 19:46
Bonjour,

voici 2 manières de faire:

https://silkyroad.developpez.com/VBA/ExcelImageGIF/

https://www.commentcamarche.net/faq/8019-inserer-un-gif-anime-dans-excel
1
Réponse 2 / 5
duduleray
Modifié le 13 mai 2020 à 10:13
Bonjour cs_Le Pivert,

Merci de ta réponse, les deux façons de faire qui sont présenter dans les liens, je sais le faire.

Mon but : Si possible, je voudrais mettre sur ma Feuil1 ou j'ai déjà quelques Shapes de dessiner
rajouter un Shape et lui insérer une image Gif animée.

J'ai un chrono(décompteur) qui fonctionne bien dans un shape et je souhaiterai que lorsque la tempo est terminer déclencher l'animation Gif.

Merci pour ton aide, bonne journée a toi.

Cdlt Ray
0
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
13 mai 2020 à 16:19
Un exemple de ce que l'on peut faire:

https://www.cjoint.com/c/JEnosl8a4WQ

@+ Le Pivert
0
Réponse 3 / 5
duduleray
Modifié le 13 mai 2020 à 16:38
Salut cs_Le Pivert,

Merci pour la démo, c'est cool.

Avec les WebBrowser1, j'ai appris l'année dernière, et je sais faire, pas tout comme le cadrage automatique d'une image dans le WebBrowser1, mais c'est en cours.

Mais je voudrais savoir si on peux aussi dans les formes (Shapes) que l'on dessine avec l'onglet "insertion" ???

Sinon svp tu peux m'en dire plus sur le code pourquoi de cette façon et pourquoi l'ascenseur a droite dans l'image.

Merci pour ton aide, c'est sympa.

WebBrowser1.Navigate ThisWorkbook.Path & "\IMAGE_GIF.gif"

Cdlt Ray
0
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
13 mai 2020 à 19:02
Sinon svp tu peux m'en dire plus sur le code pourquoi de cette façon et pourquoi l'ascenseur a droite dans l'image.

pour supprimer l'ascenceur: 

Option Explicit
'sart
Private Sub CommandButton1_Click()
WebBrowser1.Visible = True
WebBrowser1.Navigate ThisWorkbook.Path & "\IMAGE_GIF.gif"
End Sub
'stop
Private Sub CommandButton2_Click()
WebBrowser1.Stop
WebBrowser1.Visible = False
End Sub
 'supprime l'ascenceur
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
Me.WebBrowser1.Document.body.Scroll = "no"
End Sub
 



ThisWorkbook.Path & "\IMAGE_GIF.gif"


ThisWorkbook.Path est le chemin du dossier dans lequel se trouve le classeur contenant les macros.
L'avantage de cette méthode est que le classeur est opérationnel dans n'importe quel environnement.
Par contre les fichiers image doivent toujours être avec le classeur.

Mais je voudrais savoir si on peux aussi dans les formes (Shapes) que l'on dessine avec l'onglet "insertion" ???

je ne pense pas que ce soit possible!

Mais déjà avec cela il y a de quoi t'amuser!

@+ Le Pivert
0
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729 > cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024
Modifié le 14 mai 2020 à 12:15
Je me suis amusé a créé une image binaire. L'avantage tu n'as pas besoin de mettre une image avec le classeur:

https://www.cjoint.com/c/JEokmnv8gqQ

Voir cela pour créé une image binaire pour la 1 ère fois

https://silkyroad.developpez.com/VBA/ExcelImageGIF/#LI


Bonne amusement!

@+ Le Pivert
0
Réponse 4 / 5
duduleray
14 mai 2020 à 16:04
Salut CS_Le Pivert,

Merci pour les réponses et les fichiers démos.

C'est bien interressant et je vais voir comment faire pour centrer l'image automatiquement, il me semble avoir lu ça sur le net.

Merci pour ton aide, c'est gentil a toi, bonne après midi.

Cdlt Ray
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
duduleray
15 mai 2020 à 11:38
Salut cs_Le Pivert,

Après avoir chercher sur le net, j'ai trouver deux codes pour insérer automatiquement une image dans un WebBrowser mais ça fonctionne pas.

Aurai-tu svp un petit code qui ferai ça, ca m'aiderai bien.

Merci a toi et bonne journée avec le soleil.

Cdlt Ray
0
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
15 mai 2020 à 11:45
j'ai trouvé pour cette question:

je vais voir comment faire pour centrer l'image automatiquement

Avec le premier envoi sur cjoint, a mettre à la place: 

Option Explicit
'start
Private Sub CommandButton1_Click()
WebBrowser1.Visible = True
WebBrowser1.Navigate ThisWorkbook.Path & "\IMAGE_GIF.gif"
  WebBrowser1.Navigate _
   "ABOUT:<HTML><CENTER><HEAD><body scroll='no' LEFTMARGIN=30 TOPMARGIN=30><IMG " & _
        " SRC='" & ThisWorkbook.Path & "\IMAGE_GIF.gif" & "'</IMG></BODY></CENTER></HTML>"
End Sub
'stop
Private Sub CommandButton2_Click()
WebBrowser1.Stop
WebBrowser1.Visible = False
End Sub


le réglage se fait avec:

LEFTMARGIN=30 TOPMARGIN=30

A toi de jouer!
0
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729 > cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024
Modifié le 15 mai 2020 à 19:12
Si tu veux que ton image couvre la totalité du WebBrowser mettre ceci en adaptant les dimensions à ton environnement: 

Option Explicit
'start
Private Sub CommandButton1_Click()
WebBrowser1.Visible = True
WebBrowser1.Width = 100
WebBrowser1.Height = 100
WebBrowser1.Navigate ThisWorkbook.Path & "\IMAGE_GIF.gif"
 WebBrowser1.Navigate _
    "ABOUT:<HTML><CENTER><HEAD><body scroll='no' LEFTMARGIN=0 TOPMARGIN=0><IMG WIDTH=100" & _
        " HEIGHT=100" & _
        " SRC='" & ThisWorkbook.Path & "\IMAGE_GIF.gif" & "'</IMG></BODY></CENTER></HTML>"
End Sub
'stop
Private Sub CommandButton2_Click()
WebBrowser1.Stop
WebBrowser1.Visible = False
End Sub


Voilà je crois avoir fait le tour de la question

@+ Le Piver
0
duduleray > cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024
16 mai 2020 à 07:48
Salut cs_Le Pivert,

Merci pour le petit code, je vais essayer dès cette après midi.

Bon W-end a toi

Cdlt Ray
0

Discussions similaires

Téléchargements gratuits de film et dessin a.
alex69_26 -
MAXIMEKAMAGA -

2 réponses
a qu'el tome s'arette l'animé de nana
mira13015 -
nina -

7 réponses
téléchargé des films de dessins animés
djaz.123 -
41611209 -

6 réponses