HasAbsoluteLabels Property
This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.
Returns or sets whether the legend entries for percentage-calculated segments are displayed as absolute values in the legend. Set this property to True in order to display the actual beginning and ending values for a segment that was calculated as a percentage. The default value is False. Read/write Boolean.
expression.HasAbsoluteLabels
expression Required. An expression that returns a ChSegment object.
Example
This example binds Chartspace1 to the Order Details table in the SQL Server Northwind database. Then, a format map is created that displays the larger values in the chart with a darker shade of blue.
Sub Window_Onload()
Dim serSeries1
Dim segSegment1 As ChSegment
Dim chconstants
Set chconstants = ChartSpace1.Constants
' The following two lines of code bind Chartspace1 to the Order Details table in the
' Northwind SQL Server database.
ChartSpace1.ConnectionString = "Provider=SQLOLEDB.1;persist Security Info=TRUE;User ID=sa;Initial " & _
"Catalog=Northwind;Data Source=DataServer;PASSWORD=;"
ChartSpace1.DataMember = "Order Details"
' The following two lines of code bind Chartspace1 to the Quantity and ProductID fields
' in the Order Details table.
ChartSpace1.SetData chconstants.chDimCategories, chconstants.chDataBound, "ProductID"
ChartSpace1.SetData chconstants.chDimValues, chconstants.chDataBound, "Quantity"
' Create a format map.
ChartSpace1.SetData chconstants.chDimFormatValues, chconstants.chDataBound, "Quantity"
' Set a variable to the first series in the first chart in Chartspace1.
Set serSeries1 = ChartSpace1.Charts(0).SeriesCollection(0)
' Add a segment to the format map.
Set segSegment1 = serSeries1.FormatMap.Segments.Add
' Measure the segment boundaries based upon a percentage.
segSegment1.Begin.ValueType = chconstants.chBoundaryValuePercent
segSegment1.End.ValueType = chconstants.chBoundaryValuePercent
' Set the beginning value to 0%, and the ending value to 100%.
segSegment1.Begin.Value = 0
segSegment1.End.Value = 1
' Format the interior of the matching values.
segSegment1.Begin.Interior.Color = "White"
segSegment1.End.Interior.Color = "Blue"
segSegment1.HasAutoDivisions = False
segSegment1.HasAbsoluteLabels = True
segSegment1.HasDiscreteDivisions = False
End Sub