user_mobilelogo

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

En savoir plus.

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

 

 

Statistiques

Aujourd'hui8
Hier2696
Cette semaine2704
Ce mois24910
Total depuis 200412923795

7
visiteurs actuellement en ligne

13 avril 2021