macro qui superpose plusieurs graphs

micky · 10 Février 2015

Bonjour,
j'ai enregistré une macro qui est censée générer plusieurs graphs.
lorsque je l'exécute les graphs sont créés mais ils sont tous l'un sur l'autre.
comment réussir a les décaler ?
voici le code...

HTML:

Sub graphiquecharts()
'
' graphiquecharts Macro
'

'
    Range("D1:D5").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("'Test'!$D$1:$D$5")
    ActiveChart.ChartType = xl3DColumnClustered
    ActiveChart.SeriesCollection(1).Name = "=""Combined Ratio"""
    ActiveChart.SeriesCollection(1).XValues = "='Test'!$B$1:$B$5"
    Range("E1:E5").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("'Test'!$E$1:$E$5")
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SeriesCollection(1).Name = "=""Loss Ratio"""
    ActiveChart.SeriesCollection(1).XValues = "='Test'!$B$1:$B$5"
    Range("F1:F5").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("'Test'!$F$1:$F$5")
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SeriesCollection(1).Name = "=""Operating Expense Ratio"""
    ActiveChart.SeriesCollection(1).XValues = "='Test'!$B$1:$B$5"
    Range("G1:G5").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("'Test'!$G$1:$G$5")
    ActiveChart.ChartType = xl3DColumnClustered
    ActiveChart.Legend.Select
    ActiveChart.SeriesCollection(1).Name = "=""Acquisition Expense Ratio"""
    Range("H1:H5").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("'Test'!$H$1:$H$5")
    ActiveChart.ChartType = xl3DColumnClustered
    ActiveChart.SeriesCollection(1).Name = "=""Admin. Expense Ratio"""
    ActiveChart.SeriesCollection(1).XValues = "='Test'!$B$1:$B$5"
    Range("A9").Select
End Sub

merci

macro qui superpose plusieurs graphs

micky

XLDnaute Nouveau

Discussions similaires