Pour donner un habillage "carré" à toutes les images d'un document, ainsi qu'une taille précise, voici une macro qui va déjà convertir toutes les images sans habillage (INLINESHAPE) en images avec habillage (SHAPE). Cette macro va ensuite donner une hauteur précise ainsi qu'un habillage "carré".

Afin que l'image reste proportionnelle, on ne donne qu'une dimension, soit pour la hauteur (Height), soit pour la largeur (Width). A vous de modifier la macro en fonction de ce que vous souhaitez. Les mesures sont en centimètres.

 

Sub images()
'macro écrite par m@rina
Dim image As InlineShape
Dim image2 As Shape
For Each image In ActiveDocument.InlineShapes
image.ConvertToShape
Next
For Each image2 In ActiveDocument.Shapes
image2.Height = CentimetersToPoints(5)
'Au cas où vous préférez modifier la largeur
'mettre une apostrophe en début de ligne précédente
'et ôter l'apostrophe en début de ligne suivante
'image2.Width = CentimetersToPoints(5)
image2.WrapFormat.Type = wdWrapSquare
Next

End Sub