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 28 29 30 31 32 33 34 35
|
If Left(Nom_shape_Graphe, 7) = "GRAPHE_" Then
Set Mychart = oPPTapp.ActivePresentation.Slides(ID_Slide).Shapes(Nom_shape_Graphe).Chart
Set gChartData = Mychart.ChartData
Temporis 10000
gChartData.Activate
Set gWorkBook = gChartData.Workbook
Set gWorkSheet = gWorkBook.Worksheets(1)
gWorkSheet.Activate
gWorkSheet.Range(gWorkSheet.Cells(3, 1), gWorkSheet.Cells(100, 100)).ClearContents
gWorkSheet.Range(gWorkSheet.Cells(1, 3), gWorkSheet.Cells(50, 100)).ClearContents
For I = 2 To WS.Cells.SpecialCells(xlCellTypeLastCell).Row
gWorkSheet.Cells(I, 1) = WS.Cells(I, 1)
gWorkSheet.Cells(I, 2) = CDbl(MATRICE_CALC(1, 3, I - 2))
Next I
gWorkSheet.Activate
gWorkSheet.ListObjects("Tableau1").Resize Range("$A$1:$B$" & WS.Range("A10000").End(xlUp).Row)
Mychart.SetSourceData Source:="='Feuil1'!" & Range("$A$1:$B$" & WS.Range("A10000").End(xlUp).Row).Address, PlotBy:=xlColumns
'Temporis 7000
'Mychart.Refresh
'Temporis 5000
Mychart.PlotArea.Select
'Temporis 20000
Mychart.PlotArea.Top = 7
Mychart.PlotArea.Height = 307
Mychart.Refresh
End If |
Partager