Microsoft 365 Suppression barres de défilement dans WebBrowser

  • Initiateur de la discussion Initiateur de la discussion AIXELS
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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: 18
  • WebBrowser.xlsm
    WebBrowser.xlsm
    37.4 KB · Affichages: 3
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour