PDA

View Full Version : Solved: Position Values on Stack Bar chart



Shazam
07-05-2007, 10:59 AM
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/showthread.php?t=7497&highlight=chart



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

Shazam
07-06-2007, 05:57 AM
Is this possible?

Andy Pope
07-06-2007, 06:19 AM
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
07-06-2007, 04:31 PM
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
07-07-2007, 01:28 AM
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
07-08-2007, 06:24 PM
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.