Microsoft 365 Suppression barres de défilement dans WebBrowser

AIXELS

XLDnaute Occasionnel
Supporter XLD
Bonjour à tous les Amis du Forum. :)
En reprenant une ancienne application qui fonctionnait très bien
Jusqu'au changement de la version d'Excel, je suis sous Microsoft 365.
Les WebBrowser contenant des Gif animés, affichent des barres de défilement.
Comment les supprimer à l'affichage
. Je vous joins les fichiers nécessaires.
Pour l'exemple, le chemin d'accès du gif est sous :

VB:
  'Chemin à modifier pour affiche le GIF
            img.src = "C:\TEMP\porte de sortie.gif"

A l'époque, c'est @patricktoulon qui m'avait gentiment résolu mon problème.
Merci pour aide.
Bien cordialement.
 

Pièces jointes

  • porte de sortie.gif
    porte de sortie.gif
    3.5 KB · Affichages: 15
  • WebBrowser.xlsm
    37.4 KB · Affichages: 3

jurassic pork

XLDnaute Occasionnel
une modification de la méthode de patricktoulon pour utiliser plusieurs gif animés :

VB:
Private Sub UserForm_Activate()
    Caption = Space(28) & Application.Proper(Format(Now, "dddd dd mmmm yyyy")) & " - il est : " & Format(Now, "hh:mm")
    CommandButton2.SetFocus
    affiche_image WebBrowser1, "D:\temp\porte de sortie.gif"
    affiche_image WebBrowser2, "D:\temp\ligne_filante_21.gif"
End Sub
 
Private Sub affiche_image(wb As Object, FichierImG)
    Dim images As Object, img As Object
    With wb
        .Navigate FichierImG
        Do While .ReadyState < 4: DoEvents: Loop 'navigate complete
        With .Document.Body
            .Scroll = "no"
            .TopMargin = "0"
            .BottomMargin = "0"
            .LeftMargin = "0"
            .RightMargin = "0"
            .Style.Border = "none"
            Set img = .all(0)
            img.Style.Height = "100%"
            img.Style.Width = "100%"
        End With
    End With
End Sub

A noter que j'ai toujours un plantage d'Excel quand je clique sur un des gifs animés en Excel2021 64 bits windows 11. En Excel 2019 32 bits je n'ai pas de plantage
 

Statistiques des forums

Discussions
315 134
Messages
2 116 611
Membres
112 810
dernier inscrit
raphounet