ReFormatting points to lines in XY scatrer charts with 6 charts on each tab.

[Niedermee]

I've got lots of multiple tabs, each with 6 similarly named and positioned chart objects and want to reformat all the charts to that each chart's chart will be changed from showing points to lines. Once each page's chart are reformatted I would like it to select the next tab and make it active.

Below is a copy of the macro I've recorded and fussed with a bit, but it doesn't seem to work. Any ideas?

-Niedermee

Sub Point_to_Lines()
'
' Point_to_Lines Macro
'
' Keyboard Shortcut: Ctrl+t
'
    ActiveSheet.ChartObjects("Chart 5").Activate
    ActiveChart.SeriesCollection(1).Select
    With Selection.Format.Line
        .Visible = msoTrue
    End With
    ActiveSheet.ChartObjects("Chart 6").Activate
    ActiveChart.SeriesCollection(1).Select
    With Selection.Format.Line
        .Visible = msoTrue
    End With
    ActiveSheet.ChartObjects("Chart 7").Activate
    ActiveChart.SeriesCollection(1).Select
    With Selection.Format.Line
        .Visible = msoTrue
    End With
    ActiveSheet.ChartObjects("Chart 8").Activate
    ActiveChart.SeriesCollection(1).Select
    With Selection.Format.Line
        .Visible = msoTrue
    End With
    ActiveSheet.ChartObjects("Chart 9").Activate
    ActiveChart.SeriesCollection(1).Select
    With Selection.Format.Line
        .Visible = msoTrue
    End With
    ActiveSheet.ChartObjects("Chart 4").Activate
    ActiveChart.SeriesCollection(1).Select
    With Selection.Format.Line
        .Visible = msoTrue
    End With
    Worksheets(ActiveSheet.Index + 1).Select
End Sub

[Fotis1991]

Welcome to the forum.

We'd like to help you but first..

Pls take some minutes to read forum rules and specially-in this case- rule#3

[Niedermee]

Thanks for the heads up.

Sub Point_to_Lines()
'
' Point_to_Lines Macro
'
' Keyboard Shortcut: Ctrl+t
'
ActiveSheet.ChartObjects("Chart 5").Activate
ActiveChart.SeriesCollection(1).Select
With Selection.Format.Line
.Visible = msoTrue
End With
ActiveSheet.ChartObjects("Chart 6").Activate
ActiveChart.SeriesCollection(1).Select
With Selection.Format.Line
.Visible = msoTrue
End With
ActiveSheet.ChartObjects("Chart 7").Activate
ActiveChart.SeriesCollection(1).Select
With Selection.Format.Line
.Visible = msoTrue
End With
ActiveSheet.ChartObjects("Chart 8").Activate
ActiveChart.SeriesCollection(1).Select
With Selection.Format.Line
.Visible = msoTrue
End With
ActiveSheet.ChartObjects("Chart 9").Activate
ActiveChart.SeriesCollection(1).Select
With Selection.Format.Line
.Visible = msoTrue
End With
ActiveSheet.ChartObjects("Chart 4").Activate
ActiveChart.SeriesCollection(1).Select
With Selection.Format.Line
.Visible = msoTrue
End With
Worksheets(ActiveSheet.Index + 1).Select
End Sub