Pie Charts
 

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?

Pie Charts
 

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?

Pie Charts
 

Actually, after re-booting my PC and re-running the code I already had, it
seemed to work. While I had been able to effect the left and top
positioning, the height and width commands seemed to be ignored. The re-boot
cured it - at least until I try it again today.

I did re-arrange the order of things so that I re-size the chart first, and
then apply the data labels.

Thanks.



"Andy Pope" wrote:

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?