MSChart组件生成的饼图，如何在适当的区域显示百分比的值？ 在线等！！！

画饼图所需要的数据都在数组里面:  
  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  
  这段代码能画出漂亮的饼图来，但是，显示不出来个部分所占的百分比。  
  如何显示百分比呢？清高手指点，在线等！！！  
  问题点数：20、回复次数：2Top

1 楼faysky2（出来混，迟早是要还嘀）回复于 2006-03-07 20:42:25 得分 20

MSChar显示百分比：  
   
  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   SubTop

2 楼woshihuzi（我是胡子）回复于 2006-03-07 21:17:21 得分 0

非常感谢。马上给分！  
   
  不过，我的确没有想到，显示百分比竟然这么复杂。赫赫Top

相关问题

• mschart
• 饼图
• 百分比
• dataarray
• 显示
• columncount
• imax
• next
• column
• data

• 帖主：woshihuzi
• faysky2

• Visual Basic类图书
• Visual Basic类源码下载