'看看下面的例子吧 Private Sub Command1_Click() '将二维折线图表的 x、y 坐标轴刻度设置为 '折线图。 Dim axisID As VtChAxisId Form1.MSChart1.ChartType = VtChChartType2dLine For AxisId = VtChAxisIdX To VtChAxisIdY With MSChart1.Plot.Axis(AxisId).AxisScale .Type = VtChScaleTypePercent .PercentBasis = VtChPercentAxisBasisSumChart '这个就是设置百分比的 End With Next End Sub
series1.clear;
series1.add(100,'一月');
series1.add(200,'二月');
series1.add(300,'三月');
Private Sub Command1_Click()
'将二维折线图表的 x、y 坐标轴刻度设置为
'折线图。
Dim axisID As VtChAxisId
Form1.MSChart1.ChartType = VtChChartType2dLine
For AxisId = VtChAxisIdX To VtChAxisIdY
With MSChart1.Plot.Axis(AxisId).AxisScale
.Type = VtChScaleTypePercent
.PercentBasis = VtChPercentAxisBasisSumChart '这个就是设置百分比的
End With
Next
End Sub