منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] المخططات البيانية داخل الاكسيل - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] المخططات البيانية داخل الاكسيل (/showthread.php?tid=26944)



المخططات البيانية داخل الاكسيل - محمد اسماعيل - 15-10-18

السلام عليكم

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

[attachment=19843]

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


كود :
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مع الاعتبار بان المجاميع تاتي من العملية الحسابية للخلايا وليست خلية منقولة من الداتا جريد فيو