XL 2019 Problème avec WeBrowser

AIXELS · 5 Octobre 2022

Bonjour à tous les amis du Forum.
Je reviens vers vous une fois de plus.
J'ai un webrowser (imprimante animée), cela fonctionne
très bien hormis qu'il reste une petite bande blanche à
droite que je n'arrive pas à supprimer.

VB:

WebBrowser2.Navigate _
        "about:<html><body scroll='no' BottomMargin=0 LeftMargin=0 TopMargin=0 RigthMargin=0>" & _
                                                                                               "<img src='" & Imprimante & "' width='100%' height='100%'></img></body></html>"

Existe-t-il moyen de supprimer cette bande à droite.
Pour info, j'ai fait une image écran, la largeur de la bande
blanche est plus grande.
Merci pour votre aide.
Bien cordialement.

patricktoulon · 5 Octobre 2022

bonjour
mais d'ou sortent ces propriétés

BottomMargin=0 LeftMargin=0 TopMargin=0 RigthMargin=0

passe par du css ca passera mieux
et crée le en dom dynamiquement ton document

VB:

With WebBrowser2
        .Navigate "about:blank"
        Do While .readystate < 4: DoEvents: Loop
        With .Document
            .body.Style.margin = 0
            Set img = .body.appendchild(.createelement("img"))
            img.src = "C:\Users\patrick\Desktop\printermachine.JPG"
            With img.Style
                .Height = "100%"
                .Width = "100%"
            End With
        End With
    Debug.Print .Document.getelementsbytagname("HTML")(0).outerhtml
    End With

et regarde donc voir dans la console le code obtenu

AIXELS · 5 Octobre 2022

Bonsoir @patricktoulon
Merci pour ta réponse.
Les bras m'en tombent !

Je mesure le long chemin qui me reste à parcourir.

passe par du css ca passera mieux

Qu'est-ce que le CSS ?

Merci pour ton aide.
Bien cordialement.

patricktoulon · 5 Octobre 2022

re
CSS est l’acronyme de « Cascading Style Sheets » ce qui signifie « feuille de style en cascade ».
Le CSS correspond à un langage informatique permettant de mettre en forme des pages web (HTML ou XML).
alors tu a le style outline et le style inline
inline =à l'intériur du outertext de l'element html
outline=dans la balise style prefixer par la classe ou l'id ou chaine d'elements+(identifiant classe,id,outagname)

ça a l'air tres compliqué mais il n'en est rien

exemple ton image
ci dessous c'est du style inline(à l’intérieur du outertext)

HTML:

<img style='width:100%;height:100%;' src='blablabla'></img>

ca c'est du style outline(à l'exterieur de l'element html et dans la balise style
le style outline est plus communement appelé informatiquement parlant le computedstyle

Code:

<html>
   <head>
      <style>
          #toto  {
           width:100%;
           height:100%:
                 }
     </style>

    </head>
<body>
<img  id="toto" src='blablabla'></img>
</body>
</html>

voilà

AIXELS · 5 Octobre 2022

Merci pour l'info

Pas tout compris, on part de loin.
En tout cas, merci de faire partager ton savoir.

AIXELS · 10 Mars 2023

Bonjour à tous les amis du Forum.
Je reviens vers vous suite un message d'erreur récurent apparu il y'a 2 jours.

Tous les userforms contenant des Gifs, m'affichent un message d'erreur
voir pièces jointes : Erreur d'exécution 424.

Cela fonctionnait très bien grâce à votre aide et dans cette partie, c'est
@patricktoulon qui m'a donné la solution et je l'en remercie encore ainsi
que tous les contributeurs.

Code:

With WebBrowser2
        .Navigate "about:blank"
        Do While .readystate < 4: DoEvents: Loop
        With .Document
            .body.Style.margin = 0
            Set img = .body.appendchild(.createelement("img"))
            img.src = "C:\Users\patrick\Desktop\printermachine.JPG"
            With img.Style
                .Height = "100%"
                .Width = "100%"
            End With
        End With
    Debug.Print .Document.getelementsbytagname("HTML")(0).outerhtml
    End With

Avez-vous une idée à quoi est-ce dû et la façon de régler ce problème ?
Par avance merci pour aide.
Bien cordialement.

XL 2019 Problème avec WeBrowser

AIXELS

XLDnaute Occasionnel

Pièces jointes

patricktoulon

XLDnaute Barbatruc

AIXELS

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

AIXELS

XLDnaute Occasionnel

AIXELS

XLDnaute Occasionnel

Pièces jointes

Discussions similaires