关于实例文件中的Excel图表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于实例文件中的Excel图表

共有3442人关注过本帖树形打印复制链接主题：关于实例文件中的Excel图表

天若千颖

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：683 积分：4882 威望：0 精华：0 注册：2014/6/15 16:01:00

关于实例文件中的Excel图表 发帖心情

Post By：2016/7/23 15:40:00 [只看该作者]

版主老师，我发现实例文件中“Excle图表”这个实例的绘图可以直接通过打开Excel的方式生成多种Excel图片。

有几个问题咨询一下：

1.这个例子里面的“次坐标轴”怎么没法使用呢？

2.如果要在“图表系列”里面增加Excel的“散点图”类型，应该怎么增加？

只需要在内部函数“App_Charts”里面增加散点图及相关的子类型的文字名称吗？绘图的代码我怎么没有看到在哪里？

此主题相关图片如下：散点图.jpg

Hyphen

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2016/7/23 16:36:00 [只看该作者]

测试没有问题，

此主题相关图片如下：1.jpg

图表类型，看这句代码

Cht.ChartType = Functions.Execute("App_ChartType",e.Form.Controls("ComboBox1").Value,e.Form.Controls("ComboBox2").Value)

1.在下拉框增加项目

2.修改App_Charts和App_ChartType返回正确类型

图表可用类型参考枚举

For Each item As MSExcel.XlChartType In [Enum].GetValues(Gettype(MSExcel.XlChartType ))

Output.Show(item & "-" & item.Tostring())

里面具体枚举对应什么类型，自己网上搜搜吧

http://blog.csdn.net/kaifa123/article/details/7995981

天若千颖

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：683 积分：4882 威望：0 精华：0 注册：2014/6/15 16:01:00

Post By：2016/7/23 17:15:00 [只看该作者]

也就是说，只用修改App_Charts和App_ChartType这两个内部函数，再里面按照ChartType的规范加入图表类型的中文名称就可以了？

我在App_Charts中增加了

Case "散点图"
        lst = "平滑线散点图|无数据点折线散点图"

在App_ChartType中增加了

Case "散点图"
         Select Case Args(1)
            Case "平滑线散点图"
                tblx = 113   (这个113这个数字不知道有什么特殊的含义没有？)
            Case "无数据点折线散点图"
                tblx = 114
        End Select

同时 X轴的输入也换成了数据列，但是运行结果是错误提示

.NET Framework 版本：2.0.50727.5420
Foxtable 版本：2016.6.26.1
错误所在事件：窗口,图表设置,Button5,Click
详细错误信息：
对 COM 组件的调用返回了错误 HRESULT E_FAIL。

是不是还要在什么地方加入和下面代码相关的代码啊？

XY (散点图)  散点图 xlXYScatter
平滑线散点图 xlXYScatterSmooth
无数据点折线散点图 xlXYScatterLinesNoMarkers

下面这个代码是哪里的？

图表可用类型参考枚举

For Each item As MSExcel.XlChartType In [Enum].GetValues(Gettype(MSExcel.XlChartType ))

Output.Show(item & "-" & item.Tostring())

[此贴子已经被作者于2016/7/23 17:30:20编辑过]

天若千颖

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：683 积分：4882 威望：0 精华：0 注册：2014/6/15 16:01:00

Post By：2016/7/24 15:02:00 [只看该作者]

红袍老师，请帮我看看3楼的问题。

大红袍

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/7/24 15:09:00 [只看该作者]

哪里有113、114？全部类型，运行代码可以得到

For Each item As MSExcel.XlChartType In [Enum].GetValues(Gettype(MSExcel.XlChartType ))
Output.Show(item & "-" & item.Tostring())
Next

天若千颖

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：683 积分：4882 威望：0 精华：0 注册：2014/6/15 16:01:00

Post By：2016/7/24 15:10:00 [只看该作者]

113 114 我是参考别的自己编的号，不知道这个代码是否有特殊的要求。

大红袍

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/7/24 15:12:00 [只看该作者]

命令窗口，运行5楼代码啊

天若千颖

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：683 积分：4882 威望：0 精华：0 注册：2014/6/15 16:01:00

Post By：2016/7/24 15:13:00 [只看该作者]

果然有特殊含义：

1-xlArea

4-xlLine

5-xlPie

15-xlBubble

51-xlColumnClustered

52-xlColumnStacked

53-xlColumnStacked100

54-xl3DColumnClustered

55-xl3DColumnStacked

56-xl3DColumnStacked100

57-xlBarClustered

58-xlBarStacked

59-xlBarStacked100

60-xl3DBarClustered

61-xl3DBarStacked

62-xl3DBarStacked100

63-xlLineStacked

64-xlLineStacked100

65-xlLineMarkers

66-xlLineMarkersStacked

67-xlLineMarkersStacked100

68-xlPieOfPie

69-xlPieExploded

70-xl3DPieExploded

71-xlBarOfPie

72-xlXYScatterSmooth

73-xlXYScatterSmoothNoMarkers

74-xlXYScatterLines

75-xlXYScatterLinesNoMarkers

76-xlAreaStacked

77-xlAreaStacked100

78-xl3DAreaStacked

79-xl3DAreaStacked100

80-xlDoughnutExploded

81-xlRadarMarkers

82-xlRadarFilled

83-xlSurface

84-xlSurfaceWireframe

85-xlSurfaceTopView

86-xlSurfaceTopViewWireframe

87-xlBubble3DEffect

88-xlStockHLC

89-xlStockOHLC

90-xlStockVHLC

91-xlStockVOHLC

92-xlCylinderColClustered

93-xlCylinderColStacked

94-xlCylinderColStacked100

95-xlCylinderBarClustered

96-xlCylinderBarStacked

97-xlCylinderBarStacked100

98-xlCylinderCol

99-xlConeColClustered

100-xlConeColStacked

101-xlConeColStacked100

102-xlConeBarClustered

103-xlConeBarStacked

104-xlConeBarStacked100

105-xlConeCol

106-xlPyramidColClustered

107-xlPyramidColStacked

108-xlPyramidColStacked100

109-xlPyramidBarClustered

110-xlPyramidBarStacked

111-xlPyramidBarStacked100

112-xlPyramidCol

-4169-xlXYScatter

-4151-xlRadar

-4120-xlDoughnut

-4102-xl3DPie

-4101-xl3DLine

-4100-xl3DColumn

-4098-xl3DArea

天若千颖

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：683 积分：4882 威望：0 精华：0 注册：2014/6/15 16:01:00

Post By：2016/7/24 17:59:00 [只看该作者]

奇怪，唯独没有仅带数据标记的散点图

XY (散点图) 散点图 xlXYScatter
平滑线散点图 xlXYScatterSmooth
无数据点平滑折线散点图 xlXYScatterSmoothNoMarkers
折线散点图 xlXYScatterLines
无数据点折线散点图 xlXYScatterLinesNoMarkers

Hyphen

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2016/7/25 8:33:00 [只看该作者]

5楼的代码出来的就是所有的类型了，没有就没有了

下一主题 >> << 上一主题

主题：关于实例文件中的Excel图表