utilisation de PictureFormat

[benjamin]

salut a tous,
j'ai un problème que je n'arrive pas a résoudre depuis un petit moment
j'ai cette source:
Sub imgComment()
Sheets('Appareils').Activate
Range('F2:F65536').Select
On Error Resume Next
Dim nom$
For Each c In Selection
nom = c.Value
If Not c = '' Then
With c
.AddComment
.Comment.Shape.Fill.UserPicture ActiveWorkbook.Path & '\\' & 'Photos' & '\\' & nom & '.jpg'
.Comment.Visible = False 'Masque le commentaire
End With
End If
Next
End Sub
je souhaite juste ajouter qqc pour que les images que j'insère dans mon commentaire ne soit pas redimensionné (cad pas disproportionnées).
j'ai deja posé cette question sur plusieur forum et on m'a dis qu'il faut utiliser cette commande
.ActiveCell.Comment.Shape.PictureFormat
mais étant un débutant en vba je n'ai pas réussi a l'integrer dans ma source
Si qqun a une idée ca me serais d'un grand secours .
merci bcp

 

[pierrejean]

bonjour benjamin

a tester:

With c
.AddComment
.Comment.Shape.Fill.UserPicture ActiveWorkbook.Path & '' & 'Photos' & '' & nom & '.jpg'

.Comment.Shape.PictureFormat

.Comment.Visible = False 'Masque le commentaire
End With

 

[benjamin]

bonjour pierrejean
cette source fonctionne mais les images ne sont tjrs pas redimensionnées...
je ne comprend pas pourquoi je n'arrive pas a faire ce redimensionnement
merci quand même.

 

[MichelXld]

rebonsoir Benjamin , bonsoir Pierre-Jean

je t'ai répondu ici

Lien supprimé


bonne soirée
MichelXld

 

[benjamin]

bonjour a tous
merci pour cette source qui fonctionne 🙂
enfin j'arrive a faire ce que je voulais
merci beaucoup