Macro pour insertion de photo dans un commentaire

Version imprimable

15/10/2013, 19h50
wboyer

Macro pour insertion de photo dans un commentaire

Bonjour à tous,

Je souhaite automatiser l'insertion de photos dans une zone de commentaire.
Mon tableur excel est décomposé en 2 colonnes A et B.
La cellule A1 contient le nom de la photo à insérer dans la zone de commentaire de la cellule B1. Et il faut faire cette manip pour les lignes suivantes.

Malgré mes tentatives, je ne parviens pas à créer cette macro.
Avez vous une idée?

Merci d'avance!!

Merci Pascal pour cette réponse. Effectivement cela répond à mes besoins.
J'ai essayé de modifier le code pour que ca colle à mon tableau. J'y ai ajouté une boucle. De plus je souhaite que l'image s'insère en fonction de la valeur de la colonne B. L'image insérée porte le même nom que la valeur de la colonne B. Tu trouveras ci dessous le code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 Option Explicit Sub CommentaireAvecImage2() Dim DossierImages As String, Fichier As String, i As Integer, name As String For i = 2 To 3 'initialisation de la boucle' name = CStr(Cells(i, 2).Select) ' name va prendre la valeur texte du contenu de la cellule Bi' DossierImages = "C:\image\" Fichier = "name.jpg" With Cells(i, 3) .ClearComments .AddComment .Comment.Text Text:="" With .Comment .Shape.Fill.UserPicture DossierImages & Fichier 'blocage à cette ligne' .Shape.ScaleWidth 1, msoFalse, msoScaleFromTopLeft .Shape.ScaleHeight 1, msoFalse, msoScaleFromTopLeft .Shape.LockAspectRatio = msoFalse .Shape.Height = 159.75 .Shape.Width = 120# End With End With Next End Sub
Mon problème c'est que j'ai une erreur d'execution à la ligne suivante: .Shape.Fill.UserPicture DossierImages & Fichier

une idée?:mrgreen:

Bonjour,

Et de cette façon ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Sub CommentaireAvecImage()
 
    Dim Fichier As String
    Dim I As Integer
 
    For I = 2 To 3 'initialisation de la boucle'
 
        Fichier = "C:\image\" & Cells(I, 2).Value & ".jpg"
 
        With Cells(I, 3)
 
            .ClearComments
            .AddComment
            .Comment.Text Text:=""
 
            With .Comment.Shape
 
                .Fill.UserPicture Fichier
                .ScaleWidth 1, msoFalse, msoScaleFromTopLeft
                .ScaleHeight 1, msoFalse, msoScaleFromTopLeft
                .LockAspectRatio = msoFalse
                .Height = 159.75
                .Width = 120#
 
            End With
 
        End With
 
    Next I
 
End Sub

Hervé.

Merci Hervé. Ca à l'air de fonctionner. J'ai également retravaillé mon code ce matin et il fonctionne. Pour ceux qui sont intéressés le code est le suivant:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub CommentaireAvecImage2()
Dim DossierImages As String, Fichier As String, i As Integer, name As Variant
 
For i = 22 To 27 'initialisation de la boucle'
name = Cells(i, 2).Value ' name va prendre la valeur texte du contenu de la cellule Bi'
DossierImages = "C:\image\"
Fichier = name & ".png"
 
With Cells(i, 2)
.ClearComments
.AddComment
.Comment.Text Text:=""
With .Comment
.Shape.Fill.UserPicture DossierImages & Fichier 'blocage à cette ligne'
.Shape.ScaleWidth 1, msoFalse, msoScaleFromTopLeft
.Shape.ScaleHeight 1, msoFalse, msoScaleFromTopLeft
.Shape.LockAspectRatio = msoFalse
.Shape.Height = 159.75
.Shape.Width = 120#
End With
End With
Next
End Sub