Hi,

Double click a data label. The format dialog should then allow you to
format the labels, its font attributes and alignment.

Cheers
Andy

PearlBeast wrote:

--

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

Rob Bovey's Chart Labeler also has a feature to Move all labels for a series en
masse. It's a free download, easy to install and use:

http://appspro.com

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
Tutorials and Custom Solutions
http://PeltierTech.com/
_______

Andy Pope wrote:

Hi,

Double click a data label. The format dialog should then allow you to
format the labels, its font attributes and alignment.

Cheers
Andy

PearlBeast wrote:

Another option via code . . .

Sub MoveLabels()

Application.ScreenUpdating = False

On Error Resume Next

Dim A As Integer 'Start Value
Dim B As Integer 'End Value
Dim C As Integer 'Increment Value
Dim D As Integer 'Vertical Move
Dim E As Integer 'Horizontal Move
Dim F As Integer
Dim G As Integer

Set Cht = ActiveChart

Set Srs1 = ActiveChart.SeriesCollection(1)

Set Pts1 = Srs1.Points

A = 1 ' Start Value
B = 6 ' End value
C = 1 ' Increment Value
D = 10 ' Vertical Move
E = 10 ' Horizontal Move

Do Until A B

'Sets the label font size
Srs1.Points(A).DataLabel.Font.Size = 10
'Sets the label number format
Srs1.Points(A).DataLabel.NumberFormat = "#,##0"

F = Srs1.Points(A).DataLabel.Top
Srs1.Points(A).DataLabel.Top = F + D

G = Srs1.Points(A).DataLabel.Left
Srs1.Points(A).DataLabel.Left = G + E

A = A + C

Loop

End Sub


"Jon Peltier" wrote:

Rob Bovey's Chart Labeler also has a feature to Move all labels for a series en
masse. It's a free download, easy to install and use:

http://appspro.com

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
Tutorials and Custom Solutions
http://PeltierTech.com/
_______

Andy Pope wrote:

Hi,

Double click a data label. The format dialog should then allow you to
format the labels, its font attributes and alignment.

Cheers
Andy

PearlBeast wrote: