以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于foxtable作图  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=64479)
--  作者：machle
--  发布时间：2015/2/15 0:35:00
--  关于foxtable作图
 我现在通过计算会生成一张表，x,y,z取值分别为1-20，然后不同的x,y,z坐标，都会对应一个C值，我实在没有头绪，该如何把这个图做出来。请提供帮助一下！

新年快乐！！！
--  作者：machle
--  发布时间：2015/2/15 1:00:00
--  回复：（machle）关于foxtable作图
 是不是叫做曲面图？
--  作者：machle
--  发布时间：2015/2/15 1:53:00
--  回复：（machle）回复：（machle）关于foxtable作图
 看VBA那段介绍，不太理解。
--  作者：Bin
--  发布时间：2015/2/15 8:40:00
--  
看看有没那个是满足你的  http://www.foxtable.com/help/topics/0975.htm
--  作者：machle
--  发布时间：2015/2/15 8:50:00
--  回复：（Bin）看看有没那个是满足你的  http://w...
看到有段VBA和Excel的代码。想画出一个三维的曲面图。

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)\'指定工作表
Dim Rg As MSExcel.Range = Ws.Range("B2:D5")  \'图表数据源
\'ws.ChartObjects.Delete\'删除工作表上已经存在的图表
Dim Co As MSExcel.ChartObject = Ws.ChartObjects.Add(100,30,400,250)   \'创建图表对象
Dim Cht As MSExcel.Chart = Co.Chart
Cht.ChartType = MSExcel.XlChartType.xlSurface
 \'图表类型
Cht.SetSourceData(Rg,MSExcel.XlRowCol.xlColumns) \'指定数据源和绘图方式
Cht.HasTitle = True
Cht.ChartTitle.Text = "测试图表标题"
With Cht.ChartTitle.Font   \'设置标题字体
    .Size = 16
    .ColorIndex = 3
    .Name = "隶书"
End With
App.Visible = True


With Cht.Axes(MSExcel.XlAxisType.xlCategory)   \'获取X轴
    .HasTitle = True
    .AxisTitle.Text = "时间序列"   \'添加标题
    .HasMajorGridlines = True  \'显示主要网格线
    .HasMinorGridlines = True  \'显示次要网格线
End With
With Cht.Axes(MSExcel.XlAxisType.xlValue) \'获取Y轴
    .HasTitle = True
    .AxisTitle.Text = "销售量"   \'添加标题
    .HasMajorGridlines = True\'显示只要网格线
    .HasMinorGridlines = True\'显示次要网格线
End With

With Cht.Axes(MSExcel.XlAxisType.xlSeriesAxis) \'获取Y轴
    .HasTitle = True
    .AxisTitle.Text = "销售量2"   \'添加标题
    .HasMajorGridlines = True\'显示只要网格线
    .HasMinorGridlines = True\'显示次要网格线
End With