XL 2019 Insérer Photo dans commentaire

[albio]

Bonjour,
J'aimerais insérer une photo dans un commentaire...mais impossible
et ça ne marche pas en cliquant sur les coins.
Sur la piece jointe il y a un screen shot quand je fais un clic sur le coin de l'écran.

 

[riton00]

Bonjour,

Voir Pj

Slts

 

[albio]

Bonjour,

Voir Pj

Slts

Merci pour la réponse mais les indications de format du commentaire n'apparaissent pas.

 

[mapomme]

Bonjour à tous,

Voir instructions dans fichier joint.

edit: bonsoir @riton00 😉 : trop tard, trop lent je suis 😕

 

[mapomme]

Merci pour la réponse mais les indications de format du commentaire n'apparaissent pas.

Attention !
Sur mon office 365, les "anciens commentaires" tels qu'on les connaissait s’appellent désormais "Notes"

Quand on clique droit sur la note pour avoir le menu "Format de commentaire", il faut avant de cliquer-droit s'assurer que le curseur a la forme de 4 flèches (nord, est, sud ouest). Pour cela s'approcher du cadre de la note. Sinon on obtient un menu qui ne permet que de modifier la police du texte de la note et non le format de la note elle-même.

Notez que Krosoft n'a pas adapté tous les menus et sous-menus : certains ont intégré le nouveau terme note alors que d’autres ont conservé la dénomination commentaire.

 

[Usine à gaz]

Bonjour Mapomme, le Forum,
C'est super bien lol 🙂
lionel,

 

[albio]

Attention !
Sur mon office 365, les "anciens commentaires" tels qu'on les connaissait s’appellent désormais "Notes"

Quand on clique droit sur la note pour avoir le menu "Format de commentaire", il faut avnt de clique droit s'assurer que le curseur ait la forme de 4 flèches (nord, est, sud ouest). Pour cela s'approcher du cadre de la note. Sinon on obtient un meni qui ne permet que de modifier la police du texte de la note et non le format de la note elle-même.

Notez que Krosoft n'a pas adapté tous les menus et sous-menus : certains ont pris le nouveau terme note alors que d’autres ont conservé la dénomination commentaire.

Merci mapomme, idem ca ne fonctionne pas, quand je clic droit voici ce qui apparait. les indications de "format de commentaire" n'apparaissent pas...

 

[Jacky67]

Bonjour à tous
😈🎃🥴
😇 😉 😉 😉 😉

 

[mapomme]

Re,

Vous êtes un adepte d'Apple me semble-t-il. En tant que mapomme, je ne peux pas vous jeter la pierre 😀

Pouvez-vous joindre un petit classeur avec une note "vierge" dans une ou deux cellules pour que je vois ce que ça donne sur PC ?

 

[albio]

Re,

Vous êtes un adepte d'Apple me semble-t-il. En tant que mapomme, je ne peux pas vous jeter la pierre 😀

Pouvez-vous joindre un petit classeur avec une note "vierge" dans une ou deux cellules pour que je vois ce que ça donne sur PC ?

Exact Apple ...😵

 

[mapomme]

@albio,

Je ne vois pas dans quelles cellules vous avez inséré une note ?

 

[albio]

Désolé je partais.
J’ai mis une insertion sans commentaire.
Petit coin rouge.

 

[mapomme]

Bonsoir @albio,

Un petit code VBA pour insérer une image dans une note au sein de la cellule active.

• sélectionner une cellule
• tapez la combinaison des deux touches Ctrl+i
• sélectionner le fichier image à placer dans la note

Par curiosité, pouvez-vous télécharger le fichier joint et suivre les instruction qui y figurent ? Et me dire si cela fonctionne chez vous sur Apple.

Un petit fichier avec quelques images est fourni. Le décompresser sur le support de votre choix ou utiliser vos propres images.

Le code est dans module1 :

Sub InsérerImageDansNote()
Const LargeurMax = 150
Dim Cellule As Range, wks As Worksheet, image, MonImage As Picture, larg, haut
 
   Set Cellule = ActiveCell: Set wks = Cellule.Parent       ' cellule où placer la note - Feuille contenant cette cellule
   image = Application.GetOpenFilename("JPG Files, *.jpg")  ' acquisition du chemin et nom de l'image
   If image = False Then Exit Sub                           ' si aucun fichier, alors quitter sans rien faire
 
   Set MonImage = wks.Pictures.Insert(image)       ' insertion d'une image sur la feuille
   larg = MonImage.Width: haut = MonImage.Height   ' lecture largeur et hauteur
   MonImage.Delete                                 ' supprimer l'image sur la feuille

   Cellule.ClearComments: Cellule.AddComment       ' suppression et recréation de la note
   With Cellule
      .Comment.Visible = False                     ' note visible qu'au passage sur la cellule
      .Comment.Text ""                             ' vider le texte de la note
      .Comment.Shape.Fill.UserPicture image        ' insérer l'image dans la note
      .Comment.Shape.Width = LargeurMax            ' fixer la largeur à la constante
      .Comment.Shape.Height = (haut / larg) * LargeurMax   'redimensionner la note (rapport entre largeur et hauteur)
   End With
End Sub