Erreur lors d'une tentative d'insertion d'images

[JpGraphic]

Bonjour à toute la communauté.
Je suis confronté à un petit souci d’insertion d’images dans des notes de cellules.
Je joins un fichier exemple où je décris la procédure étape par étape de ma facon de procéder avec le message d’erreur qui en découle.
j’ai regardé dans les options d’office 365 si il y avait une instruction à cocher ou décocher, mais rien ne me semble anormal.
Merci pour votre aide.

Bonne journée à tous
photo_note.xlsm (834,3 Ko)

[Jacquinot_WILL-FREAD]

Bonjour,

Essayer de voir la taille de l’image,
J’ai essayé et ça fonction parfaitement

Cordialement

[JpGraphic]

Bonjour @Jacquinot_WILL-FREAD
Rien a faire
Dès que je clique sur sélectionner une image, j’ai cette fenêtre erreur qui apparait !!!

[taz067]

Chez moi aussi ça fonctionne

[JpGraphic]

@taz067
c’est à ne rien comprendre
chez moi, rien a faire. Dois je désinstaller puis réinstaller office ? pour corriger ce bug
J’avoue que je ne comprends pas pourquoi j’ai ce message d’erreur.
tout fonctionne dans le format de commentaire; Couleur, dégradé, texture, motif, tous sauf image !!

[Cow18]

je pense que Jacquinot a raison, vos dimensions sont peut-être quasi zéro

Sub JpGraphic()

     Dim MonImage
     With Application.FileDialog(msoFileDialogFilePicker)
          .Title = "Sélectionnez un Image dans ce note"
          .ButtonName = "Insérer image"
          .Filters.Clear
          .Filters.Add "Images", "*.png; *.jpg"
          .Show
          If .SelectedItems.Count = 0 Then Exit Sub
          MonImage = .SelectedItems(1)
     End With

     Application.ActiveCell.ClearComments    's'il y a déjà une note, supprimez-la
     With Application.ActiveCell.AddComment
          With .Shape
               '.Width = 200                  'éventuellement modifier les dimensions
               ' .Height = 300
               .Fill.UserPicture MonImage
          End With
          '.Text Text:="Ceci est une pipe" 'éventuellement un texte
          '.Visible = False 'éventuellement cacher
     End With
End Sub

[Jacquinot_WILL-FREAD]

Essayez des images Hors Connexion

[JpGraphic]

Bonjour à tous, @taz067 , @Cow18 , @Jacquinot_WILL-FREAD

apparemment, il s’agissait d’un bug. J’ai désinstallé puis réinstallé office 365 et cela fonctionne maintenant.
Merci à vous.
Bonne journée