Discussion :

[ZimCri]

Bonjour a tous,

Je travaille actuellement sur une macro vba excel, celle ci, doit placer des images dans word, jusqu'ici ca va a peu pres, pour faire ceci voila le code que j'utilise :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 WordApp.Selection.InlineShapes.AddPicture Filename:= _
            ThisWorkbook.Path & "\" & ch.name & ".jpg", LinkToFile:=False, SaveWithDocument:= _
            True    'Pour importer chaque image
                With WordDoc.InlineShapes(1)
                    .Height = 295    'redimensionne l'image
                    .Width = 400
                    .ConvertToShape
                End With
                WordDoc.Shapes(nbWord).name = ch.name 
 
                With WordDoc.Shapes(nbWord)
                    .Top = IIf(courant = 1, 150, 445)
                    .Left = 100    'place l'image
                    .ZOrder 4
                End With

J'aimerai pouvoir placer ces images a une page precise qu'un utilisateur pourra choisir. Je n'arrive a placer les images sur une autre page que la premiere... Si quelqu'un a idee de comment faire, je suis preneur.

[kiki29]

Salut, à lire Utilisez des images dans vos documents ou là

[ZimCri]

Merci pour les documents, mais malheureusement cela ne repond pas vraiment a mon probleme, je cherche le moyen d'inserer les images a une page voulue...

[ZimCri]

J'ai finalement trouvé une solution.

Code :

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

1
2
3
WordApp.Selection.Goto(What:=wdGoToPage, name:=(4)).InlineShapes.AddPicture Filename:= _
            ThisWorkbook.Path & "\" & chart.name & ".jpg", LinkToFile:=False, SaveWithDocument:= _
            True

Je poste ma solution, peut-être cela sera utile pour un mysterieux inconnu.