user_mobilelogo

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.

Pour les images avec habillage.

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

Pour les images sans habillage.

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


 

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

Uniquement pour les images avec 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%.

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'hui33
Total depuis 200411529814

11
visiteurs actuellement en ligne

14 novembre 2019