positionnement d'un graph dans word

Question

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

acive · Answer

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&#8217;éléments... à quel moment tu fais :
Set salesChart = ActiveDocument.Shapes.AddChart.Chart
?



CF2i - Guadeloupe
Ingénierie Informatique

FabienneE · Answer

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"

acive · Answer

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

FabienneE · Answer

ç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 ?

Positionnement d'un graph dans word

4 réponses

Votre réponse

Discussions similaires