نمودار و VSFLEXGRID

[niko2008]

سلام خدمت اساتید محترم
چطوری میتونیم نتایج حاصل از VSFLEXGRID رو که به EXCEL فرستادیم در اکسل حاصل نمودار آن رو هم به کمک کد زیر بدست بیاوریم

[Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("Results").Range("A14:D25"), PlotBy _
:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Results"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = objWorksheet.Cells(1, 1) ' Title
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Sample" ' X-Axis
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Amount " & objWorksheet.Cells(15, 3) ' Y-Axis
End With
ActiveSheet.ChartObjects("Chart 1").Activate
With ActiveSheet.Shapes("Chart 1")
.Left = 240.75
.Top = 178.5
End With
]