Sorry, to clarify. I can make the change once by using the following
command button code:

Private Sub CommandButton1_Click()
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartType = xlLine
End Sub

However, what I want to do is revert back to the original format the
second time the command button is clicked.

Thanks

Steve