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:
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... ?
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
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
Cordialement
Partager