XL 2016 Photo dans commentaire

[Claudy]

Bonjour,
j'essaie d’intégrer une photo nommée image dans un commentaire via la procédure ci dessous:

Sub commentaire()
Dim fichier As Shape
fichier = Shapes.Range(Array("Image"))
 With Cells(3, 3)
 
            .ClearComments
            .AddComment
            .Comment.Text Text:=""
 
            With .Comment.Shape
 
                .Fill.UserPicture fichier
                .ScaleWidth 1, msoFalse, msoScaleFromTopLeft
                .ScaleHeight 1, msoFalse, msoScaleFromTopLeft
                .LockAspectRatio = msoFalse
                .Height = 159.75
                .Width = 120#
 
            End With
 
        End With

Mais évidemment ça bugue...

Merci d'avance pour l'aide,
Claudy

 

[Victor21]

Bonjour Claudy.

Un coup d'oeil ici .

 

[Claudy]

Merci victor...
Ha ce Boisgontier...

Merci aussi à lui,
Claudy