Insérer image, VBA
Résolu
Farfadet88
Messages postés
7780
Date d'inscription
Statut
Membre
Dernière intervention
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
Sur une Userform je cherche à permettre à l'utilisateur d'aller chercher une image dans le fichier de son choix (C:/ D:/ E:/) et qu'elle s'affiche en tant que fond de commentaire dans la case de mon choix. Est-ce possible?
Sur une Userform je cherche à permettre à l'utilisateur d'aller chercher une image dans le fichier de son choix (C:/ D:/ E:/) et qu'elle s'affiche en tant que fond de commentaire dans la case de mon choix. Est-ce possible?
A voir également:
- Insérer image, VBA
- Insérer une vidéo dans powerpoint - Guide
- Insérer signature word - Guide
- Insérer liste déroulante excel - Guide
- Insérer espace insécable word - Guide
- Insérer une image dans word sans bouger le texte - Guide
6 réponses
Salut Farfadet,
Dans ton UserForm, créé un bouton de commande que tu nommeras insérer image ou ce que tu veux... double clic dessus et insère ce code :
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.InitialFileName = CurDir
.Filters.Clear
.Filters.Add Description:="Images", Extensions:="*.jpg", Position:=1
.Title = "Choix de l'image"
If .Show = -1 Then TheFile = .SelectedItems(1) Else TheFile = 0
End With
If TheFile = 0 Then MsgBox ("aucun fichier image choisi")
Range("A1").AddComment
Range("A1").Comment.Visible = True
[A1].Comment.Shape.Fill.UserPicture TheFile
Sources et plus d'infos ici
Dans ton UserForm, créé un bouton de commande que tu nommeras insérer image ou ce que tu veux... double clic dessus et insère ce code :
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.InitialFileName = CurDir
.Filters.Clear
.Filters.Add Description:="Images", Extensions:="*.jpg", Position:=1
.Title = "Choix de l'image"
If .Show = -1 Then TheFile = .SelectedItems(1) Else TheFile = 0
End With
If TheFile = 0 Then MsgBox ("aucun fichier image choisi")
Range("A1").AddComment
Range("A1").Comment.Visible = True
[A1].Comment.Shape.Fill.UserPicture TheFile
Sources et plus d'infos ici
A la place de :
If TheFile = 0 Then MsgBox ("aucun fichier image choisi")
mettre :
If TheFile = 0 Then
MsgBox ("aucun fichier image choisi")
Exit Sub
End If
Bonne question, je n'ai pas pensé à cela...
If TheFile = 0 Then MsgBox ("aucun fichier image choisi")
mettre :
If TheFile = 0 Then
MsgBox ("aucun fichier image choisi")
Exit Sub
End If
Bonne question, je n'ai pas pensé à cela...
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question