XL 2016 Userform - Comment réduite image en fonction du WebBrowser

W

webbacor

XLDnaute Nouveau
Bonjour,

je voudrai pouvoir réduire l'image insérer en fonction de la taille du webbrowse.

Private Sub lstImages_Click() WebBrowser1.Navigate (txtChemin & "" & lstImages.List(lstImages.ListIndex)) lblNomActuel = txtChemin & "\" & lstImages.List(lstImages.ListIndex) End Sub

Merci d'avance
 
Trier par date Trier par votes
fanch55

fanch55

XLDnaute Barbatruc
Bonjour,
A tester:
VB: 
Private Sub lstImages_Click()
Dim Img
    WebBrowser1.Navigate "about:blank"
    lblNomActuel = txtChemin & "" & lstImages.List(lstImages.ListIndex)
    Style = "display:block;margin-left:auto;margin-right:auto"
    WebBrowser1.Document.Write "<img id='MyImg' style=""" & Style & """ src='" & lblNomActuel & "'>"
    Set Img = WebBrowser1.Document.GetElementById("MyImg")
        If Img.Width > WebBrowser1.Width Then Img.Style.Width = "100%"
        If Img.Height > WebBrowser1.Height Then Img.Style.Height = "100%"
    Set Img = Nothing
End Sub
 
Vote positif 0 Vote négatif
fanch55

fanch55

XLDnaute Barbatruc
patricktoulon à dit:
Bonsoir
a l'attention de @fanch55 voir les deux userforms
changer le chemin de l'image
Cliquez pour agrandir...
Salut Patrick,
J'ai cherché à conserver les proportions :
1632850607724.png
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
ok bien reçu
faudrait essayer avec diverses images de formes différentes
comme le principe du ratio range/imagede ma fonction perso ca s'applique ici aussi

et puis il ne faut pas comparer le width du browser mais celui du body enfant de document

ps :je sais pas si tu a vu mais je l'ai monté en DOM et non codé en dur avec un write ;)
en dom pratiquement tout les membre de style sont applicables on supprime le tiret du code style en dur pour pointer le membre
 
Vote positif 0 Vote négatif
fanch55

fanch55

XLDnaute Barbatruc
patricktoulon à dit:
ok bien reçu
faudrait essayer avec diverses images de formes différentes
comme le principe du ratio range/imagede ma fonction perso ca s'applique ici aussi

et puis il ne faut pas comparer le width du browser mais celui du body enfant de document

ps :je sais pas si tu a vu mais je l'ai monté en DOM et non codé en dur avec un write ;)
en dom pratiquement tout les membre de style sont applicables on supprime le tiret du code style en dur pour pointer le membre
Cliquez pour agrandir...
En Dom, c'est bien plus propre effectivement .
Pour le width je suis fondamentalement d'accord, il vaut mieux utiliser
If Img.Width > WebBrowser1.Document.body.ClientWidth Then Img.Width = "100%"
If Img.Height > WebBrowser1.Document.body.ClientHeight Then Img.Height = "100%"
Le write m'évitait de faire un appendchild ...
 
Vote positif 0 Vote négatif
W

webbacor

XLDnaute Nouveau
Bonjour et merci encore.
novice je n'arrive pas vraiment à suivre vos commentaires. Desolé
l'image est bien redimensionnée mais
Private Sub lstFichiers_Click() Dim Img Dim style WebBrowser1.Navigate "about:blank" lblNomActuel = txtChemin & "" & lstFichiers.List(lstFichiers.ListIndex) style = "display:block;margin-left:auto;margin-right:auto" WebBrowser1.Document.Write "<img id='MyImg' style=""" & style & """ src='" & lblNomActuel & "'>" Set Img = WebBrowser1.Document.GetElementById("MyImg") If Img.Width > WebBrowser1.Width Then Img.style.Width = "100%" If Img.Height > WebBrowser1.Height Then Img.style.Height = "100%" Set Img = Nothing End Sub
je n'arrive qu'a afficher qu'une seule photo de ma lstFichiers
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
ca c'est un autre probleme alors

@fanch55
reprends mon userform et met lui ce code





VB: 
Private Sub lstImages_Click()
    Dim Img, WX#, HX#, Ratio#
    'lblNomActuel = txtChemin & "" & lstImages.List(lstImages.ListIndex)
    lblNomActuel = "C:\Users\Public\Pictures\Sample Pictures\aaaa.jpg"

    With WebBrowser1
        .Navigate "about:blank"
        Do While .ReadyState < 4: DoEvents: Loop
        Set body = .Document.getelementsbytagname("body")(0)
        With body.Style
            .margin = "0"
            .Width = "100%"
            .Height = "100%"
        End With
        Set Img = .Document.createelement("img")
        Img.src = lblNomActuel
        Img.ID = "MyImg"
        With Img.Style
            .display = "block"
            .MarginLeft = "auto"
            .MarginRight = "auto"
            .Position = "absolute"    ' sans ca on ne peut mettre une image ailleur qu'a gauche
            WebBrowser1.Document.body.appendchild (Img)

            ' c'est maintenant que l'on s'amuse
            ' on calcule le ratio width et height du  body/image
            WX = body.ClientWidth / Img.offsetwidth
            HX = body.ClientHeight / Img.offsetheight

            Ratio = Application.Min(WX, HX)    ' on prend le plus petit

            Img.Width = (Img.offsetwidth * Ratio) - 6    'on applique a l'image - le 6 car j'ai enlever la marge du body(plein webbrowser)
            Img.Height = (Img.offsetheight * Ratio) - 6    'pareil
            .Left = (body.ClientWidth - Img.Width - 6) / 2  'on la centre
        End With

        ' voir le code en bon et due forme d'une balise Img html
        TextBox1 = .Document.getelementsbytagname("body")(0).outerhtml
    End With
    Set Img = Nothing
End Sub

Private Sub UserForm_Click()

End Sub
1632854540241.png
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
re
et si au lieu d'utiliser les atribut width et height mais on resize le width et height dans le style on a plus besoins de la marge-6 c'est plus precis
VB: 
Private Sub lstImages_Click()
    Dim Img, wx#, hx#, Ratio#
    'lblNomActuel = txtChemin & "" & lstImages.List(lstImages.ListIndex)
    lblNomActuel = "C:\Users\Public\Pictures\Sample Pictures\aaaa.jpg"

    With WebBrowser1
        .Navigate "about:blank"
        Do While .ReadyState < 4: DoEvents: Loop
        Set body = .Document.getelementsbytagname("body")(0)
        With body.Style
            .margin = "0"
            .Width = "100%"
            .Height = "100%"
        End With
        Set Img = .Document.createelement("img")
        Img.src = lblNomActuel
        Img.ID = "MyImg"
        With Img.Style
            .display = "block"
            .MarginLeft = "auto"
            .MarginRight = "auto"
            .Position = "absolute"    ' sans ca on ne peut mettre une image ailleur qu'a gauche
            WebBrowser1.Document.body.appendchild (Img)

            ' c'est maintenant que l'on s'amuse
            ' on calcule le ratio width et height du  body/image
            wx = (body.ClientWidth) / Img.offsetwidth
            hx = (body.ClientHeight) / Img.offsetheight
            TBwx = wx: TBhx = hx
            Ratio = Application.Min(wx, hx)    ' on prend le plus petit

            .Width = Round((Img.offsetwidth * Ratio)) & "px"   'on applique a l'image - le 6 car j'ai enlever la marge du body(plein webbrowser)
            .Height = "auto"    'Round((Img.offsetheight * Ratio)) & "px"     ' la même chose que lockaspectratio
            .Left = ((body.ClientWidth) - Img.Width) / 2     'on la centre en CSS
            .Top = ((body.ClientHeight) - Img.Height) / 2     'on la centre en CSS
        End With

        ' voir le code en bon et due forme d'une balise Img html
        TextBox1 = .Document.getelementsbytagname("body")(0).outerhtml
    End With
    Set Img = Nothing
End Sub
 
Vote positif 0 Vote négatif
fanch55

fanch55

XLDnaute Barbatruc
webbacor à dit:
Bonjour et merci encore.
novice je n'arrive pas vraiment à suivre vos commentaires. Desolé
l'image est bien redimensionnée mais
je n'arrive qu'a afficher qu'une seule photo de ma lstFichiers
Cliquez pour agrandir...
A tester ( c'est bien une image à la fois ? ) :
VB: 
Private Sub lstImages_Click()
Dim Img
    With WebBrowser1
        .Navigate "about:blank"
        Do While .ReadyState < 4: DoEvents: Loop
        lblNomActuel = txtChemin & "" & lstFichiers.List(lstFichiers.ListIndex)
        Style = "display:block;margin-left:auto;margin-right:auto"
        .Document.Write "<img id='MyImg' style=""" & Style & """ src='" & lblNomActuel & "'>"
        Set Img = .Document.GetElementById("MyImg")
            If Img.Width > .Document.body.ClientWidth Then Img.Style.Width = "100%"
            If Img.Height > .Document.body.ClientHeight Then Img.Style.Height = "100%"
        Set Img = Nothing
    End With
End Sub
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
regarde @fanch55
ton dernier si on enlève la marge au document on ne peux le dimensionner a 100%
VB: 
Private Sub lstImages_Click()
    Dim Img
    With WebBrowser1
        .Navigate "about:blank"
        Do While .ReadyState < 4: DoEvents: Loop
        'lblNomActuel = txtChemin & "" & lstFichiers.List(lstFichiers.ListIndex)
        lblNomActuel = "C:\Users\Public\Pictures\Sample Pictures\aaaa.jpg"
        style0 = "margin:0;width:100%;height:100%;"""
        style1 = "display:block;margin:0"
        .Document.Write "<body style=" & style0 & "><img id='MyImg' style=""" & style1 & """ src='" & lblNomActuel & "'></body>"
        Set Img = .Document.GetElementById("MyImg")
        If Img.Width > .Document.body.ClientWidth Then Img.Style.Width = "100%"
        If Img.Height > .Document.body.ClientHeight Then Img.Style.Height = "100%"
        Set Img = Nothing
        TextBox1 = .Document.getelementsbytagname("body")(0).outerhtml
    End With
End Sub
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
regarde en fait ce qui se passe avec tes deux tests
regarde bien le code obtenu dans le textbox
en aucun cas l'image est redimensionnée
1632858098405.png


autrement dis si l'image est plus petite elle reste comme tel
c'est pour ca que je disais tout a l'heure il faut faire comme ma fonction ratio range/image
car avec ça peut être supérieur ou inférieur
 
Dernière édition:
Vote positif 0 Vote négatif

Discussions similaires

L
  • Résolu(e)
XL 2021 Insérer une image en fonction de donnée
Réponses
4
Affichages
426
piga25
piga25
Angus HEYERDAHL
  • Question Question
Microsoft 365 Résolu - Fichier introuvable (image VBA)
2
Réponses
25
Affichages
1 K
TooFatBoy
TooFatBoy
Y
  • Résolu(e)
Affichage Userform en plein écran quelque soit la taille de l'écran
2
Réponses
22
Affichages
984
youguybass
Y
patricktoulon
astuce pour loader un png dans un activx image dans un userform sans api
Réponses
0
Affichages
398
patricktoulon
patricktoulon
S
  • Résolu(e)
XL 2016 Comment faire ressortir la ligne sélectionnée dans un tableau
Réponses
2
Affichages
473
Stéphane_1
S
J
  • Question Question
XL 2019 (Résolu) VBA - Mise en surbrillance de ligne (fonction dans ruban)
Réponses
3
Affichages
517
Julien_B
J
jeff1494
  • Question Question
XL 2021 Orientation d'une image dans le commentaire d'une cellule
2 3
Réponses
42
Affichages
2 K
AtTheOne
AtTheOne
D
  • Question Question
XL 2021 VBA - Erreur 1004 aléatoire - Image/Logo
Réponses
10
Affichages
657
crocrocro
C
M
  • Résolu(e)
Microsoft 365 Image stockée dans une feuille à l'initialisation du userform
2
Réponses
20
Affichages
2 K
meyscal
M
C
  • Question Question
XL 2021 Positionnement sur une cellule en fonction de la date, du jour et de l'heure
Réponses
2
Affichages
424
clausen
C
G
  • Résolu(e)
XL 2016 Tri Tableau en fonction d'un bouton
Réponses
6
Affichages
392
Goose
G
D
  • Question Question
XL 2019 Message diffèrent en fonction état booléens
Réponses
3
Affichages
583
darkjedi
D
A
  • Question Question
XL 2016 Adapter une image à une cellule
2
Réponses
16
Affichages
2 K
Dudu2
Dudu2
D
  • Question Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
2 K
Dranreb
Dranreb
R
  • Question Question
XL 2016 userform / remplir combobox suivant une autre combobox
Réponses
3
Affichages
545
ChTi160
ChTi160
tactic6
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
462
tactic6
tactic6
miguelangelo
  • Question Question
Microsoft 365 Récupérer le nom du combobox dès qu'il change de valeur
Réponses
2
Affichages
484
mromain
mromain
B
  • Résolu(e)
XL 2019 Tri onglets en fonction du contenu d'une cellule VBA
Réponses
9
Affichages
612
babie971
B
F
  • Question Question
Microsoft 365 UserForm maximiser la taille du formulaire par rapport à la taille de l'écran
2
Réponses
22
Affichages
2 K
TooFatBoy
TooFatBoy
C
  • Question Question
Autres Dans Excel, à partir d'un UserForm, copier l'adresse sélectionnée dans enveloppe de publipostage Word et ouvrir la fenêtre "aperçu avant impression"
Réponses
11
Affichages
673
Chatron
C

Membres actuellement en ligne

4 membres et 80 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 283
Messages
2 118 013
Membres
113 408
dernier inscrit
lausablk