Add2 Method

Description

Adds a new ChartSeriesPoint to a series's collection of points. This method is used for series that require an argument and two values (Bubble, RangeBar).

Syntax

Public Function Add2( _
    ByVal [Argument](#) As Variant, _
    ByVal [Value1](#) As Double, _
    ByVal [Value2](#) As Double _
) As [ChartSeriesPoint](XtremeChartControl~ChartSeriesPoint.md)

Parameters

Argument: String value denoting the argument.
Value1: First value for the point.
Value2: Second value for the point.

Return Type

Reference to the ChartSeriesPoint to be added.

Remarks

This method is used for series that require an argument and two values. In this case, the Bubble and RangeBar series use Add2 to add points to their series.

Range Bar Example

Example

Uses Add2 to add points to a range bar:

Dim Series As ChartSeries  
Set Series = ChartControl.Content.Series.Add("Odd Days")  

Series.Points.Add2 "Sam", 8, 14  
Series.Points.Add2 "Jesse", 9, 16  
Series.Points.Add2 "Dave", 7, 15  
Series.Points.Add2 "Max", 6, 15  
Series.Points.Add2 "Brian", 9, 17  

Set Series = ChartControl.Content.Series.Add("Even Days")  
Series.Points.Add2 "Sam", 12, 23  
Series.Points.Add2 "Jesse", 14, 18  
Series.Points.Add2 "Dave", 12, 20  
Series.Points.Add2 "Max", 12, 23  
Series.Points.Add2 "Brian", 19, 23

Set ChartControl.Content.Series(0).Style = New ChartRangeBarSeriesStyle  
Set ChartControl.Content.Series(1).Style = New ChartRangeBarSeriesStyle  

ChartControl.Content.Series(0).Style.Label.Visible = False  
ChartControl.Content.Series(1).Style.Label.Visible = False  

ChartControl.Content.Series(1).Style.BarWidth = 0.2  

Dim Diagram As ChartDiagram2D  
Set Diagram = ChartControl.Content.Series(0).Diagram  
Diagram.AxisY.Title.Visible = True  
Diagram.AxisY.Title.Text = "Hours"  
Diagram.AxisX.Title.Visible = True  
Diagram.AxisX.Title.Text = "Employee"  

Diagram.AxisX.Label.Angle = 360