SetLegendMask Method Example

The following example causes all of the potential legend items for the Enhanced Chart to display.

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

 

---