主题：求助：图表格式设置

各位老师：我借用代码在表中插入一个饼图，代码如下：

 

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

 

请各位老师费心，给指点一下，谢谢！