我的代码如下:
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
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
.ShowLegend = True