15-10-18, 03:57 AM
السلام عليكم
بعدما قمت بتصدير البيانات من الداتا جريد الي الاكسيل اريد رسم مخطط بياني علي اساس علاقة راس كل عملية والمجموع كالاتي
دية صورة للمطلوب راس الاعمدة ومجاميع الارصدة
دة كود رسم مخطط بس بدون مجموع الخلية
lمع الاعتبار بان المجاميع تاتي من العملية الحسابية للخلايا وليست خلية منقولة من الداتا جريد فيو
بعدما قمت بتصدير البيانات من الداتا جريد الي الاكسيل اريد رسم مخطط بياني علي اساس علاقة راس كل عملية والمجموع كالاتي
دية صورة للمطلوب راس الاعمدة ومجاميع الارصدة
دة كود رسم مخطط بس بدون مجموع الخلية
كود :
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