La macro suivante ouvre la boîte de dialogue d'insertion d'image, puis insère l'image choisie avec une largeur de 5 cm. Cette macro respecte l'échelle de l'image afin que cette dernière ne soit pas déformée. Vous pouvez choisir soit d'imposer la largeur (5 cm dans cet exemple) ou d'imposer la hauteur. Pour la hauteur, supprimez la ligne qui commence par ".width = ", supprimez l'apostrophe avant la ligne qui commence par 'Height = ", et remplacez "xx" par la taille en cm de votre choix.

Quel que soit votre choix (modification de la largeur ou de la hauteur), la taille de l'image sera modifiée dans son ensemble, l'image ne sera jamais déformée.

Vous noterez que cette macro insère l'image avec un alignement sur le texte, donc sans habillage. C'est préférable quand il n'y a pas d'obligation d'habillage qui pose bien souvent des problèmes avec la mise en page. Néanmoins si vous tenez systématiquement à l'habillage, remplacez la ligne

Set image = Selection.InlineShapes.AddPicture(nom_fichier)

 par :

Set image = Selection.Shapes.AddPicture(nom_fichier)

Sub image()
'macro écrite par m@rina
Dim b_dial As Dialog
Dim nom_fichier As String
Dim image As Object
Set b_dial = Dialogs(wdDialogInsertPicture)
With b_dial
    .Display
    If .Name = "" Then Exit Sub
    nom_fichier = .Name
End With
Set image = Selection.InlineShapes.AddPicture(nom_fichier)
With image
    .LockAspectRatio = msoTrue
    '.Height = CentimetersToPoints(xx)
    .Width = CentimetersToPoints(5)
End With
End Sub