Chart Datalabels.Position

M

Michael Singmin

Hello group,

I am using Excel 2003.

For a chart with labels, I am using
.datalabels.position = 2 : Outside, 3 : Inside, 4 : Bottom
How do I implement these defined constants below (VBA Help) ?

XlDataLabelPosition can be one of these XlDataLabelPosition constants.
xlLabelPositionAbove
xlLabelPositionBestFit
xlLabelPositionCustom
xlLabelPositionInsideEnd
xlLabelPositionMixed
xlLabelPositionRight
xlLabelPositionBelow
xlLabelPositionCenter
xlLabelPositionInsideBase
xlLabelPositionLeft
xlLabelPositionOutsideEnd

If I use .DataLabels.Position = xlLabelPositionBelow
I get a run time error 1004
Curiously,
? XlLabelPostion.Right
-4152
and
? XlLabelPostion.Left
-4131

Any insights

Michael Singmin
 
A

Andy Pope

Hi,

It all depends on the chart type you are working with. For instance a
column chart datalabels can only be positioned using the following.
xlLabelPositionOutsideEnd
xlLabelPositionInsideEnd
xlLabelPositionCenter
xlLabelPositionInsideBase
xlLabelPositionCustom

To manually see what position are available check the Label Position
dropdown on the Alignment tab of the format dialog for datalabels.

Cheers
Andy
 
M

Michael Singmin

Hi Andy,

I am using bar coloums.
BTW, John Walkenbach's PUP6 Addin uses those same XlLabelPosition
definitions and they work.

Michael
=====================================================
 
A

Andy Pope

If you have a column chart then xlLabelPositionBelow is not a valid
position. Try this code it should position the data labels InsideBase
and then error on the Below line.

Sub x()
With ActiveChart.SeriesCollection(1)
If .HasDataLabels Then
.DataLabels.Position = xlLabelPositionInsideBase

' following line will error as Below is not valid
.DataLabels.Position = xlLabelPositionBelow
Else
MsgBox "Data labels not yet applied", vbExclamation
End If
End With
End Sub
 
M

Michael Singmin

Thank you Andy,

Your code does indeed work.
It gives me the structure to resolve my own problem.

Much appreciated

Michael
============================================
 
Top