Insérer image, VBA
Résolu
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?
--
Thor tue
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?
--
Thor tue
Configuration: ...
6 réponses
-
ModérateurIl n'y a pas de quoi.
@+ -
Ca marche!
Merci! -
ModérateurA 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... -
Petit souci, si finalement n annule et on ne veut pas d'image ben ça bug. comment faire?
-
Ok ca marche!
Merci! -
ModérateurSalut 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
