Dalam tutorial ini, kita akan belajar bagaimana mengaktifkan scatter chart (chart scatter) menggunakan interop Excel. Interop Excel adalah library yang memungkinkan Anda untuk berinteraksi dengan aplikasi Microsoft Office Excel dari dalam program lainnya.
Kode VB.NET
Berikut adalah contoh kode VB.NET yang dapat Anda gunakan sebagai referensi:
Dim rng As Microsoft.Office.Interop.Excel.Range
Dim RowStart As Integer = 2
' Aktivasi range untuk memasukkan data chart
rng = xlWorkSheet.Range("E" & RowStart)
rng.Value = "3D Line"
ReleaseCOM(rng)
' Membuat border dan font bold untuk range tersebut
rng = xlWorkSheet.Range("E" & RowStart & ":F" & RowStart)
rng.Font.Bold = True
rng.Borders.LineStyle = 1
ReleaseCOM(rng)
' Copy data dari database ke Excel
copydtCOPY()
rng.Select()
rng.PasteSpecial()
ReleaseCOM(rng)
' Membuat border dan font bold untuk range tersebut
rng = xlWorkSheet.Range("E" & RowStart + 2 & ":F" & dtCOPY.Rows.Count + RowStart + 2)
rng.Font.Bold = True
rng.Borders.LineStyle = 1
' Membuat chart scatter
rng = xlWorkSheet.Range("G" & RowStart)
xlWorkSheet.Shapes.AddChart2(250, "xlXYScatterSmooth").Select()
xlWorkSheet.ActiveChart.SetSourceData(xlWorkSheet.Range("E" & RowStart + 2 & ":F" & dtCOPY.Rows.Count + RowStart + 2), Excel.XlChartType.xlXYScatterSmooth)
ReleaseCOM(rng)
Komentar dan Solusi
Dalam komentar di atas, kebo memberikan contoh kode VB.NET yang dapat membantu Anda dalam mengaktifkan scatter chart. Namun, perlu diperhatikan bahwa sintaks chartPage.ChartType = Excel.XlChartType.xlXYScatterSmooth harus dilakukan sebelum chartPage.SetSourceData(rng) untuk mendapatkan hasil chart yang sesuai.
Referensi
Terima kasih
Saya berharap tutorial ini dapat membantu Anda dalam mengaktifkan scatter chart dengan interop Excel. Jika Anda memiliki pertanyaan atau masalah, silakan hubungi saya!