Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion

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


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
Identifiez-vous ou inscrivez-vous pour participer.
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

J
  • Résolu(e)
XL 2021 insertion d'image provenant d'unecellule dans un userform
2
Réponses
22
Affichages
583
vgendron
J
  • Question Question
XL 2021 activesheet.shapes suivant la valeur d'une cellule
Réponses
5
Affichages
218
JUAN45
J
Capturer et imprimer ou exporter en pdf un userform
Réponses
4
Affichages
395
PHV62
P
Y
  • Résolu(e)
Affichage Userform en plein écran quelque soit la taille de l'écran
2
Réponses
22
Affichages
1 K
youguybass
Y
  • Question Question
Microsoft 365 Résolu - Fichier introuvable (image VBA)
2
Réponses
25
Affichages
1 K
TooFatBoy
L
  • Résolu(e)
XL 2021 Insérer une image en fonction de donnée
Réponses
4
Affichages
504
piga25
astuce pour loader un png dans un activx image dans un userform sans api
Réponses
2
Affichages
649
patricktoulon
D
  • Question Question
XL 2021 VBA - Erreur 1004 aléatoire - Image/Logo
Réponses
10
Affichages
881
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
J
  • Question Question
XL 2019 (Résolu) VBA - Mise en surbrillance de ligne (fonction dans ruban)
Réponses
3
Affichages
656
Julien_B
J
R
  • Question Question
XL 2016 userform / remplir combobox suivant une autre combobox
Réponses
3
Affichages
636
ChTi160
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
593
tactic6
A
  • Question Question
XL 2016 Adapter une image à une cellule
2
Réponses
16
Affichages
2 K
Dudu2
D
  • Question Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
2 K
Dranreb
C
  • Question Question
XL 2021 Positionnement sur une cellule en fonction de la date, du jour et de l'heure
Réponses
2
Affichages
537
clausen
C
D
  • Question Question
XL 2019 Message diffèrent en fonction état booléens
Réponses
3
Affichages
680
darkjedi
D
  • Question Question
Microsoft 365 Récupérer le nom du combobox dès qu'il change de valeur
Réponses
2
Affichages
575
mromain
  • Résolu(e)
XL 2013 icon avec une image Mso dans la barre de titre du UserForm
Réponses
10
Affichages
1 K
patricktoulon
B
  • Résolu(e)
XL 2019 Tri onglets en fonction du contenu d'une cellule VBA
Réponses
9
Affichages
736
babie971
B
L
  • Question Question
Microsoft 365 Définir la touche échap pour fermer Userform avec onglets Multipage
Réponses
5
Affichages
549
vgendron
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…