Home |
Search |
Today's Posts |
#5
![]()
Posted to microsoft.public.excel.charting,microsoft.public.excel.programming
|
|||
|
|||
![]()
Thank you.
"Jim Cone" wrote in message ... Frank, Try this... Sub MoveLabelsUp() Dim objPt As Point For Each objPt In ActiveChart.SeriesCollection(3).Points objPt.DataLabel.Top = 52 Next End Sub -- Jim Cone San Francisco, USA http://www.realezsites.com/bus/primitivesoftware (Chart Data Labels Excel Add-in) "Frank Hayes" wrote in message 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).DataLabe l.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 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
VBA Code to move DataLables to top of Chart | Charts and Charting in Excel | |||
Position DataLables on a pivot pie chart realative to their Points | Charts and Charting in Excel | |||
Position DataLables on a pivot pie chart realative to their Points | Excel Programming | |||
Position DataLables on a pivot pie chart realative to their Points | Excel Programming | |||
Position DataLables on a pivot pie chart realative to their Points | Excel Programming |