！！！PB如何输出Excel表的折线图！！！

fhwang8 2003-09-12 04:42:00

和各大侠：
我想将数据通过计算在Excel中生成折线图,不知如何是好，

...全文

85 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

davidtc 2003-10-04

打赏
举报

楼主厉害
我也正在做excel生成折线图的dd，能不能让我借鉴一下你的方法啊？

emchengwei@163.com

谢谢先

remember 2003-09-19

打赏
举报

不幸，不行
还是给人吧，不然要扣信誉分的

lihuihit 2003-09-19

打赏
举报

klbt 2003-09-19

打赏
举报

祝贺楼主，自力更生！

fhwang8 2003-09-14

打赏
举报

在顶顶

fhwang8 2003-09-14

打赏
举报

我自己解决了，哈哈，可以给自己加分吗？？？

fhwang8 2003-09-13

打赏
举报

关键是不知调用什么方法或者属性可以,数据已经可以写道Excel里没有问题,关键是折线图

yubin791 2003-09-13

打赏
举报

用ole

xiaoshuier 2003-09-13

打赏
举报

我觉得用OLE自定义对象安装一个Formula one 挺好地，

它可以控制输出Excel的各种属性。

fhwang8 2003-09-13

打赏
举报

急呀

fhwang8 2003-09-13

打赏
举报

以上使用VFP编写的,但不知在PB中如何调用这些方法和属性

fhwang8 2003-09-13

打赏
举报

ExcelServer.range("A1:A4").select
//z_obj_t.Sheets("Graph data").Select
//eole.ActiveSheet.Cells(1,1).Select

// XlSheet=eole.Sheets("Graph data")
//fanwei="A1:"+chr(65+number1)+allt(str(total_num1+1))

//z_obj_t.Charts.Add
//z_obj_t.ActiveChart.SetSourceData(z_obj_t.Range("A1:D2"),2)

// do case
// case tuyang=1
// eole.ActiveChart.ChartType = 65
// With eole.ActiveChart
// .Name = "Pen-tip graph"
// .HasTitle = .T.
// .ChartTitle.Characters.Text = title1
// .Axes(1,1).HasTitle = .T.
// .Axes(1,1).AxisTitle.Characters.Text = horizontal
// .Axes(2,1).HasTitle = .T.
// .Axes(2,1).AxisTitle.Characters.Text = "Ball height difference (μm)"
// EndWith
// eole.ActiveChart.Axes(1).Select
// With eole.ActiveChart.Axes(1)
// .CrossesAt = 1
// .TickLabelSpacing = 1
// .TickMarkSpacing = 1
// .AxisBetweenCategories = .F.
// .ReversePlotOrder = .F.
// EndWith

以上是从Excel里的做法,但是从PB里不知如何可以调用这些方法属性.