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: 3
Vote positif 0 Vote négatif

Discussions similaires

Geth@lex
  • Question
XL 2013 WebBrowser
Réponses
1
Affichages
244
kiki29
kiki29
J
  • Question
XL 2019 Image dans UserForm
Réponses
14
Affichages
355
patricktoulon
patricktoulon
J
  • Question
Microsoft 365 Excel exporter en Image JPG
Réponses
4
Affichages
258
patricktoulon
patricktoulon
P
  • Question
Microsoft 365 Problèmes multipages dans usf
2
Réponses
16
Affichages
655
ChTi160
ChTi160
S
  • Question
Microsoft 365 comment afficher une images dans INCORPORER("Forms.Image.1";"") avec une Clique de la souris
Réponses
1
Affichages
223
fanch55
fanch55
F
  • Résolu(e)
Microsoft 365 Comment mettre image d'une note dans Userform ?
Réponses
5
Affichages
274
Francky79
F
M
  • Question
XL 2010 sauvegarder des images en fichier pdf par vba
Réponses
7
Affichages
310
patricktoulon
patricktoulon
L
  • Question
Microsoft 365 Macro Insertion image dans cellule
Réponses
3
Affichages
281
Dranreb
Dranreb
Angus HEYERDAHL
  • Question
Microsoft 365 Résolu - Fichier introuvable (image VBA)
2
Réponses
25
Affichages
406
TooFatBoy
TooFatBoy
A
  • Question
XL 2016 Diviser une image .PNG en 2 en VBA excel
Réponses
14
Affichages
326
patricktoulon
patricktoulon

Membres actuellement en ligne

5 membres et 41 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
312 206
Messages
2 086 219
Membres
103 158
dernier inscrit
laufin