Avec une macro :

Pour appliquer la même taille à toutes les images du document

Exemple pour donner la largeur de 4 cm aux photos. Remplacer le 4 par la taille de votre choix. Inutile de préciser la hauteur qui sera automatiquement et proportionnellement adaptée.

Pour modifier la hauteur, vous utiliserez Height à la place de Width.

Si les images sont alignées sur le texte :

Sub taille_images()
Dim image as InlineShape
For Each image In ActiveDocument.InlineShapes
image.Width = CentimetersToPoints(4)
Next
End Sub 

Si les images ont un habillage :

Sub taille_images()
Dim image as Shape
For Each image In ActiveDocument.Shapes
image.Width = CentimetersToPoints(4)
Next
End Sub

 


 

Pour augmenter ou diminuer la taille selon une échelle définie

Si les image sont alignées sur le texte : 

Sub taille_images()
Dim image As InlineShape
For Each image In ActiveDocument.InlineShapes
image.ScaleWidth = 150
Next
End Sub

 

Si les images ont un habillage : 

Sub taille_images()
Dim image As Shape
For Each image In ActiveDocument.Shapes
image.ScaleWidth 1.5False
Next
End Sub

Comme pour la taille précise, il n'est pas utile de préciser la hauteur qui sera automatiquement adaptée. Néanmoins  si vous souhaitez partir de la hauteur plutôt que de la largeur, ou bien si vous souhaitez déformer l'image, vous utiliserez la propriété ScaleHeight pour la hauteur.

Dans ces deux derniers exemples, l'échelle est augmentée de 150%.

Dans le cas d'objets avec habillage, vous devez spécifier False ou True :

  • False pour modifier l'échelle par rapport à sa taille initiale,
  • True pour mettre l'échelle par rapport à sa taille actuelle. 

Statistiques

Aujourd'hui295
Hier2620
Cette semaine10763
Total depuis 20049549303

32
visiteurs actuellement en ligne