引用1楼bcrun的回复:惭愧,被楼主唤来后,才发现自己机器上没安装office,以前用VBA时也没用过这两个方法。
有一个小建议,楼主不妨把你的问题描述再整理一下,最好配上些截图说明,这样对这方面问题有一定了解,但还不只很熟悉的网友,理解我的意思时就会容易很多的。
版主代码如下
Range("A1").Value=10
Range("B1").Value=4
Range("C1").Value=5
SetRChart=Range("H5")
ActiveSheet.Shapes.AddChart(xlPie,(RChart.Left+RChart.Width/2),RChart.Top,(RChart.Width*3),(RChart.Height*10)).Select
ActiveChart.SetSourceDataSource:=Range("$A$1:$C$1")//问题就在这里我必须事先设定这三个Range的值见前面的代码貌似这里的参数必须是range其实只需要一个三个成员的integer数组就可以有无其他方式直接使用值(10,4,5)传入这个绘图函数,而不必折腾三个range出来
ActiveChart.SeriesCollection(1).XValues="={""初级"",""中级"",""高级""}"
ActiveChart.SeriesCollection(1).Name="=""人员能力分布"""
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).ApplyDataLabels
ActiveChart.ChartTitle.Format.TextFrame2.TextRange.Font.NameComplexScript="微软雅黑"
ActiveChart.ChartTitle.Format.TextFrame2.TextRange.Font.NameFarEast="微软雅黑"
ActiveChart.ChartTitle.Format.TextFrame2.TextRange.Font.Name="微软雅黑"
ActiveChart.ChartTitle.Format.TextFrame2.TextRange.Font.Size=10
|