Avec une macro :
Word
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
Pour les images avec habillage.
Sub taille_images()
Dim image As Shape
For Each image In ActiveDocument.Shapes
image.ScaleWidth 1.5, False
Next
End Sub
Pour les images sans habillage.
Sub taille_images()
Dim image As InlineShape
For Each image In ActiveDocument.InlineShapes
image.ScaleWidth = 150
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.
PowerPoint
Pour appliquer la même taille à toutes les images de la présentation
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.
Sub taille_images()
Dim image As Shape
'remplacer 4 par la valeur de votre choix (en cm)
largeur = 4
For Each diapo In ActivePresentation.Slides
For Each image In diapo.Shapes
If image.Type = msoPicture Then
image.Width = largeur * 28.346
End If
Next
Next
Pour augmenter ou diminuer la taille selon une échelle définie
Sub taille_images()
Dim image As Shape
For Each diapo In ActivePresentation.Slides
For Each image In diapo.Shapes
image.ScaleWidth 1.5, False
Next
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 ce dernier exemple, 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.