请教如何避免字重叠啊

kserjin · 发表于 2009-5-14 18:39

我用代码创建了一个图形,却有些百分比是重叠到一块了,请教如何避免,用代码.

代码如下:
Sub Macro1()
'
' Macro1 Macro
' 宏由 USER 录制，时间: 2009-5-14
'

'
Range("A1").Select
ActiveCell.FormulaR1C1 = "50"
Range("A2").Select
ActiveCell.FormulaR1C1 = "30"
Range("A3").Select
ActiveCell.FormulaR1C1 = "16"
Range("A4").Select
ActiveCell.FormulaR1C1 = "2"
Range("A5").Select
ActiveCell.FormulaR1C1 = "1"
Range("A6").Select
ActiveCell.FormulaR1C1 = "1"
Range("A1:A6").Select
Charts.Add
ActiveChart.ChartType = xl3DPieExploded
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:A6"), PlotBy:= _
      xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
ActiveChart.ApplyDataLabels AutoText:=True, LegendKey:=False, _
      HasLeaderLines:=True, ShowSeriesName:=False, ShowCategoryName:=False, _
      ShowValue:=True, ShowPercentage:=True, ShowBubbleSize:=False
End Sub

kserjin · 发表于 2009-5-14 19:05

哪位高手帮帮忙啊,不甚感激.

kserjin · 发表于 2009-5-14 20:10

shlzml · 发表于 2009-5-14 21:18

不懂VBA 但是如果数据是变化的很难控制标签位置

kserjin · 发表于 2009-5-15 15:20

shlzml · 发表于 2009-5-15 15:32

友情告诫不要纯表情回复会被认为灌水处理

lbzcc · 发表于 2009-5-15 15:40

还是手动修改吧！
或着保留到整数位，另用二维的饼图更好一点，相比较三维饼图标签更易重合。

kserjin · 发表于 2009-5-17 18:56

谢谢大侠指点

kserjin · 发表于 2009-5-17 18:57

是想让客户自己输入数据产生图形的，所以手动不现实啊，~~~

		自动登录	找回密码
密码			免费注册

[求助] 请教如何避免字重叠啊

回复 6楼 shlzml 的帖子

回复 7楼 lbzcc 的帖子