graphe excel, je souhaite le passer sur un doc word
Bonjour,
Voila mon souci:
j'ai un graphe excel, je souhaite le passer sur un doc word, ça j'y parviens, mais je n'arrive pas à le placer là où je le souhaite.
En effet il faudrait que je puisse insérer plusieurs graphes autour d'une image placée au centre du word.
voila mon programme excel:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
| Sub quatre()
Dim MonBeauWord As Object
Dim MonDoc As Object
Set MonBeauWord = CreateObject("Word.Application")
MonBeauWord.Visible = True
MonBeauWord.Documents.Open "C:\Users\stagiaire.acoustic\Desktop\essaisecond.docx"
' Ecriture d'un petit texte dans ce nouveau document :
MonBeauWord.Selection.TypeText "Test de fonctionnement"
'Selection du graphique à copier
Sheets("Feuil1").Select
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select
'Copie du graphique dans le presse papier
ActiveChart.ChartArea.Copy
'Collage du graphique
MonBeauWord.Selection.Paste
'Passage du curseur texte sur la ligne en dessous du graphique (pour coller un autre graphique
MonBeauWord.Selection.TypeParagraph
Dim a As Chart
Set a = ActiveChart
a.ChartArea.Height = 105
a.ChartArea.Width = 320
a.ChartArea.Left = 130
a.ChartArea.Top = 100
' Sauvegarde de ce document ainsi créé :
MonBeauWord.ActiveDocument.Save
End Sub |
En fait là je déplace mon graphe mais dans le excel et pas dans le word, donc ma question: Savez vous comment faire pour déplacer un graphe collé dans un document word ? Soit en vba, soit en formule excel, peut être avec une zone texte, mais quel formule ? concaténer indirect... ?
Cordialement
