Insérer image.gif animé dans un shape

duduleray -  
 duduleray -
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

5 réponses

  2. duduleray
     
    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
    1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
       
      Un exemple de ce que l'on peut faire:

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

      @+ Le Pivert
      0
  3. duduleray
     
    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
    1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
       
      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
      1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730 > cs_Le Pivert Messages postés 8437 Statut Contributeur
         
        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
  4. duduleray
     
    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

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

    Posez votre question
  6. duduleray
     
    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
    1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
       
      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
      1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730 > cs_Le Pivert Messages postés 8437 Statut Contributeur
         
        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
      2. duduleray > cs_Le Pivert Messages postés 8437 Statut Contributeur
         
        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