Comment insérer une image dans une cellule

[excelJL]

Bjr !

Tout est dans le titre! Comment fait on pour insérer une image dans une cellule active ?

ce code ne marche pas sous excel 2007.

aa = ActiveCell.Row
Range("a" & aa).Select
ActiveSheet.Pictures.Insert("C:\images.jpg").Select

Merci

 

[MichelXld]

Re : Comment insérer une image dans une cellule

bonjour

Tu peux utiliser

Sub AjoutImageFeuille()
    Dim Shp As Shape
    Dim Fichier As String
    Dim Cell As Range
    
    Fichier = "C:\Documents and Settings\mimi\dossier\Image2.jpg"
    
    Set Cell = Range("B10")
    
    'expression.AddPicture(FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height)
    Set Shp = Feuil1.Shapes.AddPicture _
        (Fichier, msoFalse, msoCTrue, Cell.Left, Cell.Top, Cell.Width, Cell.Height)
End Sub

Bonne journée
MichelXld

 

[excelJL]

Re : Comment insérer une image dans une cellule

Merci bien pour ce code .

 

[animhulmain]

Re : Comment insérer une image dans une cellule

Bonjour,
ma question est un peu plus pointue...😕
en partant d'un fichier excel, je lui colle des images suite a capture.
excel me les colle correctement mais crée un répertoire avec les images collées, (au format gif) je sauvegarde le fichier excel au format HTM et tant qu'il est dans mon pc, tout se passe bien mais dés que je l'envoi par email, les images n'apparaissent pas a l'arrivée, (des petites crois rouges apparaissent a la place des images-objet) 🙁 et pour cause, elles sont restées dans mon pc...😡
comme il est hors de question d'envoyer un répertoire avec ces images ou même de les mettre en pièces jointes,😛 ma question est:
comment faire pour que ces images soient intégrées définitivement au fichier excel format htm, comme si elles faisaient partie intégrante du fichier ???
merci d'avance

 

[Celeborn61]

Re : Comment insérer une image dans une cellule

Salut,

Un fichier htm ou html est un fichier texte dans un langage à balise, il ne peut donc pas contenir autre chose que du texte, les images ou autres types de fichiers ne pouvant être que des liens textes vers des adresses.

Pour diffuser ton fichier, passes le soit sous Excel même en version inférieure, soit Zip l'ensemble du fichier et du répertoire images.

 

[animhulmain]

Re : Comment insérer une image dans une cellule

ok merci de l'info, j'avais pas tilté, mais si un fichier excel peut être au format htm sans balises, c'est que le format htm arrive a traduire les codes xls en htm en dur, donc il y aurait peut être une solution pour que les images se fondent dans le fichier xls et que cela soit reconnu comme du texte et non plus comme des objets ?😱

 

[Celeborn61]

Re : Comment insérer une image dans une cellule

Salut,

C'est parce que Excel passe par du xml, mais toutes les images sont stockées dans un répertoire appeler par les balises.
il me semble impossible de stocker les images dans un htm, html, xml, ...