MSChar显示百分比

问:

画饼图所需要的数据都在数组里面:  
  dim   dataArray(0   to   iMax,   0   to   1)  
   
  其中dataArray(i,0)是标题  
          dataArray(i,0)是数字   
    
  代码如下：   

                          MSChart.chartType   =   VtChChartType2dPie   '   画饼图   
                            
                          MSChart.Visible   =   True   
                          MSChart.AllowSelections   =   False   
                          MSChart.ShowLegend   =   True   
                          MSChart.TitleText   =   "百分比图"   
                            
                          '   为Chart控件的各行各列赋值   
                          MSChart.RowCount   =   1   
                          MSChart.ColumnCount   =   iMax   +   1   
                          MSChart.RowLabel   =   ""   
                          For   i   =   0   To   iMax   
                                  MSChart.Row   =   1   
                                  MSChart.Column   =   i   +   1   
                                  MSChart.Data   =   dataArray(i,   1)   
                                  MSChart.ColumnLabel   =   dataArray(i,   0)   
                          Next

  这段代码能画出漂亮的饼图来，但是，显示不出来个部分所占的百分比。  
  如何显示百分比呢？

答:    

Private   Sub   Form_Load()   
              With   MSChart1   
                    .ChartType   =   VtChChartType2dPie   
    
              For   i   =   1   To   3   
                    .Row   =   1   
                    .Column   =   i   
                    .Data   =   i   *   100   
              Next   
    
              With   .DataGrid   
                    .RowLabelCount   =   1   
                    .ColumnCount   =   3   
                    .RowCount   =   1   
                    For   i   =   1   To   .ColumnCount   
                          .ColumnLabel(i,   1)   =   "Column   "   &   i   
                    Next   i   
                    .RowLabel(1,   1)   =   "Data   as   a   Percentage"   
              End   With   
    
              For   i   =   1   To   .Plot.SeriesCollection.Count   
                    With   .Plot.SeriesCollection(i).DataPoints(-1).DataPointLabel   
                          .LocationType   =   VtChLabelLocationTypeOutside   
                          .Component   =   VtChLabelComponentPercent   
                          .PercentFormat   =   "0%"   
                          .VtFont.Size   =   10   
                    End   With   
              Next   i   
    
              End   With   
    
End   Sub