Comment inserer une image dans un Userform, l'image se trouve dans l'onglet
(Source)
et se nomme "MonImage"
merci à ceux qui savent
Bonne soirée à tous
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonsoir,
Private Sub UserForm_Initialize() répertoire = ThisWorkbook.Path nf = Dir(répertoire & "*.jpg") Do While nf <> "" Me.ChoixPhoto.AddItem nf nf = Dir Loop End Sub
Private Sub ChoixPhoto_Change() répertoire = ThisWorkbook.Path Me.Image1.Picture = LoadPicture(répertoire & "" & ChoixPhoto) End Sub
Comment inserer une image dans un Userform, l'image se trouve dans l'ongl et (Source) et se nomme "MonImage" merci à ceux qui savent Bonne soirée à tous
Bonsoir,
Private Sub UserForm_Initialize()
répertoire = ThisWorkbook.Path
nf = Dir(répertoire & "*.jpg")
Do While nf <> ""
Me.ChoixPhoto.AddItem nf
nf = Dir
Loop
End Sub
Private Sub ChoixPhoto_Change()
répertoire = ThisWorkbook.Path
Me.Image1.Picture = LoadPicture(répertoire & "" & ChoixPhoto)
End Sub
On 21 juin, 18:23, "jl.guitard" <jl.guit...@wanadoo.fr> wrote:
Bonjour,
Comment inserer une image dans un Userform, l'image se trouve dans l'ongl et
(Source)
et se nomme "MonImage"
merci à ceux qui savent
Bonne soirée à tous
Private Sub UserForm_Initialize() répertoire = ThisWorkbook.Path nf = Dir(répertoire & "*.jpg") Do While nf <> "" Me.ChoixPhoto.AddItem nf nf = Dir Loop End Sub
Private Sub ChoixPhoto_Change() répertoire = ThisWorkbook.Path Me.Image1.Picture = LoadPicture(répertoire & "" & ChoixPhoto) End Sub
Comment inserer une image dans un Userform, l'image se trouve dans l'ongl et (Source) et se nomme "MonImage" merci à ceux qui savent Bonne soirée à tous
JB
Affiche une photo dans un userform La photo est dans Feuil1
Private Sub UserForm_Initialize() ChDir ActiveWorkbook.Path Set img = Sheets("feuil1").Shapes("monimage") img.CopyPicture ActiveSheet.ChartObjects.Add(0, 0, img.Width * 0.95, img.Height * 0.95).Chart.Paste ActiveSheet.ChartObjects(1).Chart.export Filename:="monimage.jpg", FilterName:="jpg" ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete Me.Image1.Picture = LoadPicture("monimage.jpg") End Sub
JB
On 21 juin, 18:35, JB wrote:
Bonsoir,
Private Sub UserForm_Initialize() répertoire = ThisWorkbook.Path nf = Dir(répertoire & "*.jpg") Do While nf <> "" Me.ChoixPhoto.AddItem nf nf = Dir Loop End Sub
Private Sub ChoixPhoto_Change() répertoire = ThisWorkbook.Path Me.Image1.Picture = LoadPicture(répertoire & "" & ChoixPhoto) End Sub
> Comment inserer une image dans un Userform, l'image se trouve dans l'on glet > (Source) > et se nomme "MonImage" > merci à ceux qui savent > Bonne soirée à tous- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Affiche une photo dans un userform
La photo est dans Feuil1
Private Sub UserForm_Initialize()
ChDir ActiveWorkbook.Path
Set img = Sheets("feuil1").Shapes("monimage")
img.CopyPicture
ActiveSheet.ChartObjects.Add(0, 0, img.Width * 0.95, img.Height *
0.95).Chart.Paste
ActiveSheet.ChartObjects(1).Chart.export Filename:="monimage.jpg",
FilterName:="jpg"
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete
Me.Image1.Picture = LoadPicture("monimage.jpg")
End Sub
JB
On 21 juin, 18:35, JB <boisgont...@hotmail.com> wrote:
Bonsoir,
Private Sub UserForm_Initialize()
répertoire = ThisWorkbook.Path
nf = Dir(répertoire & "*.jpg")
Do While nf <> ""
Me.ChoixPhoto.AddItem nf
nf = Dir
Loop
End Sub
Private Sub ChoixPhoto_Change()
répertoire = ThisWorkbook.Path
Me.Image1.Picture = LoadPicture(répertoire & "" & ChoixPhoto)
End Sub
On 21 juin, 18:23, "jl.guitard" <jl.guit...@wanadoo.fr> wrote:
> Bonjour,
> Comment inserer une image dans un Userform, l'image se trouve dans l'on glet
> (Source)
> et se nomme "MonImage"
> merci à ceux qui savent
> Bonne soirée à tous- Masquer le texte des messages précédents -
Affiche une photo dans un userform La photo est dans Feuil1
Private Sub UserForm_Initialize() ChDir ActiveWorkbook.Path Set img = Sheets("feuil1").Shapes("monimage") img.CopyPicture ActiveSheet.ChartObjects.Add(0, 0, img.Width * 0.95, img.Height * 0.95).Chart.Paste ActiveSheet.ChartObjects(1).Chart.export Filename:="monimage.jpg", FilterName:="jpg" ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete Me.Image1.Picture = LoadPicture("monimage.jpg") End Sub
JB
On 21 juin, 18:35, JB wrote:
Bonsoir,
Private Sub UserForm_Initialize() répertoire = ThisWorkbook.Path nf = Dir(répertoire & "*.jpg") Do While nf <> "" Me.ChoixPhoto.AddItem nf nf = Dir Loop End Sub
Private Sub ChoixPhoto_Change() répertoire = ThisWorkbook.Path Me.Image1.Picture = LoadPicture(répertoire & "" & ChoixPhoto) End Sub
> Comment inserer une image dans un Userform, l'image se trouve dans l'on glet > (Source) > et se nomme "MonImage" > merci à ceux qui savent > Bonne soirée à tous- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
jl.guitard
Je souhaiterai inserer l'image à partir d'une image qui se trouve dans un feuille et non à partir d'un dossier comme l'exemple ci dessous J'ai essayé avec ceci UserForm1.Image1.Picture = LoadPicture(Sheets("Source").Shapes("Image")) mais ca ne passe pas merci
"JB" a écrit dans le message de news:
Bonsoir,
Private Sub UserForm_Initialize() répertoire = ThisWorkbook.Path nf = Dir(répertoire & "*.jpg") Do While nf <> "" Me.ChoixPhoto.AddItem nf nf = Dir Loop End Sub
Private Sub ChoixPhoto_Change() répertoire = ThisWorkbook.Path Me.Image1.Picture = LoadPicture(répertoire & "" & ChoixPhoto) End Sub
Je souhaiterai inserer l'image à partir d'une image qui se trouve dans un
feuille et non à partir d'un dossier comme l'exemple ci dessous
J'ai essayé avec ceci
UserForm1.Image1.Picture = LoadPicture(Sheets("Source").Shapes("Image"))
mais ca ne passe pas
merci
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
7af2d8c5-a079-4370-a91c-011a133324c6@a1g2000hsb.googlegroups.com...
Bonsoir,
Private Sub UserForm_Initialize()
répertoire = ThisWorkbook.Path
nf = Dir(répertoire & "*.jpg")
Do While nf <> ""
Me.ChoixPhoto.AddItem nf
nf = Dir
Loop
End Sub
Private Sub ChoixPhoto_Change()
répertoire = ThisWorkbook.Path
Me.Image1.Picture = LoadPicture(répertoire & "" & ChoixPhoto)
End Sub
Je souhaiterai inserer l'image à partir d'une image qui se trouve dans un feuille et non à partir d'un dossier comme l'exemple ci dessous J'ai essayé avec ceci UserForm1.Image1.Picture = LoadPicture(Sheets("Source").Shapes("Image")) mais ca ne passe pas merci
"JB" a écrit dans le message de news:
Bonsoir,
Private Sub UserForm_Initialize() répertoire = ThisWorkbook.Path nf = Dir(répertoire & "*.jpg") Do While nf <> "" Me.ChoixPhoto.AddItem nf nf = Dir Loop End Sub
Private Sub ChoixPhoto_Change() répertoire = ThisWorkbook.Path Me.Image1.Picture = LoadPicture(répertoire & "" & ChoixPhoto) End Sub
Tatanka
Bonjour,
Sans macro :
1) Insère un contrôle Image dans ton UserForm 2) Sélectionne ton image et tape Ctrl+C 3) Sélectionne la propriété Picture de ton contrôle Image et tape Ctrl+V.
Serge
"jl.guitard" a écrit dans le message de news: 485d2b0a$0$842$
Bonjour,
Comment inserer une image dans un Userform, l'image se trouve dans l'onglet (Source) et se nomme "MonImage" merci à ceux qui savent Bonne soirée à tous
Bonjour,
Sans macro :
1) Insère un contrôle Image dans ton UserForm
2) Sélectionne ton image et tape Ctrl+C
3) Sélectionne la propriété Picture de ton contrôle Image
et tape Ctrl+V.
Serge
"jl.guitard" <jl.guitard@wanadoo.fr> a écrit dans le message de news: 485d2b0a$0$842$ba4acef3@news.orange.fr...
Bonjour,
Comment inserer une image dans un Userform, l'image se trouve dans l'onglet (Source)
et se nomme "MonImage"
merci à ceux qui savent
Bonne soirée à tous
1) Insère un contrôle Image dans ton UserForm 2) Sélectionne ton image et tape Ctrl+C 3) Sélectionne la propriété Picture de ton contrôle Image et tape Ctrl+V.
Serge
"jl.guitard" a écrit dans le message de news: 485d2b0a$0$842$
Bonjour,
Comment inserer une image dans un Userform, l'image se trouve dans l'onglet (Source) et se nomme "MonImage" merci à ceux qui savent Bonne soirée à tous