Hi,
Does this macro help?
Sub PieLabels()
Dim sngLeft As Single
Dim sngTop As Single
Dim sngWidth As Single
Dim sngHeight As Single
With ActiveSheet.ChartObjects(1).Chart
With .PlotArea
sngLeft = .Left
sngTop = .Top
sngWidth = .Width
sngHeight = .Height
End With
.SeriesCollection(1).ApplyDataLabels AutoText:=True,
LegendKey:=False, _
HasLeaderLines:=True,
ShowSeriesName:=False, _
ShowCategoryName:=True,
ShowValue:=False, _
ShowPercentage:=False,
ShowBubbleSize:=False
With .PlotArea
.Left = sngLeft
.Top = sngTop
.Width = sngWidth
.Height = sngHeight
End With
End With
End Sub
Cheers
Andy
--
Andy Pope, Microsoft MVP - Excel
http://www.andypope.info
"Martha D." wrote in message
...
I am building a pie chart via code. As soon as I apply data labels, the
plot
area resizes to accomodate the labels. Can I prevent this?
I've tried using the plotarea.height/width, etc. properties, but it
doesn't
seem to help.
I have turned off font autoscaling. Is there a similar property for the
plot area?