Macro
pascal
-
ccm81 Messages postés 11033 Statut Membre -
ccm81 Messages postés 11033 Statut Membre -
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>
A voir également:
- Macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro maker - Télécharger - Divers Utilitaires
- Actiona macro - Télécharger - Divers Utilitaires
1 réponse
en exemple un bout de procedure qui a fonctionné et a adapter ....
bonne suite
' 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
