user_mobilelogo

Word 365: Vous saurez tout !

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

 

En savoir plus.

Pour cela, au lieu d'utiliser la fonction d'insertion d'images normales, nous allons utiliser une  macro qui va faire le travail.

Pour commencer, créez un document qui porte le même nom que votre document précédé du mot "images" et enregistrez-le dans le même dossier que votre document principal. Par exemple, si votre document se nomme mathèse.docx, le document d'images sera nommé images_mathèse.docx. Insérez dans ce document un tableau de deux colonnes.

Voici une macro que vous mettrez dans votre document principal, et pour laquelle vous mettrez un bouton sur la barre d'outils Accès rapide, ou bien à laquelle vous affecterez un raccourci clavier. Cette macro vous permettra de choisir votre image, de l'insérer dans votre document (en tant qu'InlineShape) et de la lister dans le document images.

Sub liste_images()

'macro écrite par m@rina
Dim mondoc As String, chemin As String, nom_doc_im As String
Dim b_dial As Dialog
Dim nom_fichier As String
Dim image As Object
Dim x As Byte

mondoc = ActiveDocument.Name
chemin = ActiveDocument.Path
nom_doc_im = chemin & "\images_" & mondoc

Documents.Open nom_doc_im
Windows(mondoc).Activate
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)

image.Select
Selection.Copy

With Documents(nom_doc_im).Tables(1)
    .Rows.Add
    x = Documents(nom_doc_im).Tables(1).Rows.Count
    .Rows(x).Select
    .Rows(x).Cells(1).Range.Paste
    .Rows(x).Cells(2).Range.Text = nom_fichier

Documents(nom_doc_im).Save
End With
Windows(mondoc).Activate

End Sub


 

Si vous souhaitez que les images soient insérées avec lien de manière à pouvoir les modifier et que la modification soit prise en compte dans le document, vous remplacerez 

Set image = Selection.InlineShapes.AddPicture(nom_fichier)

par

Set image = Selection.InlineShapes.AddPicture(nom_fichier, True, True)

 

Statistiques

Aujourd'hui270
Hier2908
Cette semaine16595
Ce mois79392
Total depuis 200412598024

11
visiteurs actuellement en ligne

28 novembre 2020