F
Frank Hayes
I am creating a series of column charts, and I would like to move all the
data labels in a series to the top of the chart (above the column and evenly
spaced)
The VBA code to do so for any individual point in the series is:
' ActiveChart.SeriesCollection(3).Points(1).DataLabel.Select
' Selection.Top = 52
I would like to automate this to do it for every point in the
seriescollection, and have tried the following:
Sub LabelsToTop()
For Each Points In ActiveChart.SeriesCollection(4)
DatalLabel.Select
Selection.Top = 52
Next
End Sub
But get an Object Variable Error Messge. Does anyone know the correct
sytax ? I am using Excel 2000 with SP-3
Thanks
Frank
data labels in a series to the top of the chart (above the column and evenly
spaced)
The VBA code to do so for any individual point in the series is:
' ActiveChart.SeriesCollection(3).Points(1).DataLabel.Select
' Selection.Top = 52
I would like to automate this to do it for every point in the
seriescollection, and have tried the following:
Sub LabelsToTop()
For Each Points In ActiveChart.SeriesCollection(4)
DatalLabel.Select
Selection.Top = 52
Next
End Sub
But get an Object Variable Error Messge. Does anyone know the correct
sytax ? I am using Excel 2000 with SP-3
Thanks
Frank