coller des graphique sous word dans une zone spéci

[christelle]

re-bonjour à tous,
je souhaiterais pouvoir décider à quel endroit un graphique doit apparaitre dans un ficier word.
J'ai déjà récupéré des procédures qui permettent de créer automatiquement le fichier word et d'insérer les graphiques (ou tableau) mais tout se met l'un sur l'autre... j'ai cru comprendre qu'on pouvais, tout comme sur excel, définir des plages d'affichages mais je ne sais comment faire.
merci pour votre aide

 

[MichelXld]

bonsoir Christelle

j'espere que cet exemple pourra t'aider


Sub InsertGraphiqueDansDocWord()
'necessite d'activer la reference Microsoft Word xx.x Object Library
Dim WrdApp As Word.Application
Dim WrdDoc As Word.Document

Feuil1.ChartObjects(1).Copy 'copie du 1er graphique de la Feuil1

Set WrdApp = CreateObject('Word.Application')
WrdApp.Visible = True
Set WrdDoc = WrdApp.Documents.Add 'création du fichier Word

WrdDoc.Range.Paste

With WrdDoc.Shapes(1)
.Top = 200 'position verticale de l'image dans le document
.Left = 60 'position horizontale de l'image dans le document
End With

'WrdDoc.SaveAs 'C:\\\\\\\\leDocument.doc' ' sauvegarde
'WrdDoc.Close 'fermer le document Word
'WrdApp.Quit 'fermer l'application Word
End Sub



bonne soirée
MichelXld

 

[christelle]

OK! merci beaucoup, j'essaie ça ce soir!