Label at the end of Stacked Bar Pivot Chart

[PopSix]

I have a stacked bar pivot chart. I would like to add a label or textbox at the end of each of the bar. How do I find and reference the x-y coordinates for the end each bar?

My VBA is limited, but growing. Any snippet or code example would be great.

Thanks.

 

[RoryA]

I take it data labels are no good to you for some reason?

 

[PopSix]

Correct. I want to add additional details.

 

[PopSix]

Hey, Do you have any thoughts on this????

 

[RoryA]

Sorry, it appears the reply I thought I posted yesterday never got through.
If you use the data labels, you can alter the text in them - for example:

    Dim ser As Series
    Dim n As Long
    Dim lbl As DataLabel
    Set ser = ActiveChart.SeriesCollection(9)
    ' note: need to supply one of the text options here
    ser.ApplyDataLabels AutoText:=True, LegendKey:= _
        False, ShowSeriesName:=True, ShowCategoryName:=False, ShowValue:=False, _
        ShowPercentage:=False, ShowBubbleSize:=False
    For n = 1 To ser.Points.Count
        Set lbl = ser.Points(n).DataLabel
        lbl.Characters().Text = "Testing " & n
    Next n

 

[PopSix]

Great. I'll give it a try.

But from your description it looks like you are changing the label in the series. I want to add label to the end or just below the stack based on the length of the stack.

|--------- Total 1
|
|-----------------Total 2
|
|--Total 3
|
_______________________________________________

Something like that.

 

[RoryA]

You can add the datalabels to the last series if you only want them at the end of the stack - or do you already make use of the datalabels in the chart?

 

[PopSix]

I want to add labels to the end of the stack. How do you reference the end? How would the data label get there?

 

[RoryA]

Add them to the last series in the data - then they will be at the end of the stack automatically.

 

[PopSix]

Thank you for hanging in there with me. But, sorry how do you add them to the last series?