Salut,
J'avais fait une super macro dans Excel 2003 qui après avoir mis une photo dans une cellule redimentionnait la photo.
Le code était :
LigneOuCollerLaPhoto = 7
For i = 1 To NombreDeLigneTotale
Cells(LigneOuCollerLaPhoto, 1).Select
NomDeLaPhoto = Cells(LigneOuCollerLaPhoto, 1)
' Va chercher la photo dans le répertoire ...\TmpPhotosMiniatures
CheminDAccesAuxPhotos = ThisWorkbook.Path & "\TmpPhotosMiniatures\"
' Insère la photo dans la cellule selectionnée
ActiveSheet.Pictures.Insert( _
CheminDAccesAuxPhotos & NomDeLaPhoto). _
Select ' Le nom de la photo est malheureusement définie
' Redimentionnement de la photo
Selection.ShapeRange.ScaleWidth 0.48, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.48, msoFalse, msoScaleFromTopLeft
LigneOuCollerLaPhoto = LigneOuCollerLaPhoto + 3
Next i
Je suis passé à Excel 2007 et avec le même code, il insère toutes les photos les unes sur les autres (hors cellule) en tailles trop petites.
J'ai essayé via l'éditeur de macro d'enregistrer le redimentionnement d'une photo, mais il n'enregistre pas ces opérations.
Quelqu'un saurait-il pourquoi ça ne fonctionne plus et surtout comment remédier ?
Merci d'avance.
Fab
J'avais fait une super macro dans Excel 2003 qui après avoir mis une photo dans une cellule redimentionnait la photo.
Le code était :
LigneOuCollerLaPhoto = 7
For i = 1 To NombreDeLigneTotale
Cells(LigneOuCollerLaPhoto, 1).Select
NomDeLaPhoto = Cells(LigneOuCollerLaPhoto, 1)
' Va chercher la photo dans le répertoire ...\TmpPhotosMiniatures
CheminDAccesAuxPhotos = ThisWorkbook.Path & "\TmpPhotosMiniatures\"
' Insère la photo dans la cellule selectionnée
ActiveSheet.Pictures.Insert( _
CheminDAccesAuxPhotos & NomDeLaPhoto). _
Select ' Le nom de la photo est malheureusement définie
' Redimentionnement de la photo
Selection.ShapeRange.ScaleWidth 0.48, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.48, msoFalse, msoScaleFromTopLeft
LigneOuCollerLaPhoto = LigneOuCollerLaPhoto + 3
Next i
Je suis passé à Excel 2007 et avec le même code, il insère toutes les photos les unes sur les autres (hors cellule) en tailles trop petites.
J'ai essayé via l'éditeur de macro d'enregistrer le redimentionnement d'une photo, mais il n'enregistre pas ces opérations.
Quelqu'un saurait-il pourquoi ça ne fonctionne plus et surtout comment remédier ?
Merci d'avance.
Fab