Image en commentaire

[anthoYS]

Bonjour,

Je me damande s'il est possible, de faire sur un fichier client,
en sorte que, si je suis sur la cellule ou le nom et prénom apparaissent, l'image de son visage (que j'ai sur le disque dur), soit visible en survol (en taille souhaité)?

J'ai pensé à une macro. Mais laquelle? Je ne sais pas.

Merci par avance.

 

[BOISGONTIER]

Re : Image en commentaire

Bonsoir,

http://boisgontierjacques.free.fr/pages_site/commentaire.htm#PhotosComment

JB

 

[anthoYS]

Re : Image en commentaire

merci, c'est pas mal ça.

 

[anthoYS]

Re : Image en commentaire

Bonjour,

J'ai un problème pour insérer une image.

En débogage voici la ligne jaune :

Sub PhotoCommentaire2()
repertoire = ThisWorkbook.Path & "\"
For Each c In Range("A2", [A65000].End(xlUp))
c.ClearComments
c.AddComment
c.Comment.Text Text:=c.Value
c.Comment.Shape.Fill.UserPicture repertoire & c.Value & ".jpg"
c.Comment.Shape.Height = 50
c.Comment.Shape.Width = 50
c.Comment.Shape.ScaleHeight 1.2, msoFalse, msoScaleFromTopLeft
Next c
End Sub

Qu'est-ce qui ne va pas?

Merci à vous et A+

 

[anthoYS]

Re : Image en commentaire

Que faire???

Merci par avance...

 

[BOISGONTIER]

Re : Image en commentaire

Bonsoir,

Sub PhotoCommentaire2()
  repertoire = ThisWorkbook.Path & "\"
  For Each c In Range("A2", [A65000].End(xlUp))
    c.ClearComments
    c.AddComment
    c.Comment.Text Text:=c.Value
    If Dir(repertoire & c.Value & ".jpg") <> "" Then
     c.Comment.Shape.Fill.UserPicture repertoire & c.Value & ".jpg"
     c.Comment.Shape.Height = 50
     c.Comment.Shape.Width = 50
     c.Comment.Shape.ScaleHeight 1.2, msoFalse, msoScaleFromTopLeft
    End If
  Next c
End Sub

JB

 

[anthoYS]

Re : Image en commentaire

Bonsoir (pardon oui),

Merci pour ta precedente réponse rapide.

Quel est le code qui permettrait d'ajouter une image en commentaire par double clic dans une cellule, si le nom de la cellule correspond à une image (jpg, jpeg ou autres extensions...) dans un dossier défini par exemple "mes images"?

Comment insérer une image en commentaire par double clic sur l'image :

Intuition du code (début ou partie) :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
With Target
    If .Column = 1 Then
        Cancel = True
        If .Comment Is Nothing Then
            .AddComment
            .Comment.Shape.Width = 241.5
            .Comment.Shape.Height = 99.75
        End If
        SendKeys "%im"
    End If
End With
End Sub

Merci par avance.

 

[BOISGONTIER]

Re : Image en commentaire

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 repertoire = ThisWorkbook.Path & "\"
 With Target
  .ClearComments
  .AddComment
  .Comment.Text Text:=.Value
  If Dir(repertoire & .Value & ".jpg") <> "" Then
     .Comment.Shape.Fill.UserPicture repertoire & .Value & ".jpg"
     .Comment.Shape.Height = 50
     .Comment.Shape.Width = 50
     .Comment.Shape.ScaleHeight 1.2, msoFalse, msoScaleFromTopLeft
   End If
 End With
 Cancel = True
End Sub

JB

 

[anthoYS]

Re : Image en commentaire

Bonjour,

Merci mais pour ma part je n'arrive pas à exécuter ce code... Ou si, mais seulement à moïtié, en effet après un double clic, un commentaire apparaît, avec le nom de la cellule -son contenu-, puis pas d'image...

Qu'est-ce que cela veut dire?

(repertoire & .Value & ".jpg")

Si j'ai en C4 : Karin Der, et que je fais un double clic dessus et que l'image Karin Der.jpg est dans le dossier "Prats" dans le répertoire Antho (user), ensuite en G4, j'ai Hyui Jiu, et l'image est situé dans Antho/images (Hyui Jiu), alors est-ce que cela marchera?

Ou alors est-ce que la partie du code cité doit être modifié en précisant le chemin?

En outre, est-ce que l'on ne peut pas ajouter des extensions telles "jpeg" à cette partie du code?

Merci par avance.

 

[anthoYS]

Re : Image en commentaire

Bonsoir,

Alors, est-ce que quelqun peut m'aider SVP...
(Message précédent)


Merci.