Salut,
Est -ce qu' il s' agit seulement d' image ou de la feuille entière (Dans ce case, tu peux utiliser Zoom) ?
Si seulement des images, je te propose le code suivant (C' est un peu long), qui se place dans ThisWorkbook
Private Sub Workbook_open () 'Ta macro s' éxécute à chaque fois que tu ouvre ton fichier
On Error GoTo 1 'Arrête le programme si une erreur est intervenue
Range("A1" ).Select '1er cellule de la colonne A est séléctionner
Dim cpt As Integer 'En boucle
cpt = 1
Do
DoEvents 'En cas de bugs, tu peux ansi arrêter ta macro
SendKeys "{Enter}", True 'Descend d' une cellule
If ActiveCell = "" Then 'Si la cellule est vide, la boucle s' arrête
cpt = cpt - 1
End If
ActiveSheet.Shapes(ActiveCell).Select 'L' objet dont le nom correspondt au contenu de la cellule est séléctionner
Selection.ShapeRange.ScaleWidth 0.75, msoFalse, msoScaleFromTopLeft 'Réduction sur la longueur
Selection.ShapeRange.ScaleHeight 0.62, msoFalse, msoScaleFromBottomRight 'Réduction sur la largeur
ActiveCell.Select 'Séléction de la cellule active
Loop Until cpt = 0
1
Attention!
Il faut que tu établisse une liste de toute tes images à partir de la cellule A2
Si ça te convient pas, il y a sans doute mieux.
Aurevoir
