[محمد اسماعيل]

السلام عليكم

بعدما قمت بتصدير البيانات من الداتا جريد الي الاكسيل اريد رسم مخطط بياني علي اساس علاقة راس كل عملية والمجموع كالاتي
دية صورة للمطلوب راس الاعمدة ومجاميع الارصدة

   

دة كود رسم مخطط بس بدون مجموع الخلية

كود :

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

lمع الاعتبار بان المجاميع تاتي من العملية الحسابية للخلايا وليست خلية منقولة من الداتا جريد فيو