Bonjour Catof, Jean-Baptiste,
Pourquoi une macro.... alors que l'on peut créer un style d'image ? 
Voilà comment je procéderais :
Insertion image > Clic droit sur l'image > Propriétés > Onglet [Type] > Ancrer > Paragraphe, puis :
- Cocher Largeur Relatif à > Zone de paragraphe > Définir à 100%
- Cocher Hauteur Relatif à > Zone de paragraphe (ne rien définir, la conservation du ratio définira la hauteur automatiquement)
- Cocher Conserver le ratio
- Valider à l'aide du bouton OK
Notre image est bien redimensionnée. Passons à la création du style.
Assurons-nous que l'image est bien sélectionnée, puis clic sur le bouton Style et formatage du volet latéral (ou F11) clic sur Style de cadre, puis cliquer sur le bouton "Nouveau Style à partir de la sélection" > Nouveau style. Nommons explicitement le style (ImageRedimensionnée, par exemple), validons par OK.
Voilà, c'est fait
La procédure peut paraître longue, mais en réalité, cela prend moins d'une minute. Mais que de temps gagné par la suite dès l'insertion d'une image en cliquant simplement sur le style "ImageRedimensionnée".
Ne pas oublier d'enregistrer le document comme modèle pour une utilisation ultérieure.
Cordialement, Philippe