How can I change the position/format for all data labels in a ser.

  • Thread starter Thread starter Guest
  • Start date Start date
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:
 
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/
_______
 
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
 
Back
Top