请问如何将各个饼状图的圆饼大小做到一致？

795246

各位大虾： 小弟在做圆饼图时碰到一个问题，就是做很多圆饼图后，每个圆饼大小并不一致，放在一起极不美观，请问有什么办法解决吗？谢谢！

snood

Sub snood()

On Error Resume Next
For i = 1 To ActiveSheet.ChartObjects.Count

ActiveSheet.ChartObjects(i).Activate

ActiveChart.PlotArea.Select
Selection.Top = 20
Selection.Left = 20
Selection.Width = 100
Selection.Height = 100


图表 = Trim(Right(ActiveChart.Name, Len(ActiveChart.Name) - Len(ActiveSheet.Name)))

ActiveSheet.Shapes(图表).Width = 140
ActiveSheet.Shapes(图表).Height = 140

Next
End Sub

795246

谢谢大哥，我又学到东西了，呵呵

holywilly

张了见识，不过现在关于VBA和图表的资料太少了。

谁知道有好的这方面的资料吗？