Ajuster image dans WebBrowser

Le 15/04/2022 à 12:42

Bonjour le forum, j'ai besoin de vos lumières

Je cherche un moyen d'afficher une image dans un WebBrowser à partir d'une url de type "htttp://xxx ... xxx.jpg" (jusque là tout va bien). J'aimerai réussir à :

Retirer les bandes blanches du contrôle WebBrowser
Que l'image remplisse l'intégralité du contrôle WebBrowser tout en gardant les proportions

Je suis sur que c'est possible car j'avais (il faut un temps) trouvé la response à mon besoin mais impossible de le retrouver aujourd'hui

Je vous met ci-dessous le code pour remplir le WebBrowser qu'il faut modifier pour répondre à mon besoin. Pour l'exemple vous trouverez aussi un fichier de travail. Par avance, merci de l'intéret porté au sujet

URL = Me.ComboBox1.List(, 1)
    WebBrowser1.Navigate "ABOUT:<HTML><CENTER><HEAD><body scroll='no' LEFTMARGIN=0 TOPMARGIN=0><IMG WIDTH=" & _
        WebBrowser1.Width & " HEIGHT=" & WebBrowser1.Height & _
        " SRC='" & URL & "'</IMG></BODY></CENTER></HTML>"

Le 15/04/2022 à 13:26

C'est bon j'ai retrouvé !!!

Le code est ajusté à mon besoin, l'otiginal vient de là : https://stackoverflow.com/questions/37195962/how-to-fit-image-size-on-excel-webbrowser-control

Private Sub ComboBox1_Change()
Dim src  As String
Dim img

    src = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 1)
    With Me.WebBrowser1
        .Navigate "about:blank"
        .Document.Write "<body style='background-color: buttonface; overflow: hidden;'></body>"
        .Document.Close
        DoEvents
        .Document.Write "<body id='body' style='background-color: buttonface; overflow: hidden; margin: 0; text-align: center;'><img id='img' src='" & src & "'></body>"
        Set img = .Document.getElementById("img")
        img.Style.Height = "100%"
    End With
End Sub

Le 15/04/2022 à 13:36

Bonjour,
Pas tout compris !?
Le résultat chez moi, est correct...
Je te renvoie ton fichier avec une petite modification et un lien vers codes-sources.com qui traite du WebBrowser (pour information).
Bon weekend.
Cdlt.

Note: Peux-tu renvoyer ton fichier mis à jour que je vois les modifications .

Fichier supprimé à la demande de GGauiter

Le 15/04/2022 à 14:04

Voilà le résulta final !

Je voulais passé absolument par des WebBrowser car à l'origine ma logique était de télécharger l'image en local, de charger cette image sur une feuille Excel afin de la redimensionner pour quelle corresponde à un contrôle "Image", de l'exporter et de la charger dans le contrôle "Image". Donc autant dire que quand il faut charger 50 images ça prend du temps.

Grace au WebBrowser le temps de chargement est plus que correct !

Jean-Eric, pourrais-tu stp supprimer le fichier de ton poste précédent car il contient du code et des infos personnels que j'ai oublié d'enlever, merci

90images.xlsm (48.04 Ko)