XL 2019 inserer commentaire image en macro

la fifine

XLDnaute Occasionnel
bonjour à tous
je cherche le moyen d'inserer une image en commentaire dans la cellule active mais avec une macro et un bouton
j'ai essayé avec l'enregistreur mais ca fonctionne pas
actuellement je le fais à la main mais c'est fastidieux à la longue (trop de clics)
comment feriez vous cela?
merci
 

la fifine

XLDnaute Occasionnel
VB:
Private Sub CommandButton6_Click()


  nf = Application.GetOpenFilename("Fichiers jpg,*.jpg")
  If nf = False Then Exit Sub
  With ActiveCell
    .ClearComments
    .AddComment
    .Comment.Shape.Fill.UserPicture nf
    .Comment.Shape.Height = 50
    .Comment.Shape.Width = 50
    .Comment.Shape.ScaleHeight 1.2, msoFalse, msoScaleFromTopLeft
   End With
End Sub
j'ai trouvé ca et ca fonctionne très bien
 

Discussions similaires