Macro
Fermé
pascal
-
8 nov. 2010 à 09:54
ccm81 Messages postés 10562 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 27 mars 2023 - 9 nov. 2010 à 13:42
ccm81 Messages postés 10562 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 27 mars 2023 - 9 nov. 2010 à 13:42
A voir également:
- Macro
- Macro logiciel - Télécharger - Organisation
- Macro recorder - Télécharger - Confidentialité
- Macro Recorder - Télécharger - Divers Utilitaires
- Macro word - Guide
- Macro souris ✓ - Forum Windows
1 réponse
ccm81
Messages postés
10562
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
27 mars 2023
2 339
9 nov. 2010 à 13:42
9 nov. 2010 à 13:42
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