Gif sans cadre.

[Rick@]

Bonjour,

J'ai bien essayé d'insérer un gif dans ma feuille, mais voilà impossible de faire disparaitre la fameuse barre déroulante. Avec la macro proposée dans un forum 2009, je n'arrive pas à visualiser le gif... est ce vraiment possible?

Merci encore.

 

[libellule85]

Re : Gif sans cadre.

Bonjour Rick@, le forum,

Essaye les codes ci-dessous :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If Target.Address = "$B$2" Then
    WebBrowser1.Navigate "C:\xxxx\Gifs Animés\or.gif"
      Else
    WebBrowser1.Navigate "C:\xxxx\Gifs Animés\or.gif"
      End If
End Sub

Private Sub WebBrowser1_DownloadComplete()
    On Error Resume Next

    With WebBrowser1.Document.body
        .Style.backgroundcolor = "yellow" 'Fond
        .Style.BorderStyle = "none" 'Cadre
        .Scroll = "no" 'Barres
    End With
End Sub

Cordialement

 

[Hulk]

Re : Gif sans cadre.

Hello Rick,

Regarde le fichier joint.

La première fois, il faudra que tu ailles sur une autre feuille, puis tu reviens sur la feuille avec les gifs, ça devrait marcher.

Bonne chance !

EDIT : "Gif1" et "Gif2" sont donc les noms des WebBrowser...
Slt Libellule... collision.

 

[Rick@]

Re : Gif sans cadre.

Merci à tous les deux!!! Problème résolu de deux façons!!!!!
Vraiment, Merci!!!