chart properties in recording macro

[rianz]

Hi, im new using vba excel and im using excel 2007.
im create chart using recording macro and here my code:
[vba]
Private Sub CommandButton1_Click()

ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range( _
"'siklus'!$B$2:$B$2709,'siklus'!$C$2:$C$2709,'siklus'!$U$2:$U$2709")
ActiveChart.ChartType = xlLine

ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range( _
"'siklus'!$B$2:$B$2709,'siklus'!$D$2:$D$2709,'siklus'!$U$2:$U$2709")
ActiveChart.ChartType = xlLine
.
.
.
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range( _
"'siklus'!$B$2:$B$2709,'siklus'!$T$2:$T$2709,'siklus'!$U$2:$U$2709")
ActiveChart.ChartType = xlLine

End Sub

[/vba]
my question is how to coloring data series,change legend position to bottom.

thx

*Sorry for my bad english...

[nepotist]

Changing color of the Series line
[VBA]ActiveChart.SeriesCollection(2).Select
With Selection.Format.Line
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorAccent1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
End With[/VBA]
For moving the legend:
[VBA]ActiveChart.Legend.Select
Selection.Left = 320
Selection.Top = 235[/VBA]

[rianz]

hi nepotist thx for reply

for changing color of the series line i have error message "Object doesn't support this property or method"
and for moving legend no error but i want show the legend in the middle bottom and without overlapping the chart

thx again