各位老师:我借用代码在表中插入一个饼图,代码如下:
Dim App As New MSExcel.Application
App.Visible = True
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\2019年7月下线入库合格率统计.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("部门不良点统计") '指定工作表
Dim Rg As MSExcel.Range = Ws.Range("P6:P11") '图表数据源
Dim Co As MSExcel.ChartObject = Ws.ChartObjects.Add(100,200,400,250) '创建图表对象
Dim Cht As MSExcel.Chart = Co.Chart
Cht.ChartType = MSExcel.XlChartType.xlPie '图表类型
Cht.SetSourceData(Rg,MSExcel.XlRowCol.xlColumns)
Cht.SeriesCollection(1).XValues = "=部门不良点统计!$C$6:$C$11"
Cht.Location(MSExcel.XlChartLocation.xlLocationAsObject, "部门不良点统计")
现在我想要的效果: 1、在数据标识中,显示百分比,并显示类别名称。以下代码怎么改,请老师费心
With Cht.SeriesCollection(1) '返回图表中第1个系列
.HasDataLabels = True '显示第1个系列的数据标志
.HasLeaderLines= True '显示第1个系列的数据标志引导线
End With
我想要的效果:2、在底部显示图例。以下代码怎么改,请老师费心
With Cht '图例
.HasLegend = True '显示图例,
End With
请各位老师费心,给指点一下,谢谢!