demande d'aide sur les commentaires - VB/VBA/VBS - Programmation
MarshPosté le 27-04-2006 à 11:13:33
bonjour g un petit problème car je voudrais redimensionner automatiquement les images ki apparaisent dans les commentaire d'une colonne car pour l'instant tout les images sont redimensionné dans le commentaire ki a toujours la meme taille je crois ke c le paramètre stretch qu'il fo utiliser mais j'y arrive pas . source: Sub imgComment() [F2:F1000].SpecialCells(xlCellTypeFormulas).Select Dim nom$ On Error Resume Next For Each C In Selection nom = C.Value With C .AddComment .Comment.Shape.Fill.UserPictures ActiveWorkbook.Path & "\Photos" & "\" & nom & ".jpg" End With Next End Sub
cette source me permet d'ajouter un commentaire en fonction du texte dans la cellule, la photo correspondant au texte de la cellule se met en commentaire . est ce que qqun peut m'aider pour que ces image soit de leur taile origine ou du moin non disproportionner. merci beaucoup
Marsh Posté le 27-04-2006 à 11:13:33
bonjour
g un petit problème car je voudrais redimensionner automatiquement les images ki apparaisent dans les commentaire d'une colonne car pour l'instant tout les images sont redimensionné dans le commentaire ki a toujours la meme taille
je crois ke c le paramètre stretch qu'il fo utiliser mais j'y arrive pas .
source:
Sub imgComment()
[F2:F1000].SpecialCells(xlCellTypeFormulas).Select
Dim nom$
On Error Resume Next
For Each C In Selection
nom = C.Value
With C
.AddComment
.Comment.Shape.Fill.UserPictures ActiveWorkbook.Path & "\Photos" & "\" & nom & ".jpg"
End With
Next
End Sub
cette source me permet d'ajouter un commentaire en fonction du texte dans la cellule, la photo correspondant au texte de la cellule se met en commentaire .
est ce que qqun peut m'aider pour que ces image soit de leur taile origine ou du moin non disproportionner.
merci beaucoup