Hi,

You can align all of the labels in a series at once. But you need to do
each series individually. Depending on xl version you can do it once
and the use the F4 key to repeat the action when the next series is
selected.

This single line of code in the immediate window will do all series.

for i =1 to
activechart.SeriesCollection.count:activechart.Ser iesCollection(i).datalabels.Orientation
= xlTickLabelOrientationVertical:next i

Cheers
Andy

Bumblebasher wrote:
I need to change the alignment of data labels in my chart so that they are
vertical. Is there any way of applying this format to all the data labels at
once as everytime I alter the source data in the chart, the labels change
back to horizontal alignment and I have to manually change the label format.

--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info