Solved: Position Values on Stack Bar chart

[Shazam]

Hopefully this make sense, I would like a macro to position the values on the chart of series (1) to the end of the bar this will be a daily occurrences. I left a before and after worksheet to give you a visual sense. I got this code from Killian but I do not know how to modifiy it.

http://vbaexpress.com/forum/showthre...ighlight=chart


[VBA]
With ActiveChart.SeriesCollection(1)
For intPoint = 1 To .Points.Count
.DataLabels(intPoint).Top = _
ActiveChart.SeriesCollection(1).DataLabels(intPoint).Top - 1
Next
End With
[/VBA]

[Shazam]

Is this possible?

[Andy Pope]

Hi,

It's a default Alignment position, InsideEnd, or am I missing something.



With data labels selected the macro recorder produced this

    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .Position = xlLabelPositionInsideEnd
        .Orientation = xlHorizontal
    End With

[Shazam]

Hi,

It's a default Alignment position, InsideEnd, or am I missing something.



With data labels selected the macro recorder produced this

    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .Position = xlLabelPositionInsideEnd
        .Orientation = xlHorizontal
    End With

How did I missed that. Thank You very much Andy Pope.

[Bob Phillips]

Its easy to miss Shaz. I had a similar problem in charting, and I couldn't find the solution. The chart OM is a little bit scattered and non-intuitive IMO, which is why we need people like Andy and Jon Peltier.

[Shazam]

Its easy to miss Shaz. I had a similar problem in charting, and I couldn't find the solution. The chart OM is a little bit scattered and non-intuitive IMO, which is why we need people like Andy and Jon Peltier.

I totally agree with you.