Excel Word - corriger la taille

Bonjour à tous,

J'ai créée une macro qui permet de copier des charts ou des zones de texte depuis Excel pour les coller sur Word.

J'aimerais juste pouvoir les redimensionner une fois collé mais je ne trouve pas la bonne formulation.

Quelqu'un peut-il m'aider ?

Merci.

Pour info, voilà le code utilisé :

Sub word()
Dim WordApp As Object, WordDoc As Object, ctrl As Object
Dim nom_fichier As String

Set WordApp = CreateObject("word.application")
WordApp.Visible = True
nom_fichier = "C:\Users\*********\Desktop\Divers\test.docx"
Set WordDoc = WordApp.Documents.Open(nom_fichier)

For K = 1 To 3

ActiveSheet.ChartObjects("Graphique " & K).Activate
ActiveChart.ChartArea.Copy
WordDoc.bookmarks("Graph" & K).Range.Select
WordApp.Selection.PasteandFormat (wdchartPicture)
WordApp.Selection.ParagraphFormat.Alignment = 1 'wdAlignParagraphCenter

Next

With WordApp.Selection
Sheets("Feuil1").Range("A1:G7").Copy
WordDoc.bookmarks("Zone1").Range.Select
WordApp.Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile, Placement:=1

End With


End Sub

Hello,

Tu peux t'inspirer de ce code :

With ActiveDocument.InlineShapes(1)
    .Height = 350
    .Width = 250
End With

Ce code redimensionne la première forme insérée d'un document.

R@g

Hello,

Merci pour la piste mais malheureusement ça ne marche pas. Quand je colle à la fin de ma macro ça me met un message d'erreur.

Je n'ai pas l'impression que la macro comprend quel "objet" elle doit dimensionner.