منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

محمد اسماعيل