curiosus43
XLDnaute Nouveau
Bonjour à tous
Dans les commentaires d'une liste de tableaux crées par feu mon père, je voulais incorporer des mini-photos, et j'ai entré la procédure suivante que j'ai trouvée sur ce site:
Sub PhotoCommentaire2()
repertoire = ThisWorkbook.Path & "\" ‘ image même répertoire que le classeur
For Each c In Range("A2", [A65000].End(xlUp))
c.ClearComments
c.AddComment
c.Comment.Text Text:=c.Value ‘nom du fichier sans l’extension
c.Comment.Shape.Fill.UserPicture repertoire & c.Value & ".jpg"
c.Comment.Shape.Height = 90
c.Comment.Shape.Width = 90
c.Comment.Shape.ScaleHeight 1.2, msoFalse, msoScaleFromTopLeft
Next c
End Sub
ceci fonctionne, mais comme les tableaux sont numérotés et qu'il y a des commentaires dans leur libellé, je voudrais pouvoir nommer ceux-ci avec des chiffres au lieu des lettres. Je voudrais aussi que ces mini-photos s'adaptent si possible en proportion au format original car il y a beaucoup de formats différents (portraits, paysages et autres parfois très disparates).
Merci d'avance
Dans les commentaires d'une liste de tableaux crées par feu mon père, je voulais incorporer des mini-photos, et j'ai entré la procédure suivante que j'ai trouvée sur ce site:
Sub PhotoCommentaire2()
repertoire = ThisWorkbook.Path & "\" ‘ image même répertoire que le classeur
For Each c In Range("A2", [A65000].End(xlUp))
c.ClearComments
c.AddComment
c.Comment.Text Text:=c.Value ‘nom du fichier sans l’extension
c.Comment.Shape.Fill.UserPicture repertoire & c.Value & ".jpg"
c.Comment.Shape.Height = 90
c.Comment.Shape.Width = 90
c.Comment.Shape.ScaleHeight 1.2, msoFalse, msoScaleFromTopLeft
Next c
End Sub
ceci fonctionne, mais comme les tableaux sont numérotés et qu'il y a des commentaires dans leur libellé, je voudrais pouvoir nommer ceux-ci avec des chiffres au lieu des lettres. Je voudrais aussi que ces mini-photos s'adaptent si possible en proportion au format original car il y a beaucoup de formats différents (portraits, paysages et autres parfois très disparates).
Merci d'avance
