Insérer image, VBA Résolu/Fermé

Question

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?

pijaku · Answer

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

Farfadet88 · Answer

Ok ca marche!

Merci!

Farfadet88 · Answer

Petit souci, si finalement n annule et on ne veut pas d'image ben ça bug. comment faire?

pijaku · Answer

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...

Farfadet88 · Answer

Ca marche!

Merci!

pijaku · Answer

Il n'y a pas de quoi.
@+

Insérer image, VBA

6 réponses

Discussions similaires