How To Label Pie Slices as Percentages in MSChart Pie Chart (230484)

MORE INFORMATION

1. Start a new Standard EXE project in Visual Basic. Form1 is created by default.
2. From the Project menu, choose Components, check Microsoft Chart Control, and click OK.
3. Add an instance of the MSChart control to Form1.
4. Add the following code to Form1:

      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
   					

5. Run the project.