[VB.NET] المخططات البيانية داخل الاكسيل

كود :
Dim oChart As Excel.Chart

                Dim MyCharts As Excel.ChartObjects

                Dim MyCharts1 As Excel.ChartObject

                MyCharts = excelWorksheet.ChartObjects

                'set chart location

                MyCharts1 = MyCharts.Add(20, 20, 400, 250)

                oChart = MyCharts1.Chart

              

                With oChart

                    'set data range for chart

                    Dim chartRange As Excel.Range

                    chartRange = excelWorksheet.Range("b1", "d3")

                    .SetSourceData(chartRange)

                    'set how you want to draw chart i.e column wise or row wise

                    .PlotBy = Excel.XlRowCol.xlColumns

                    'set data lables for bars

                    .ApplyDataLabels(Excel.XlDataLabelsType.xlDataLabelsShowNone)

                    'set legend to be displayed or not

                    .HasLegend = True

                    'set legend location

                    .Legend.Position = Excel.XlLegendPosition.xlLegendPositionRight

                    

                  

                End With