Insérer image, VBA

Résolu
Farfadet88 -  
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
Configuration: ...

6 réponses

  • Votes
  • Date
  • Date décroissante
  1. pijaku Modérateur
    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
    2. Farfadet88 Auteur
      Petit souci, si finalement n annule et on ne veut pas d'image ben ça bug. comment faire?
      1.  pijaku Modérateur
        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...

        Discussions similaires

        Retrouver l'image originale d'une photo modifiée
        Raven

        10 réponses