Bonjour,
Je ne connais pas de techniques pour le faire en Office 365. Mais cette fonction permet de créer un commentaire avec image en miniature :
Function ImageViewer(image As String) As String
Dim comm As Comment
Dim fichier
fichier = Dir(image)
If fichier <> vbNullString Then
Set comm = Application.ThisCell.Comment
If comm Is Nothing Then Set comm = Application.ThisCell.AddComment()
comm.Text " "
comm.Shape.Fill.UserPicture image
ImageViewer = ChrW(&H25BA)
Else
ImageViewer = "Pas d'image"
End If
End Function
à utiliser ainsi :
=ImageViewer("C:\Nouveau dossier\trop\KEN.jpg")