我的代码如下:
With MSChart3
        .chartType = VtChChartType2dPie
        .ColumnCount = 2
        .RowCount = 1
        Dim XXX As Double
        XXX = intRnd / 1000 * 100
        .TitleText = "饼图示例 使用百分比"
        .Column = 1
        .Row = 1
        .Data = XXX
        .ColumnLabel = "完成百分比" & Str(XXX) & "%"//这一句无法显示
        .Column = 2
        .Row = 1
        .Data = 100 - XXX
        .ColumnLabel = "剩余百分比" & Str(100 - XXX) & "%""//这一句无法显示
     End With