Macro pour insérer une image dans un commentaire

****EDIT**********

J'ai trouvé ma réponse sur un autre site web

Bonjour je recherche une facon de coder une macro pour insérer une image dans un commentaire mais je ne trouve rien même lorsque j'essaie d'enregistrer la macro pour fouiner un peu ca n'enregistre rien de bien concret.

Pour accélerer le processus pour insérer une image dans un commentaire:

1. on efface le texte dans la boîte de commentaires

2. clic droit sur une BORDURE

3. format de commentaires

4.Onglet: Couleurs et traits;

5. Comme couleur on choisi: motifs et textures

6. On choisi l'onglet image ....

merci de votre aide

Sub Img_in_Commentbox()  
With Application.FileDialog(msoFileDialogFilePicker)  
         .AllowMultiSelect = False          'Only one file   
         .InitialFileName = CurDir         'directory to open the window  
         .Filters.Clear                    'Cancel the filter  
         .Filters.Add Description:="Images", Extensions:="*.jpg", Position:=1  
         .Title = "Choose image"  

         If .Show = -1 Then TheFile = .SelectedItems(1) Else TheFile = 0  
    End With  
'No file selected  
If TheFile = 0 Then  
MsgBox ("No image selected")  
Exit Sub  
End If  
Range("A1").AddComment  
    Range("A1").Comment.Visible = True  
[A1].Comment.Shape.Fill.UserPicture TheFile  
End Sub
Rechercher des sujets similaires à "macro inserer image commentaire"