>I'm printing a chart based on reported data. It was configured for msgraph5 and utilized msgraph5.ChartWizard() method. The method is missing in msgraph8 interface. I'm trying to find the properties which were set by ChartWizard, to do the work.
>I can't find any clue neither in MSDN, KB and elsewhere.
>Parameters Property
> source ControlSource
> gallery chart.Type (?)
> format chart.SubType
> plotby ????????? most needed !!!
>
>I've found that the Chart object has the 'plotby' property but only in VB. VFP doesn't see it.
>
>Help Please !!!
Hi Andrzej,
MSGraph8 closely tight to excel8 PEM. All data is in vbagrp8.hlp and vbaxcl8.hlp in ..\Microsoft Office\Office if VB help is installed. Plotby is seen by VFP too but syntax is like oForm.oGraph.object.application.plotby = 1 && or 2. You can use below example doing some minor modification to use msgraph8.
#define xl3DArea -4098
#define xl3DAreaStacked 78
#define xl3DAreaStacked100 79
#define xl3DBarClustered 60
#define xl3DBarStacked 61
#define xl3DBarStacked100 62
#define xl3DColumn -4100
#define xl3DColumnClustered 54
#define xl3DColumnStacked 55
#define xl3DColumnStacked100 56
#define xl3DLine -4101
#define xl3DPie -4102
#define xl3DPieExploded 70
#define xlArea 1
#define xlAreaStacked 76
#define xlAreaStacked100 77
#define xlBarClustered 57
#define xlBarOfPie 71
#define xlBarStacked 58
#define xlBarStacked100 59
#define xlBubble 15
#define xlBubble3DEffect 87
#define xlColumnClustered 51
#define xlColumnStacked 52
#define xlColumnStacked100 53
#define xlConeBarClustered 102
#define xlConeBarStacked 103
#define xlConeBarStacked100 104
#define xlConeCol 105
#define xlConeColClustered 99
#define xlConeColStacked 100
#define xlConeColStacked100 101
#define xlCylinderBarClustered 95
#define xlCylinderBarStacked 96
#define xlCylinderBarStacked100 97
#define xlCylinderCol 98
#define xlCylinderColClustered 92
#define xlCylinderColStacked 93
#define xlCylinderColStacked100 94
#define xlDoughnut -4120
#define xlDoughnutExploded 80
#define xlLine 4
#define xlLineMarkers 65
#define xlLineMarkersStacked 66
#define xlLineMarkersStacked100 67
#define xlLineStacked 63
#define xlLineStacked100 64
#define xlPie 5
#define xlPieExploded 69
#define xlPieOfPie 68
#define xlPyramidBarClustered 109
#define xlPyramidBarStacked 110
#define xlPyramidBarStacked100 111
#define xlPyramidCol 112
#define xlPyramidColClustered 106
#define xlPyramidColStacked 107
#define xlPyramidColStacked100 108
#define xlRadar -4151
#define xlRadarFilled 82
#define xlRadarMarkers 81
#define xlStockHLC 88
#define xlStockOHLC 89
#define xlStockVHLC 90
#define xlStockVOHLC 91
#define xlSurface 83
#define xlSurfaceTopView 85
#define xlSurfaceTopViewWireframe 86
#define xlSurfaceWireframe 84
#define xlXYScatter -4169
#define xlXYScatterLines 74
#define xlXYScatterLinesNoMarkers 75
#define xlXYScatterSmooth 72
#define xlXYScatterSmoothNoMarkers 73
#DEFINE TAB CHR(9)
#DEFINE CRLF CHR(13)+CHR(10)
create cursor test (degree i, sine n(8,4) NULL, cosine n(8,4))
for ix = 1 to 90
insert into test ;
values ;
(ix,cos(ix)*ix,sin(ix)*ix)
endfor
45
scan next 30
replace sine with .null.
endscan
wait window nowait "Filling cell values..."
MCGDATA = ""
nCols = fcount()
for ix = 1 to nCols
MCGDATA = MCGDATA + iif(empty(MCGDATA),"",TAB)+field(ix)
endfor
MCGDATA = MCGDATA + CRLF
scan
for ix = 1 to nCols
MCGDATA = MCGDATA + iif(ix=1,"",TAB)+nvl(str(evaluate(field(ix))),"")
endfor
MCGDATA = MCGDATA + CRLF
endscan
create cursor testgen (genfld1 g)
append blank
append general genfld1 class "msgraph" data MCGDATA
oForm = createobject("Form")
with oForm
.height = 400
.width = 600
.show
.addobject("myGraph","OleBoundControl")
.addobject("myQuit1","myQuit")
with .myGraph
.height = oForm.height - 20
.width = oForm.width
.left = 0
.top = 0
.ControlSource = "testgen.Genfld1"
wait window nowait "Plotting..."
.hastitle = .t.
.haslegend = .t.
.ChartTitle.caption = "This is chart title"
.ChartType=xl3DArea
.object.application.plotby = 2
#define xlCategory 1
#define xlValue 2
#define xlSeriesAxis 3
With .Axes(xlCategory)
.HasTitle = .t.
with .AxisTitle
.Caption = "This is category title"
.Font.Name = "Arial"
.Font.Size = 10
.Font.Bold = .t.
endwith
EndWith
With .Axes(xlSeriesAxis)
.HasTitle = .T.
with .AxisTitle
.Caption = "This is SeriesAxis title"
.Font.Size = 8
.Font.Bold = .f.
.Orientation = 90
endwith
EndWith
With .Axes(xlValue)
.HasTitle = .T.
with .AxisTitle
.Caption = "This is Value title"
.Font.Size = 10
.Font.Bold = .f.
.Orientation = -90
endwith
EndWith
wait clear
.visible=.T.
endwith
.myQuit1.visible = .t.
endwith
read events
define class myquit as commandbutton
left=1
top=1
Caption="Close"
procedure click
release all
clear events
endproc
enddefineCetin
