/
DataTableActions.vb
57 lines (49 loc) · 2.37 KB
/
DataTableActions.vb
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
Imports DevExpress.Spreadsheet
Imports DevExpress.Spreadsheet.Charts
Namespace SpreadsheetChartAPIActions
Module DataTableActions
Private Sub ShowDataTables(ByVal workbook As IWorkbook)
#Region "#ShowDataTable"
Dim worksheet As Worksheet = workbook.Worksheets("chartTask5")
workbook.Worksheets.ActiveWorksheet = worksheet
'Create a chart and specify its location
Dim chart As Chart = worksheet.Charts.Add(ChartType.Line, worksheet("B2:C8"))
chart.TopLeftCell = worksheet.Cells("F2")
chart.BottomRightCell = worksheet.Cells("L14")
Dim dataTableOptions As DataTableOptions = chart.DataTable
dataTableOptions.Visible = True
dataTableOptions.ShowLegendKeys = False
#End Region
End Sub
Private Sub ChangeDataTableBorders(ByVal workbook As IWorkbook)
#Region "#ChangeDataTableBorders"
Dim worksheet As Worksheet = workbook.Worksheets("chartTask5")
workbook.Worksheets.ActiveWorksheet = worksheet
'Create a chart and specify its location
Dim chart As Chart = worksheet.Charts.Add(ChartType.Line, worksheet("B2:C8"))
chart.TopLeftCell = worksheet.Cells("F2")
chart.BottomRightCell = worksheet.Cells("L14")
Dim dataTableOptions As DataTableOptions = chart.DataTable
dataTableOptions.Visible = True
dataTableOptions.ShowLegendKeys = False
dataTableOptions.ShowVerticalBorder = False
dataTableOptions.ShowOutline = False
#End Region
End Sub
Private Sub ChangeDataTableFont(ByVal workbook As IWorkbook)
#Region "#ChangeDataTableFont"
Dim worksheet As Worksheet = workbook.Worksheets("chartTask5")
workbook.Worksheets.ActiveWorksheet = worksheet
'Create a chart and specify its location
Dim chart As Chart = worksheet.Charts.Add(ChartType.Line, worksheet("B2:C8"))
chart.TopLeftCell = worksheet.Cells("F2")
chart.BottomRightCell = worksheet.Cells("L14")
Dim dataTableOptions As DataTableOptions = chart.DataTable
dataTableOptions.Visible = True
dataTableOptions.ShowLegendKeys = False
dataTableOptions.Font.Name = "Helvetica"
dataTableOptions.Font.Size = 12
#End Region
End Sub
End Module
End Namespace