สอบถามการเพิ่มรายละเอียดให้กราฟที่ export ออกมาเป็น excel เช่น titel ชื่อแกนx,y ป้ายชื่อหรือจำนวนที่แสดงอยู่เหนือแท่งกราฟ
อยากจะ export ข้อมูลออกมาให้อยู่ในรูปแบบของกราฟซึ่งตอนนี้สามารถทำได้แล้วแต่ยังขาดในส่วนของรายละเอียดที่เป็น หัวเรื่อง ชื่อแกน X ชื่อแกน Y และป้ายชื่อหรือจำนวนที่แสดงอยู่เหนือแท่งกราฟ ไม่ทราบว่าจะต้องเพิ่ม โค้ดในส่วนไหนค่ะ และถ้าสามารถเปลี่ยนสีแท่งกราฟให้มีสีที่แตกต่างกันด้วยก็จะดีมากรบกวนด้วยน่ะค่ะ
Code (VB.NET)
Dim xlApp As Excel.Application
Dim xlWorkBook As Excel.Workbook
Dim xlWorkSheet As Excel.Worksheet
Dim misValue As Object = System.Reflection.Missing.Value
Dim j As Integer = 0
xlApp = New Excel.ApplicationClass
xlWorkBook = xlApp.Workbooks.Add(misValue)
xlWorkSheet = xlWorkBook.Sheets("sheet1")
xlWorkSheet.Name = TabPage1.Text
xlWorkSheet.Cells(1, 1) = "เปรียบเทียบข้อมูล"
xlWorkSheet.Cells(2, 1) = ""
xlWorkSheet.Cells(2, 2) = "เปรียบเทียบข้อมูล" & "2556"
Dim nYear As Integer = 3
For i = 0 To dgvYear1.Rows.Count - 1
xlWorkSheet.Cells(nYear, 1) = dgvYear1.Item(0, i).Value
xlWorkSheet.Cells(nYear, 2) = dgvYear1.Item(2, i).Value
nYear += 1
Next
nYear = 38
xlWorkSheet.Cells(37, 1) = dgvYear1.Columns(0).HeaderText
xlWorkSheet.Cells(37, 2) = dgvYear1.Columns(1).HeaderText
For i = 0 To dgvYear1.Rows.Count - 1
xlWorkSheet.Cells(nYear, 1) = dgvYear1.Item(0, i).Value
xlWorkSheet.Cells(nYear, 2) = dgvYear1.Item(1, i).Value
nYear += 1
Next
xlCharts = xlWorkSheet.ChartObjects
chartRange = xlWorkSheet.Range("A2", "B12")
myChart = xlCharts.Add(10, 200, 450, 300)
chartPage = myChart.Chart
chartPage.SetSourceData(Source:=chartRange)
chartPage.ChartType = Excel.XlChartType.xlColumnClustered
Tag : .NET, Excel (Excel.Application), VB.NET
Date :
2013-04-09 13:39:18
By :
MooT
View :
1099
Reply :
1
ตัวนี้ไม่เหมาะจะทำ Graph ครับ แนะนำให้ใช้พวก Library ตัวอื่นของ .NET ครับ
Date :
2013-04-10 06:20:31
By :
mr.win
Load balance : Server 03