spreadsheet-document-api-chart-examples/VB/SpreadsheetDocServerChartAPISamples/CodeExamples/DataLabelsActions.vb at 24.2.1+ · DevExpress-Examples/spreadsheet-document-api-chart-examples · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
Imports System
Imports System.Drawing
Imports System.Globalization
Imports DevExpress.Spreadsheet
Imports DevExpress.Spreadsheet.Charts
Imports DevExpress.Spreadsheet.Drawings
Imports DevExpress.Utils

Namespace SpreadsheetChartAPISamples
    Public NotInheritable Class DataLabelActions

        Private Sub New()
        End Sub

        Public Shared ShowDataLabelsAction As Action(Of Workbook) = AddressOf ShowDataLabels
        Public Shared SetDataLabelsPositionAction As Action(Of Workbook) = AddressOf SetDataLabelsPosition
        Public Shared DataLabelsNumberFormatAction As Action(Of Workbook) = AddressOf DataLabelsNumberFormat
        Public Shared DataLabelsPerSeriesAction As Action(Of Workbook) = AddressOf DataLabelsPerSeries
        Public Shared DataLabelsPerPointAction As Action(Of Workbook) = AddressOf DataLabelsPerPoint
        Public Shared DataLabelsSeparatorAction As Action(Of Workbook) = AddressOf DataLabelsSeparator


        Private Shared Sub ShowDataLabels(ByVal workbook As Workbook)
#Region "#ShowDataLabels"
            Dim worksheet As Worksheet = workbook.Worksheets("chartTask3")
            workbook.Worksheets.ActiveWorksheet = worksheet

            ' Create a chart and specify its location.
            Dim chart As Chart = worksheet.Charts.Add(ChartType.ColumnClustered, worksheet("B2:D4"))
            chart.TopLeftCell = worksheet.Cells("H2")
            chart.BottomRightCell = worksheet.Cells("N14")

            ' Show data labels.
            chart.Views(0).DataLabels.ShowValue = True

#End Region ' #ShowDataLabels
        End Sub

        Private Shared Sub SetDataLabelsPosition(ByVal workbook As Workbook)
#Region "#SetDataLabelsPosition"
            Dim worksheet As Worksheet = workbook.Worksheets("chartTask3")
            workbook.Worksheets.ActiveWorksheet = worksheet

            ' Create a chart and specify its location.
            Dim chart As Chart = worksheet.Charts.Add(ChartType.ColumnClustered, worksheet("B2:D4"))
            chart.TopLeftCell = worksheet.Cells("H2")
            chart.BottomRightCell = worksheet.Cells("N14")

            ' Display data labels and specify their position within the chart.
            chart.Views(0).DataLabels.ShowValue = True
            chart.Views(0).DataLabels.LabelPosition = DataLabelPosition.Center
#End Region ' #SetDataLabelsPosition
        End Sub

        Private Shared Sub DataLabelsNumberFormat(ByVal workbook As Workbook)
#Region "#DataLabelsNumberFormat"
            Dim worksheet As Worksheet = workbook.Worksheets("chartTask3")
            workbook.Worksheets.ActiveWorksheet = worksheet

            ' Create a chart and specify its location.
            Dim chart As Chart = worksheet.Charts.Add(ChartType.ColumnClustered, worksheet("B2:D4"))
            chart.TopLeftCell = worksheet.Cells("H2")
            chart.BottomRightCell = worksheet.Cells("N14")

            ' Display data labels and specify their position within the chart.
            chart.Views(0).DataLabels.ShowValue = True
            chart.Views(0).DataLabels.LabelPosition = DataLabelPosition.Center

            ' Format data labels.
            chart.Views(0).DataLabels.NumberFormat.FormatCode = "0%"
            chart.Views(0).DataLabels.NumberFormat.IsSourceLinked = False
#End Region ' #DataLabelsNumberFormat
        End Sub

        Private Shared Sub DataLabelsPerSeries(ByVal workbook As Workbook)
#Region "#DataLabelsPerSeries"
            Dim worksheet As Worksheet = workbook.Worksheets("chartTask3")
            workbook.Worksheets.ActiveWorksheet = worksheet

            ' Create a chart and specify its location.
            Dim chart As Chart = worksheet.Charts.Add(ChartType.ColumnClustered, worksheet("B2:D4"))
            chart.TopLeftCell = worksheet.Cells("H2")
            chart.BottomRightCell = worksheet.Cells("N14")

            ' Display data labels for the second series.
            chart.Series(1).CustomDataLabels.ShowValue = True
            chart.Series(1).UseCustomDataLabels = True
#End Region ' #DataLabelsPerSeries
        End Sub

        Private Shared Sub DataLabelsPerPoint(ByVal workbook As Workbook)
#Region "#DataLabelsPerPoint"
            Dim worksheet As Worksheet = workbook.Worksheets("chartTask3")
            workbook.Worksheets.ActiveWorksheet = worksheet

            ' Create a chart and specify its location.
            Dim chart As Chart = worksheet.Charts.Add(ChartType.ColumnClustered, worksheet("B2:D4"))
            chart.TopLeftCell = worksheet.Cells("H2")
            chart.BottomRightCell = worksheet.Cells("N14")

            ' Display the data label for the last point of the second series.
            chart.Series(1).CustomDataLabels.Add(1).ShowValue = True
            chart.Series(1).UseCustomDataLabels = True
#End Region ' #DataLabelsPerPoint
        End Sub

        Private Shared Sub DataLabelsSeparator(ByVal workbook As Workbook)
#Region "#DataLabelsSeparator"
            Dim worksheet As Worksheet = workbook.Worksheets("chartTask1")
            workbook.Worksheets.ActiveWorksheet = worksheet

            ' Create a chart and specify its location.
            Dim chart As Chart = worksheet.Charts.Add(ChartType.Pie, worksheet("B2:C7"))
            chart.TopLeftCell = worksheet.Cells("E2")
            chart.BottomRightCell = worksheet.Cells("K15")

            ' Display the category name and percentage.
            Dim dataLabels As DataLabelOptions = chart.Views(0).DataLabels
            dataLabels.ShowCategoryName = True
            dataLabels.ShowPercent = True
            dataLabels.Separator = ControlChars.Lf

            ' Set the chart style.
            chart.Style = ChartStyle.ColorGradient
            ' Hide the legend.
            chart.Legend.Visible = False
            ' Set the angle of the first pie-chart slice.
            chart.Views(0).FirstSliceAngle = 100
#End Region ' #DataLabelsSeparator
        End Sub
    End Class
End Namespace