Macro to delete "series" in a chart

[excel_2009]

Hi Excel gurus,

Quick question, how can i delete the "series" key from an excel chart?

i'm using the current coding to move the actual graph, but was wondering if its possible to delete the "series":

Set chtObj = ActiveSheet.ChartObjects(1)
chtObj.Left = Cells(32, 1).Left
chtObj.Top = Cells(32, 1).Top
chtObj.Legend.Select

Thank you!

 

[Andrew Poulsom]

Do you want to remove the legend?

    chtObj.Chart.HasLegend = False

 

[excel_2009]

Hi Andrew,

Thank you for helping, an error message appears when i run the code:

Object variable or With Block variable not set?

but the coding does work! is there anyway i can disable the above message from appearing?!

 

[Andrew Poulsom]

I got no error with this code:

Sub Test()
    Dim chtObj As ChartObject
    Set chtObj = ActiveSheet.ChartObjects(1)
    chtObj.Left = Cells(32, 1).Left
    chtObj.Top = Cells(32, 1).Top
    chtObj.Chart.HasLegend = False
End Sub

provided that a cell was active when I ran it.

 

[excel_2009]

Thank you Andrew it works perfectly, by the way is it possible to adapt that macro so that it deletes the entire chart?

 

[Andrew Poulsom]

Like this?

ActiveSheet.ChartObjects(1).Delete

 

[excel_2009]

Thank you Andrew for all your help