Microsoft 365 Image dans Webbrowser

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
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

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

Vote positif 0 Vote négatif
Hello,
pour le contrôle activeX Webbrowser, en utilisant les bons attributs dans la balise img du html on peut centrer l'image, la faire rentrer dans le contrôle activeX en conservant l'aspect ratio, et en utilisant un formulaire redimensionnable avec des contrôles redimensionnables, la taille de l'image suit la taille de ce container.
VisuImgJpgWB.gif

Ami calmant, J.P
 
Vote positif 1 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

G
  • Résolu(e)
XL 2010 Faire patienter l'utilisateur avec le défilement dans un webbrowser
Réponses
5
Affichages
136
Gnedea
G
J
  • Résolu(e)
Microsoft 365 afficher image selon valeur cellule
Réponses
2
Affichages
106
juju91
J
R
  • Question Question
Microsoft 365 Afficher des images insérées dans le classeur sur un UserForm
Réponses
4
Affichages
105
Redba13
R
C
  • Résolu(e)
XL 2010 Collage valeur dans formulaire avec Userform
Réponses
4
Affichages
93
ChTi160
ChTi160
AIXELS
  • Question Question
Microsoft 365 Suppression barres de défilement dans WebBrowser
2
Réponses
22
Affichages
1 K
patricktoulon
patricktoulon
S
  • Résolu(e)
XL 2013 Copier-Coller une ligne dans tableau variable, et la manipuler.
Réponses
4
Affichages
101
StéphaneDeLà
S
K
  • Question Question
XL 2016 Modification dans userform et sheet
Réponses
13
Affichages
172
Valtrase
Valtrase
J
  • Résolu(e)
XL 2021 insertion d'image provenant d'unecellule dans un userform
2
Réponses
22
Affichages
316
vgendron
vgendron
J
  • Question Question
Microsoft 365 userform avec contrôle image
Réponses
12
Affichages
199
JULLIEN Philippe
J
L
  • Question Question
Microsoft 365 Calcul d'un Chiffre d'affaires selon % avancement
Réponses
3
Affichages
111
l.et.lilou
L
BenHarber
  • Question Question
Microsoft 365 Insérer une image dans un usf ?
2 3
Réponses
32
Affichages
481
Marc Vanlindt
M
chinel
  • Résolu(e)
XL 2016 problème d'image dans un contrôle image
Réponses
13
Affichages
433
chinel
chinel
patricktoulon
  • Question Question
Autres question d'opinion
Réponses
2
Affichages
77
patricktoulon
patricktoulon
A
  • Question Question
Microsoft 365 recherche ,remplissage userform
Réponses
3
Affichages
88
azzouziwalid
A
A
  • Question Question
Microsoft 365 Affichage , recherche et extraire des données .
Réponses
1
Affichages
69
vgendron
vgendron
jeff1494
  • Résolu(e)
XL 2021 Extraction images depuis commentaire de cellule vers dossier.
11 12 13
Réponses
182
Affichages
2 K
patricktoulon
patricktoulon
@
  • Question Question
XL 2019 Calcule de moyenne
Réponses
10
Affichages
117
@badil
@
jcf6464
  • Question Question
Microsoft 365 Saisie par userform ne fonctionne pas
Réponses
10
Affichages
99
jcf6464
jcf6464
E
  • Résolu(e)
XL 2019 défiler listbox en même temps que textbox dans une frame
Réponses
5
Affichages
194
escudo
E
C
  • Résolu(e)
Microsoft 365 Combobox dans excel
Réponses
8
Affichages
136
fanch55
fanch55
Retour