Recherche

Pour les images déjà insérées, on les sélectionne puis, via une macro, on peut leur imposer un format particulier, comme expliqué par exemple ici.

Maintenant, si l'on souhaite que le format soit appliqué dès l'insertion de l'image, on peut aussi créer une macro. Cette macro remplacera la fonction d'insertion de l'image. On peut donc lui attribuer un raccourci clavier, ou bien l'installer sur la barre d'outils Accès rapide ou sur le ruban.

 

Word

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

 

 

 

 

Statistiques

France 73,9% France
Canada 7,7% Canada
États-Unis d'Amérique 4,1% États-Unis d'Amérique

Total:

94

Pays
018290601
Aujourd'hui: 3
Hier: 306
Cette semaine: 1.678
Semaine dernière: 1.764
Ce mois: 3.178