save graph

Rudi

unread,

Nov 11, 2003, 4:30:36 AM11/11/03

to

Hi !

Is it possible to save MsGraph (oleboundcontrol) on Form
in VFP5.0 as excel file. Now I save graph in general field.

Thanks in advance Rudi.

Eric den Doop

unread,

Nov 11, 2003, 4:41:29 AM11/11/03

to

Hello, Rudi!
You wrote on Tue, 11 Nov 2003 01:30:36 -0800:

R> Is it possible to save MsGraph (oleboundcontrol) on Form
R> in VFP5.0 as excel file. Now I save graph in general field.

Here's how I do it. Note that I have never tested this code in VFP5.
<vfp_code>
CREATE CURSOR tmp (ccountry C(20), nvalue N(2))
APPEND BLANK
REPLACE ccountry WITH "Netherlands, The", nvalue WITH 10
APPEND BLANK
REPLACE ccountry WITH "Belgium", nvalue WITH 5
APPEND BLANK
REPLACE ccountry WITH "Germany", nvalue WITH 2

loExcel = CREATEOBJECT("Excel.Application")
loWorkBook = loExcel.workbooks.add
loSheet = loWorkbook.worksheets(1)
SELECT tmp
GO TOP
SCAN
loSheet.range("A" + TRANSFORM(RECNO())).numberformat = "@"
loSheet.range("A" + TRANSFORM(RECNO())).formular1c1 = tmp.ccountry
loSheet.range("B" + TRANSFORM(RECNO())).formular1c1 =
TRANSFORM(tmp.nvalue)
ENDSCAN
loRange = loSheet.range("A1:B" + TRANSFORM(RECCOUNT()))
loChart = loExcel.charts.add
loChart.charttype = -4102
loSheet.activate
loChart.SetSourceData(loRange, 2)
loChart.location(2, loSheet.name)
loSheet.ChartObjects(1).chart.hastitle = .T.
loSheet.ChartObjects(1).chart.charttitle.text = "Test graph"
loExcel.visible = .T.
</vfp_code>

--
Eric den Doop
www.foxite.com - The Home Of The Visual FoxPro Experts - Powered By VFP8

anon...@discussions.microsoft.com

unread,

Nov 12, 2003, 5:43:27 AM11/12/03

to

Thanks Eric!
>On VFP5 doesn't work.,but I tested on VFP8.0 and it
works. I am going to VFP8. I this is OK.
>Bye Rudi

rudi

unread,

Nov 12, 2003, 9:53:40 AM11/12/03

to

>.

Eric thanks once again,but I have new question. How to put
graph in separate Sheet. Data in one sheet,and Graph
(chart) in another.
Bye Rudi.

Eric den Doop

unread,

Nov 12, 2003, 2:05:31 PM11/12/03

to

Hello, rudi!

Here you go. Tested on VFP8Sp1 & Excel 2003

<vfp_code>
CREATE CURSOR tmp (ccountry C(20), nvalue N(2))
APPEND BLANK
REPLACE ccountry WITH "Netherlands, The", nvalue WITH 10
APPEND BLANK
REPLACE ccountry WITH "Belgium", nvalue WITH 5
APPEND BLANK
REPLACE ccountry WITH "Germany", nvalue WITH 2

loExcel = CREATEOBJECT("Excel.Application")
loWorkBook = loExcel.workbooks.add
loSheet = loWorkbook.worksheets(1)
SELECT tmp
GO TOP
SCAN
loSheet.range("A" + TRANSFORM(RECNO())).numberformat = "@"
loSheet.range("A" + TRANSFORM(RECNO())).formular1c1 = tmp.ccountry
loSheet.range("B" + TRANSFORM(RECNO())).formular1c1
=TRANSFORM(tmp.nvalue)
ENDSCAN
loRange = loSheet.range("A1:B" + TRANSFORM(RECCOUNT()))

loChartSheet = loExcel.sheets(2)

loChart = loExcel.charts.add
loChart.charttype = -4102

loChartSheet.activate
loChart.SetSourceData(loRange, 2)
loChart.location(2, loChartSheet.name)
loChartSheet.ChartObjects(1).chart.hastitle = .T.
loChartSheet.ChartObjects(1).chart.charttitle.text = "Test graph"

ru...@status.hr

unread,

Nov 13, 2003, 4:32:54 AM11/13/03

to

>Hi Eric !
Thanks ,but I have Excel97 and on your command
loChartSheet = loExcel.sheets(2) I have OLE ERROR CODE
0x8002000b invalid index .
Is it possible to this on Exel97, because I can do this
manulay when open my data i graph. (Chart->Location)

Thanks a lot for your answers.
Rudi.

>