Paramétrer la taille des images par lot dans word
Olivier
-
m@rina Messages postés 23880 Date d'inscription Statut Contributeur Dernière intervention -
m@rina Messages postés 23880 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je viens de réaliser un publipostage sous Word pour faire des fiches contenant chacune une photo. ça fonctionne et j'obtiens mes 24 fiches avec chacune sa photo. Problème, Word, dans le document fusionné, affiche les images en taille ridiculement petite alors qu'elles font 900 px de large. Comment alors afficher toutes les images d'une taille raisonnable en une seule fois, il n'est pas concevable bien entendu de régler la taille des images une par une ce qui ferait 24 opérations à faire.
Je viens de réaliser un publipostage sous Word pour faire des fiches contenant chacune une photo. ça fonctionne et j'obtiens mes 24 fiches avec chacune sa photo. Problème, Word, dans le document fusionné, affiche les images en taille ridiculement petite alors qu'elles font 900 px de large. Comment alors afficher toutes les images d'une taille raisonnable en une seule fois, il n'est pas concevable bien entendu de régler la taille des images une par une ce qui ferait 24 opérations à faire.
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.