Microsoft 365 Image dans Webbrowser

Francky79 · 16 Février 2024

Bonjour,

Pouvez-vous m'aider pour redimensionner des images dans un Webbrowser dans un UserForm ?
Et comment se positionner sur la bonne ligne de la feuille en partant de la valeur de la TextBox 1 de l'UserForm ?
Voir le fichier joint pour plus de clarté j'espère.

Merci pour votre aide.

patricktoulon · 17 Février 2024

Bonjour
pour commencer je me pose une question
pourquoi utilise tu un webbrowser pour afficher unune image "JPG"

ensuite combien même on utilisera le webbrowser alors ce sera comme ceci
remplace le code dans ton userform par celui ci

VB:

Private Sub ScrollBar1_Change()
    Dim Chemin As String, Ligne As Integer, img As Object
    Ligne = ScrollBar1.Value

    Set img = WebBrowser1.Document.getelementsbytagname("img")(0)
    TextBox1 = ActiveSheet.Range("E" & Ligne)
    'TextBox2 = .Range("V" & Ligne)

    Chemin = "C:\Users\franck.delaunay\Documents\7 Documents\Test\Nouveau dossier\" & Cells(Ligne, 5) & ".jpg"
    'Chemin = Environ("userprofile") & "\DeskTop\" & Cells(Ligne, 5) & ".jpg"
    img.src = ""
    If Dir(Chemin) <> ""...

Francky79 · 16 Février 2024

C'est bon pour la recherche.
Juste un coup de main pour le redimensionnement de l'image.
Merci

dysorthographie · 16 Février 2024

Bonjour,

VB:

<img src='" & Chemin & "' height='42' width='42'>

je t'invite à dimentionner que heigth ou le width si tu veux garder une certaine proportion entre la largeur et la hauteur.

Francky79 · 17 Février 2024

Bonjour,
Merci pour ta réponse mais je ne suis pas assez bon en VBA pour savoir comment intégrer cette ligne dans le code de l'UserForm.
encore merci pour ton aide.

dysorthographie · 17 Février 2024

Bonjour,
Tu n'es pas assez bon en VBA où tu es pas bon du tout ?

Tu sais aller d'Excel a VB [CTRL] + [G] ?

Tu sais retrouver le formulaire dans l'explorateur de projet ?

Tu sais aller dans le code du formulaire ?

Sais tu au-moins faire une recherche de <img src='" & Chemin & "' dans VBA [CTRL] + [F]?

Il te faudra apprendre un minimum car tu es le seul à pouvoir ajuster la taille de l'image à ta convenance.
D'une nous n'avons pas l'image, deux le rendu sur mon 13" risque de ne pas être le même que toi !

patricktoulon · 17 Février 2024

Bonjour
pour commencer je me pose une question
pourquoi utilise tu un webbrowser pour afficher unune image "JPG"

ensuite combien même on utilisera le webbrowser alors ce sera comme ceci
remplace le code dans ton userform par celui ci

VB:

Private Sub ScrollBar1_Change()
    Dim Chemin As String, Ligne As Integer, img As Object
    Ligne = ScrollBar1.Value

    Set img = WebBrowser1.Document.getelementsbytagname("img")(0)
    TextBox1 = ActiveSheet.Range("E" & Ligne)
    'TextBox2 = .Range("V" & Ligne)

    Chemin = "C:\Users\franck.delaunay\Documents\7 Documents\Test\Nouveau dossier\" & Cells(Ligne, 5) & ".jpg"
    'Chemin = Environ("userprofile") & "\DeskTop\" & Cells(Ligne, 5) & ".jpg"
    img.src = ""
    If Dir(Chemin) <> "" Then
        img.src = Chemin
    End If
End Sub

Private Sub UserForm_Activate()

    With WebBrowser1
        .Navigate "about:<html><body scroll='no'><center><img src='' height=80% ></img></center></BODY></html>"
        Do While .readystate <> 4: DoEvents: Loop
    End With
    With ScrollBar1
        .Min = 6
        .Max = Feuil1.Range("e65536").End(xlUp).Row
    End With
End Sub

Francky79 · 17 Février 2024

Merci Patricktoulon,

Pourquoi un webbrowser ? parce que c'est l'exemple que j'ai trouvé et ou je suis arrivé à faire presque ce que je voulais, si il y a une autre solution je suis preneur.

Encore merci pour ton aide.

patricktoulon · 18 Février 2024

re
bonjour
ben oui il y a d'autre solution avec un simple controls image dedans le userform
si joint les deux versions
modifie le chemin a ta convenance
le model V2 avec le controls image accepte les formats d'ymage ( jpg, jpeg, ,gif,, tiff, wmf ,bmp)

Francky79 · 18 Février 2024

Merci, je test ça, bonne fin de week-end.

Microsoft 365 Image dans Webbrowser

Francky79

XLDnaute Occasionnel

Pièces jointes

patricktoulon

Francky79

XLDnaute Occasionnel

dysorthographie

XLDnaute Accro

Francky79

XLDnaute Occasionnel

dysorthographie

XLDnaute Accro

patricktoulon

XLDnaute Barbatruc

Francky79

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

Pièces jointes

Francky79

XLDnaute Occasionnel

Discussions similaires