Comments on: Label Last Point for Excel 2007

By: M Bolton

M Bolton — Wed, 15 Jun 2011 17:26:31 +0000

Thanks Jon! you’re a life-saver!

for reference, i also used ‘mySrs.DataLabels.Font.Color = mySrs.Border.Color’ on 2007 and it worked as expected.

By: Jon Peltier

Jon Peltier — Wed, 15 Jun 2011 16:18:07 +0000

You can delete the next to last line of code, the one that says:

cht.HasLegend = False

This line deletes the legend, so removing the line means the legend will be left intact.

By: M Bolton

M Bolton — Wed, 15 Jun 2011 15:54:37 +0000

Hi Jon, great macro! With over 30 graphs that are constantly updated, the idea of manually updating the last data label for each had me near tears…

Just one thing, when I run the macro it removes the custom legend series I have in place. Is there any any way the legend can be left alone?

Thanks!

By: brooklynspo

brooklynspo — Tue, 07 Jun 2011 21:20:58 +0000

Thank you for the great macro.

By: Jeff Weir

Jeff Weir — Mon, 07 Mar 2011 21:32:25 +0000

Hi Jon. Me again. Thought I’d share my other minor tweak to this macro, which is to add If ActiveSheet.ChartObjects.Count = 1 Then ActiveSheet.ChartObjects(1).Select. I got tired of dismissing the dialog box after forgetting to select the only chart in the sheet!

This macro has got to be my most used macro. It’s a keeper.

By: jeff weir

jeff weir — Tue, 14 Dec 2010 01:56:56 +0000

Hi Jon. Here’s a small tweak that might save a few minutes over our working lives….In the 2003 version of your labellastpoint sub I’ve added this line after the ‘applydatalabels’ bit:
mySrs.DataLabels.Font.Color = mySrs.Border.Color

…which means the text color of the data labels always matches the line color of the appropriate series.

Haven’t tested this in 2007 (only have 2003 at work).