Foxtable(狐表)用户栏目专家坐堂 → 关于foxtable作图


  共有2943人关注过本帖树形打印复制链接

主题:关于foxtable作图

帅哥哟,离线,有人找我吗?
machle
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:358 积分:4035 威望:0 精华:0 注册:2014/7/29 23:42:00
关于foxtable作图  发帖心情 Post By:2015/2/15 0:35:00 [只看该作者]

 我现在通过计算会生成一张表,x,y,z取值分别为1-20,然后不同的x,y,z坐标,都会对应一个C值,我实在没有头绪,该如何把这个图做出来。请提供帮助一下!

新年快乐!!!

 回到顶部
帅哥哟,离线,有人找我吗?
machle
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:358 积分:4035 威望:0 精华:0 注册:2014/7/29 23:42:00
回复:(machle)关于foxtable作图  发帖心情 Post By:2015/2/15 1:00:00 [只看该作者]

 是不是叫做曲面图?

 回到顶部
帅哥哟,离线,有人找我吗?
machle
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:358 积分:4035 威望:0 精华:0 注册:2014/7/29 23:42:00
回复:(machle)回复:(machle)关于foxtable作图  发帖心情 Post By:2015/2/15 1:53:00 [只看该作者]

 看VBA那段介绍,不太理解。

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/2/15 8:40:00 [只看该作者]

看看有没那个是满足你的  http://www.foxtable.com/help/topics/0975.htm

 回到顶部
帅哥哟,离线,有人找我吗?
machle
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:358 积分:4035 威望:0 精华:0 注册:2014/7/29 23:42:00
回复:(Bin)看看有没那个是满足你的  http://w...  发帖心情 Post By:2015/2/15 8:50:00 [只看该作者]

看到有段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

 回到顶部