Dim Obj As ChartObject
For Each Obj In ActiveSheet.ChartObjects
MsgBox Obj.Name
Next
Dim sh As Worksheet
For Each sh In Worksheets
...
Next
ActiveSheet.ChartObjects("Graphique 12").Activate ActiveChart.PlotArea.Select Selection.Left = 16.782 Selection.Top = 11 ActiveSheet.ChartObjects("Graphique 12").Activate ActiveChart.ChartArea.Select ActiveSheet.ChartObjects("Graphique 12").Activate
ActiveSheet.ChartObjects("Graphique 12").Activate ActiveChart.SeriesCollection(1).Select ActiveSheet.ChartObjects("Graphique 12").Activate ActiveChart.SeriesCollection(1).ApplyDataLabels
ActiveSheet.ChartObjects("Graphique 11").Activate ActiveChart.SetElement (msoElementChartTitleAboveChart) ActiveSheet.ChartObjects("Graphique 11").Activate ActiveChart.ChartTitle.Text = _ "Pièces non prévues dans le recore" & Chr(13) & "Janvier 2015" & Chr(13) & "Total XXXXXX€" ActiveSheet.ChartObjects("Graphique 11").Activate ActiveChart.ChartArea.Select ActiveSheet.ChartObjects("Graphique 11").Activate
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question