Positionnement d'un graph dans word

Signaler
Messages postés
3
Date d'inscription
lundi 14 novembre 2011
Statut
Membre
Dernière intervention
15 novembre 2011
-
Messages postés
3
Date d'inscription
lundi 14 novembre 2011
Statut
Membre
Dernière intervention
15 novembre 2011
-
Bonjour,

Je souhaite positionner un graph Excel à la fin d'un document word contenant plusieurs page avec la commande :

Set salesChart = ActiveDocument.Shapes.AddChart.Chart

mais je l'ai systématiquement en début de fichier. Quelqu'un peut m'aider ?

Par avance merci

4 réponses


Salut Fab,
Quand tu dis :
graph Excel à la fin d'un document word


Ça veut dire que tu travailles avec un fichier Excel, word, en VBA ou en VB6 (comme c'est indiqué)?
Donne nous plus d’éléments... à quel moment tu fais :
Set salesChart = ActiveDocument.Shapes.AddChart.Chart
?



CF2i - Guadeloupe
Ingénierie Informatique
Messages postés
3
Date d'inscription
lundi 14 novembre 2011
Statut
Membre
Dernière intervention
15 novembre 2011

je travaille avec un fichier word et vb6.
Je souhaiterais positionner mon graph juste après un signet et en utilisant Shapes.AddChart.Chart

voici mon prg :
Private Sub CommandButton1_Click()
Dim salesChart As Chart
Dim oRng As Word.Document
Dim oRngRange As Range
Dim chartWorkSheet As Excel.Worksheet

Set salesChart = ActiveDocument.Shapes.AddChart.Chart

Set chartWorkSheet = salesChart.ChartData.Workbook.Worksheets(1)
Selection.GoTo What:=wdGoToPage, Which:=wdGolast
salesChart.ChartType = xlRadarMarkers
'chartWorkSheet.ListObjects("Table1").Resize chartWorkSheet.Range("A1:B5")
'chartWorkSheet.Range("Table1[#Headers,[Series 1]]").FormulaR1C1 = "Sales"
chartWorkSheet.Range("A2").FormulaR1C1 = "Bikes"
chartWorkSheet.Range("A3").FormulaR1C1 = "Accessories"
chartWorkSheet.Range("A4").FormulaR1C1 = "Repairs"
chartWorkSheet.Range("A5").FormulaR1C1 = "coucou"
chartWorkSheet.Range("B2").FormulaR1C1 = QUANTITE
chartWorkSheet.Range("B3").FormulaR1C1 = "2500"
chartWorkSheet.Range("B4").FormulaR1C1 = "4000"
chartWorkSheet.Range("B5").FormulaR1C1 = "3000"

Re:

Et si tu fais :

Private Sub CommandButton1_Click()
Dim salesChart As Chart
Dim oRng As Word.Document
Dim oRngRange As Range
Dim chartWorkSheet As Excel.Worksheet

Set chartWorkSheet = salesChart.ChartData.Workbook.Worksheets(1)
Selection.GoTo What:=wdGoToPage, Which:=wdGolast
salesChart.ChartType = xlRadarMarkers
'chartWorkSheet.ListObjects("Table1").Resize chartWorkSheet.Range("A1:B5")
'chartWorkSheet.Range("Table1[#Headers,[Series 1]]").FormulaR1C1 = "Sales"
chartWorkSheet.Range("A2").FormulaR1C1 = "Bikes"
chartWorkSheet.Range("A3").FormulaR1C1 = "Accessories"
chartWorkSheet.Range("A4").FormulaR1C1 = "Repairs"
chartWorkSheet.Range("A5").FormulaR1C1 = "coucou"
chartWorkSheet.Range("B2").FormulaR1C1 = QUANTITE
chartWorkSheet.Range("B3").FormulaR1C1 = "2500"
chartWorkSheet.Range("B4").FormulaR1C1 = "4000"
chartWorkSheet.Range("B5").FormulaR1C1 = "3000"
Set salesChart = ActiveDocument.Shapes.AddChart.Chart



Ca fait quoi?




CF2i - Guadeloupe
Ingénierie Informatique
Messages postés
3
Date d'inscription
lundi 14 novembre 2011
Statut
Membre
Dernière intervention
15 novembre 2011

ça ne marche pas. Je pensais utiliser Anchor avec shape.Addchart mais je ne sais pas le mettre en forme.
Si quelqu'un peut m'aider ?