Ou sont stocké les images

[aziz]

Bonjour à tous qui peut me dire ou sont stocké ces images ?
merci
je souhaite faire le meme style fichier pour faire apparaitre mes produits
en passant la souris.
les images seront en commentaire et stocké dans le meme fichier

Merci pour votre aide à tous

 

[Pierrot93]

Re : Ou sont stocké les images

Bonjour,

qui peut me dire ou sont stocké ces images ?

dans le commentaire de la cellule, click droit dans la cellule => modifier le commenaire => click sur la bordure du commentaire => format de commentaire => onglet "couleur et traits" => click sur couleur remplissage => motifs et textures => onglet "image"...

bon après midi
@+

 

[aziz]

Re : Ou sont stocké les images

Merci pierrot pour ta réponse
je n'arrive pas à faire apparaitre une image en commentaire, qui elle ce trouve dans le fichier.
regarde mon fichier joint
merci de ton aide

 

[Pierrot93]

Re : Ou sont stocké les images

Re,

lorsque tu insère l'image dans le commentaire, tu dois aller la chercher sur ton disque dur....

 

[aziz]

Re : Ou sont stocké les images

je souhaite les récupérer non pas sur le HDD
mais dans le fichier lui meme.

Merci

 

[JBOBO]

Re : Ou sont stocké les images

Bonjour à tous !

Ce n'est pas mon post mais merci pierrot93, j'ai au moins appris quelque chose aujourd'hui !

 

[Pierrot93]

Re : Ou sont stocké les images

Re,

une solution, rusé en passant par un graph, coller l'image, exporter le graph sous forme at "image" et ce par vba...

Option Explicit
Sub test()
Dim c As ChartObject, co As Comment
With Feuil1
    Set c = .ChartObjects.Add(.Range("G1").Left, .Range("G1").Top, .Pictures(1).Width, .Pictures(1).Height)
    c.Border.LineStyle = xlNone
    .Pictures(1).Copy
End With
With c.Chart
    .Paste
    .Export .Name & ".gif", "GIF"
End With
If Not Range("A1").Comment Is Nothing Then Range("A1").Comment.Delete
Set co = Range("A1").AddComment
With co
    .Shape.Width = Feuil1.Pictures(1).Width
    .Shape.Height = Feuil1.Pictures(1).Height
    .Shape.Fill.UserPicture ThisWorkbook.Path & "\" & c.Chart.Name & ".gif"
    .Visible = False
End With
Kill c.Chart.Name & ".gif"
c.Delete
End Sub

bonne soirée
@+

 

[aziz]

Re : Ou sont stocké les images

Re
Je n'y arrive pas
peux tu m'adapter sur mon fichier stp
l'image dans mon fichier est en GIF
merci de ton aide

 

[Pierrot93]

Re : Ou sont stocké les images

Bonjour,

ton fichier en retour, click sur le bouton, l'image se mettra dans un commentaire sur la cellule A1.

bonne journée
@+

 

[aziz]

Re : Ou sont stocké les images

Re
pierrot
et encore Merci
par contre c'est tu pourquoi j'ai une erreur d'execution de la macro ?

je l'ai mis en rouge dans le fichier

 

[Pierrot93]

Re : Ou sont stocké les images

Re,

pas de souci chez moi sous excel 2003... attention le fichier doit être enregistré sur ton disque dur....