SetLegendMask 方法示例
2015-12-15 22:24:16   来源：   评论：0 点击：

以下示例导致显示增强图表的所有可能的图例项目。

Private Sub CommandButton12_Click()

Dim objDataSet As Object ' FixRealTimeDataSet.FixRealTimeDataSet

Set objDataSet = LineChart1.GetCurrentDataSet()

With objDataSet

.SetLegendMask IIf(0 = .DSLegendMask, LegendMask_All, 0)

End With

End Sub