A voir également:
- Comment mettre toutes les images à la même taille word
- Comment réduire la taille d'un fichier - Guide
- Word 2013 - Télécharger - Traitement de texte
- Comment supprimer une page sur word - Guide
- Tableau word - Guide
- Espace insécable word - Guide
2 réponses
Bonjour,
Il s'agit d'une si petite macro que ça ne vaut pas le coup de s'en passer !
Il suffit de mettre la largeur souhaitée en cm (ici j'ai mis 4 cm), la hauteur suivra automatiquement.
Si tes images ont un habillage, remplace InlinerShape(s) par Shape(s).
m@rina
Comment ça marche est un forum public. Je ne réponds pas aux questions posées en MP.
Il s'agit d'une si petite macro que ça ne vaut pas le coup de s'en passer !
Sub agrandit_photos()
Dim image as InlineShape
For Each image In ActiveDocument.InlineShapes
image.Width = CentimetersToPoints(4)
Next
End Sub
Il suffit de mettre la largeur souhaitée en cm (ici j'ai mis 4 cm), la hauteur suivra automatiquement.
Si tes images ont un habillage, remplace InlinerShape(s) par Shape(s).
m@rina
Comment ça marche est un forum public. Je ne réponds pas aux questions posées en MP.
