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...
merci
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