XL 2019 Problème avec WeBrowser

AIXELS

XLDnaute Occasionnel
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.
 

Pièces jointes

  • WEBROWSER.xlsx
    46 KB · Affichages: 4

patricktoulon

XLDnaute Barbatruc
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
 

patricktoulon

XLDnaute Barbatruc
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

XLDnaute Occasionnel
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.
 

Pièces jointes

  • Debogage.jpg
    Debogage.jpg
    125.8 KB · Affichages: 9
  • Erreur d'execution 424 Objet requis.jpg
    Erreur d'execution 424 Objet requis.jpg
    9.5 KB · Affichages: 8
  • Lien aide.txt
    238 bytes · Affichages: 0

Statistiques des forums

Discussions
311 730
Messages
2 081 978
Membres
101 854
dernier inscrit
micmag26