Paramétrer la taille des images par lot dans word

Fermé
Olivier - 5 déc. 2014 à 22:23
m@rina Messages postés 20080 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 26 avril 2024 - 12 déc. 2014 à 02:51
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.



2 réponses

m@rina Messages postés 20080 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 26 avril 2024 11 272
Modifié par m@rina le 12/12/2014 à 02:52
Bonjour,

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.
1