macro

Question

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>

ccm81 · Answer

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

Macro

1 réponse

Discussions similaires

Newsletters