Macro
Bonjour,
Je suis à la recherche d'une petite macro me permettant d'inserer une image dans une cellule.
Je dispose d'un fichier (base de données image) contenant des images .jpg.
Je voudrais que la macro insère l'image qui est nommée comme ce que j'aurais mis dans la cellule.
En gros j'ai 400 noms de pièces, et 400 photos à insérer dans leurs fiches respectives.
Si quelqu'un peut m'aider. Merci
onfig>Windows XP / Internet Explorer 7.0</config>
Je suis à la recherche d'une petite macro me permettant d'inserer une image dans une cellule.
Je dispose d'un fichier (base de données image) contenant des images .jpg.
Je voudrais que la macro insère l'image qui est nommée comme ce que j'aurais mis dans la cellule.
En gros j'ai 400 noms de pièces, et 400 photos à insérer dans leurs fiches respectives.
Si quelqu'un peut m'aider. Merci
onfig>Windows XP / Internet Explorer 7.0</config>
1 réponse
-
en exemple un bout de procedure qui a fonctionné et a adapter ....
' photo élève dans sa cellule With Sheets(NomClasse).Cells(3 * li - 1, 2 * co - 1) ' pas nécessaire .Value = NomF ' nom fichier photo > on ajoute le chemin et le type NomF = DossierPhotos & NomF & ".jpg" If fs.FileExists(NomF) Then MargeGauche = (.Width - ImgLargeur) / 2 MargeHaut = (.Height - ImgHauteur) / 2 x = .Left + MargeGauche y = .Top + MargeHaut Sheets(NomClasse).Shapes.AddPicture NomF, False, True, x, y, ImgLargeur, ImgHauteur End If End With
bonne suite
