/
DataTableActions.vb
57 lines (51 loc) · 2.65 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
Public NotInheritable Class DataTableActions
Private Sub New()
End Sub
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 ' #ShowDataTable
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.ShowHorizontalBorder = False
' #End Region ' #ChangeDataTableBorders
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 ' #ChangeDataTableFont
End Sub
End Class
End Namespace