Microsoft 365 Image dans Webbrowser

F

Francky79

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

Pièces jointes

  • Récup images.xlsm
    26.2 KB · Affichages: 9
Solution
patricktoulon
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) <> ""...
Trier par date Trier par votes
dysorthographie

dysorthographie

XLDnaute Accro
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 !
 
Dernière édition:
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
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
demo.gif
 
Dernière édition:
Vote positif 0 Vote négatif
Solution
patricktoulon

patricktoulon

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

Pièces jointes

  • Récup images v1 webbrowser.xlsm
    24.7 KB · Affichages: 3
  • Récup images v 2 controls image .xlsm
    23.3 KB · Affichages: 4
Vote positif 0 Vote négatif

Discussions similaires

AIXELS
  • Question
Microsoft 365 Suppression barres de défilement dans WebBrowser
2
Réponses
22
Affichages
906
patricktoulon
patricktoulon
chinel
  • Résolu(e)
XL 2016 problème d'image dans un contrôle image
Réponses
13
Affichages
382
chinel
chinel
chinel
  • Résolu(e)
XL 2016 contrôle image
Réponses
14
Affichages
380
patricktoulon
patricktoulon
L
  • Résolu(e)
XL 2021 recherche valeur si une cellule contient un numéro
Réponses
5
Affichages
119
lola18
L
T
  • Résolu(e)
XL 2019 Importer des images
2
Réponses
23
Affichages
904
Tsimbina
T
lynyrd
  • Question
XL 2021 Image dans l'userform
Réponses
9
Affichages
297
patricktoulon
patricktoulon
J
  • Résolu(e)
XL pour MAC Addition de timecode
Réponses
9
Affichages
284
mapomme
mapomme
chris6999
  • Question
Microsoft 365 Macro pour redimensionner une zone nommée
Réponses
12
Affichages
319
Staple1600
Staple1600
V
  • Question
Microsoft 365 Créer un fichier élève avec présences, groupes et fiche personnelle de commentaire par élève....
Réponses
3
Affichages
340
Phil69970
Phil69970
cathodique
  • Résolu(e)
XL 2010 Afficher image (réduction taille proportionnelle)
Réponses
10
Affichages
544
patricktoulon
patricktoulon

Membres actuellement en ligne

2 membres et 56 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 097
Messages
2 116 187
Membres
112 679
dernier inscrit
Yupanki