Pouvoir mettre plusieurs image à l'aide de differents combobox dans un userform
Fermé
Malo
-
28 déc. 2020 à 17:06
cs_Le Pivert Messages postés 7883 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 - 29 déc. 2020 à 15:53
cs_Le Pivert Messages postés 7883 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 - 29 déc. 2020 à 15:53
A voir également:
- Pouvoir mettre plusieurs image à l'aide de differents combobox dans un userform
- Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image de manchots sur une image de plage. retrouvez l'image originale de la plage. que cachent les manchots ? ✓ - Forum Windows
- Ce fichier contient l'historique des livres empruntés à la bibliothèque. combien de titres différents contient-il ? ✓ - Forum Excel
- Recherche par image - Guide
- Image iso - Guide
- Faststone image viewer - Télécharger - Visionnage & Diaporama
4 réponses
yg_be
Messages postés
21303
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
1 326
28 déc. 2020 à 21:18
28 déc. 2020 à 21:18
bonjour,
si je vois bien, ton code travaille avec une combobox existante.
qu'essaies-tu de faire? créer d'autres combobox?
merci de veiller à appliquer ceci: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
si je vois bien, ton code travaille avec une combobox existante.
qu'essaies-tu de faire? créer d'autres combobox?
merci de veiller à appliquer ceci: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
bonsoir,
oui exactement, enfaite je suis actuellement bloqué ici ;
Private Sub UserForm_Initialize()
Set f = Sheets("photos")
For Each s In f.Shapes
Me.ComboBox1.AddItem s.Name
Next
??????????????????????????????????????????????
End Sub
----------------------------------------------------------------------------------------------------
Private Sub ComboBox1_Change()
Set s = f.Shapes(CStr(Me.ComboBox1))
s.CopyPicture xlScreen, xlBitmap
With s.Parent.ChartObjects.Add(0, 0, s.Width, s.Height).Chart
While .Shapes.Count = 0
DoEvents
.Paste
Wend
.Export "monimage.jpg", "Jpg"
.Parent.Delete
End With
Me.Image1.PictureSizeMode = fmPictureSizeModeZoom
Me.Image1.Picture = LoadPicture("monimage.jpg")
Kill "monimage.jpg"
End Sub
----------------------------------------------------------------------------------------------------
Private Sub ComboBox2_Change()
Set s = f.Shapes(CStr(Me.ComboBox2))
s.CopyPicture xlScreen, xlBitmap
With s.Parent.ChartObjects.Add(0, 0, s.Width, s.Height).Chart
While .Shapes.Count = 0
DoEvents
.Paste
Wend
.Export "monimage.jpg", "Jpg"
.Parent.Delete
End With
Me.Image2.PictureSizeMode = fmPictureSizeModeZoom
Me.Image2.Picture = LoadPicture("monimage.jpg")
Kill "monimage.jpg"
End Sub
Je ne sais pas quoi inscrire au niveau des "?" pour que les
combobox puissent affichés des images différente simultanément.
Les images sont en internes sur une première feuille "photos" et une deuxième "photos1"
oui exactement, enfaite je suis actuellement bloqué ici ;
Private Sub UserForm_Initialize()
Set f = Sheets("photos")
For Each s In f.Shapes
Me.ComboBox1.AddItem s.Name
Next
??????????????????????????????????????????????
End Sub
----------------------------------------------------------------------------------------------------
Private Sub ComboBox1_Change()
Set s = f.Shapes(CStr(Me.ComboBox1))
s.CopyPicture xlScreen, xlBitmap
With s.Parent.ChartObjects.Add(0, 0, s.Width, s.Height).Chart
While .Shapes.Count = 0
DoEvents
.Paste
Wend
.Export "monimage.jpg", "Jpg"
.Parent.Delete
End With
Me.Image1.PictureSizeMode = fmPictureSizeModeZoom
Me.Image1.Picture = LoadPicture("monimage.jpg")
Kill "monimage.jpg"
End Sub
----------------------------------------------------------------------------------------------------
Private Sub ComboBox2_Change()
Set s = f.Shapes(CStr(Me.ComboBox2))
s.CopyPicture xlScreen, xlBitmap
With s.Parent.ChartObjects.Add(0, 0, s.Width, s.Height).Chart
While .Shapes.Count = 0
DoEvents
.Paste
Wend
.Export "monimage.jpg", "Jpg"
.Parent.Delete
End With
Me.Image2.PictureSizeMode = fmPictureSizeModeZoom
Me.Image2.Picture = LoadPicture("monimage.jpg")
Kill "monimage.jpg"
End Sub
Je ne sais pas quoi inscrire au niveau des "?" pour que les
combobox puissent affichés des images différente simultanément.
Les images sont en internes sur une première feuille "photos" et une deuxième "photos1"
yg_be
Messages postés
21303
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
1 326
28 déc. 2020 à 22:39
28 déc. 2020 à 22:39
peux-tu utiliser les balises de code, comme expliqué ici: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
yg_be
Messages postés
21303
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
1 326
28 déc. 2020 à 22:42
28 déc. 2020 à 22:42
"pour que les combobox puissent affichés des images différente"
quelles images veux-tu dans quelles combobox?
quelles images veux-tu dans quelles combobox?
Malo
>
yg_be
Messages postés
21303
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
28 déc. 2020 à 22:56
28 déc. 2020 à 22:56
n'importe quelle image (.png) que j'ai chargé dans différentes feuilles.
yg_be
Messages postés
21303
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
1 326
>
Malo
29 déc. 2020 à 11:11
29 déc. 2020 à 11:11
toutes les images dans toutes les combobox?
Malo
>
yg_be
Messages postés
21303
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
29 déc. 2020 à 11:17
29 déc. 2020 à 11:17
non des images différentes dans chaque combobox
Merci beaucoup pour l’investissement, mais ce n'est pas le programme qu'il me faut ...
Enfaite je veux ajouter sur une image de fond d'autres images a l'aide des combobox, par exemple je prend en fond l'image d'une maison et je veux pouvoir choisir a l'aide d'un combobox différentes personnes, d'un autre combobox différentes décoration etc ...
Enfaite je veux ajouter sur une image de fond d'autres images a l'aide des combobox, par exemple je prend en fond l'image d'une maison et je veux pouvoir choisir a l'aide d'un combobox différentes personnes, d'un autre combobox différentes décoration etc ...
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
29 déc. 2020 à 15:53
29 déc. 2020 à 15:53
Pour ce que tu veux faire, il faut utiliser Photoshop:
https://www.google.com/search?q=incruster+une+image+dans+une+autre+photoshop&oq=incruster+une+image&aqs=chrome.2.0j69i57j0l6.12089j1j4&sourceid=chrome&ie=UTF-8
https://www.google.com/search?q=incruster+une+image+dans+une+autre+photoshop&oq=incruster+une+image&aqs=chrome.2.0j69i57j0l6.12089j1j4&sourceid=chrome&ie=UTF-8