Discussion :

[plasto590807]

Bonjour,

Comment afficher une photo sur un formulaire (donc un UserForm....lol ) ?

J'ai pioché sur youtube (dont voici le lien :http://https://www.youtube.com/watch?v=dUehVNjO70c - Le titre de ce Tutoriel est : Comment afficher des images provenant d'un dossier ).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub Image_CreateurApplication_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
 
Dim Photo As String
Dim TypeImage As String
Dim dossier As String
Dim PotoCreateur As String
 
Photo = "Laurent Crendal"
TypeImage = ".jpg"
dossier = "I:\_____IMAGES\BELOTTE 2020 - Excel et VBA 2019\Personnes\"
PhotoCreateur = dossier & Photo & TypeImage
 
activesheet.shapes.addpicture Filename:=PhotoCreateur & TypeImage,linktomsotrue,left:=45,top:=50,width:=200,height:=200
End Sub

Rien ne 'affiche (surtout la photo).

Pouvez-vous m'aider ?

merci

[Menhir]

La variable dossier est utilisée deux fois dans le chemin de fichier.

[plasto590807]

J'ai enlevé la variable dossier dans le chemin de fichier mais malheureusement le probleme persiste.

comme ci-dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub Image_CreateurApplication_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
 
Dim Photo As String
Dim TypeImage As String
Dim dossier As String
Dim PotoCreateur As String
 
Photo = "Laurent Crendal"
TypeImage = ".jpg"
dossier = "I:\_____IMAGES\BELOTTE 2020 - Excel et VBA 2019\Personnes\"
PhotoCreateur = dossier & Photo & TypeImage
 
ActiveSheet.Shapes.Addpicture Filename:=PhotoCreateur & TypeImage,linktomsotrue,left:=45,top:=50,width:=200,height:=200
End Sub

[mfoxy]

https://www.developpez.net/forums/d2...r-personnages/

Ici tu parles d'un formulaire, mais donne du code pour ajouter dans un Shape sur une feuille.

Tu veux dans un userform ou dans une feuille ?
La solution proposé dans le post susmentionné de conviens pas ?

[Menhir]

Rien ne 'affiche (surtout la photo).

Etant donné que le code contient des erreur de syntaxe, il est probable que la macro ne se lance même pas.
Quand une ligne s'affiche en rouge dans l'éditeur, c'est que la syntaxe n'est pas bonne.

Regarde la syntaxe de AddPicture : https://docs.microsoft.com/fr-fr/off...pes.addpicture

[plasto590807]

Bonjour,

je vous montre le formulaire comme ci-dessous :



et le code que j'ai (comme ci-dessous) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Private Sub Image_CreateurApplication_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
 
'Variable de l'image
 
Dim Photo As String
Dim dossier As String
Dim PhotoEnVrai As String
 
'affectation de l'image
Photo = "Laurent Crendal.bmp"
dossier = "I:\_____IMAGES\BELOTTE 2020 - Excel et VBA 2019\Personnes\"
 
'concaténation => obtention PhotoReel
PhotoEnVrai = dossier & PhotoEnVrai
 
dossier.Shapes.AddPicture "I:\_____IMAGES\BELOTTE 2020 - Excel et VBA 2019\Personnes\", True, True, Left:=45, Top:=50, Width:=200, Height:=200
 
End Sub

Merci de m'aider pour l'affichage de la photo car aucune image ne s'affiche !!!


Merci.

[Menhir]

Il n'y a même pas de nom de fichier dans ton premier paramètre de AddPicture.