title: Recorded macro for data labels does not work
body: <p>So, I'm a novice at using VBA but not so new that I know not to use .select and the likes wherever possible but I will still record macros to find out how to call certain objects. I am working on a large piece of code to do various things before manipulating a chart at the end, it wasn't working so breaking it down into a new spreadsheet I found that some of my lines for manipulating chart labels were giving me an error. I recorded a macro to make sure I hadn't mis-typed anything, but could not fix it, then tried to run the recorded macro, but couldn't get it to work.</p>
  
  <p>Heres the aim of my code:
  1. Apply data labels to one point in a series.
  2. Delete the label I just applied </p>
  
  <p>(in the final code there will be "if" functions ect)</p>
  
  <p>Here is the macro code, straight from the recorder:</p>
  
  <pre><code>ActiveSheet.ChartObjects("Chart 1").Activate
  ActiveChart.SeriesCollection(2).Select
  ActiveSheet.ChartObjects("Chart 1").Activate
  ActiveChart.SeriesCollection(2).Points(1).Select
  ActiveChart.SeriesCollection(2).Points(1).ApplyDataLabels
  ActiveSheet.ChartObjects("Chart 1").Activate
  ActiveChart.SeriesCollection(2).Points(1).DataLabel.Select
  Selection.ShowValue = 0
  Selection.ShowCategoryName = -1 
  ' this line ^ gives error 438, object does not support this property or method
  ActiveSheet.ChartObjects("Chart 1").Activate
  ActiveChart.SeriesCollection(2).Points(1).DataLabel.Select
  Selection.Delete
  </code></pre>
  
  <p>What's also very curious is that sometimes rather than Selection.ShowValue = 0 it will use Selection.ShowValue = False</p>
  
  <p>Anyone know why the recorded code for this is so jumpy? Also if anyone could suggest simpler code for manipulating data labels that would be very useful.
  I am using excel 07 on windows 7.</p>