Discussion :

[poseidonjr]

Bonjour,

Je souhaiterais importer des images dans un document Word mais je ne trouve pas la solution pour les ajouter en fin de document, voir sur une nouvelle page si pas assez de place. Mon document contient des tables et je voudrais ajouter mes images juste après. J'ai bien trouvé des choses comme Selection.EndKey ou InsertAfter pour du texte mais pas pour le point d'insertion. Si quelqu'un a quelques indices ça serait sympa car ça fait plusieurs jours que je suis planté avec ce problème.

Merci

Romain

[poseidonjr]

J'ai trouvé un début de solution si ça peut intéresser quelqu'un.

il suffit de créer un signet et d'utiliser InlineShape

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
wddoc.Paragraphs(paragraphsCount).Range.Bookmarks.Add bookmarksName, wddoc.Paragraphs(paragraphsCount).Range
wddoc.Bookmarks(bookmarksName).Select
chObj.Activate
filePath = Environ$("temp") & Application.PathSeparator & chObj.name & ".png"
chObj.Chart.Export fileName:=filePath, FilterName:="PNG"
 
Set tmpc = wddoc.InlineShapes.AddPicture(fileName:=filePath, LinkToFile:=False, SaveWithDocument:=True)