OWC资料收集-如何创建组合图表与图表 Web 组件

最新推荐文章于 2024-07-08 20:54:04 发布

码农丁丁

最新推荐文章于 2024-07-08 20:54:04 发布

阅读量1.6k

点赞数

文章标签： web microsoft office vbscript excel 微软

本文链接：https://blog.csdn.net/xqdd/article/details/1753207

版权

注意：这篇文章是由无人工介入的自动的机器翻译系统翻译完成。这些文章是微软为不懂英语的用户提供的, 以使他们能够理解这些文章的内容。微软不保证机器翻译的正确度，也不对由于内容的误译或者客户对它的使用所引起的任何直接的, 或间接的可能的问题负责。

文章编号	:	240263
最后修改	:	2004年7月15日
修订	:	2.2

概要

本文介绍如何创建使用 Office 图表 Web 组件组合图表。

回到顶端

更多信息

组合图表包括系列与列、行或区域。要创建组合图表, 设置每个系列的 Type 属性。来阐释, 可能用于以下代码从与两个系列图表创建区域 / 列组合图表：

示例代码

 <html>
<body>

<object id=ChartSpace1 classid=CLSID:0002E500-0000-0000-C000-000000000046 style="width:100%;height:350"></object>

<script language=vbscript>

Sub Window_OnLoad()

    Dim oChart
    Dim oSeries1, oSeries2
    dim oConst
    
    'Ensure ChartSpace1 is empty:
    ChartSpace1.Clear

    Set oConst = ChartSpace1.Constants

    'Create a new chart in the ChartSpace
    Set oChart = ChartSpace1.Charts.Add
    
    'Add a series of type Column
    Set oSeries1 = oChart.SeriesCollection.Add
    With oSeries1
        .Caption = "Sales"
        .SetData oConst.chDimCategories, oConst.chDataLiteral, _
                 Array("1994", "1995", "1996", "1997")
        .SetData oConst.chDimValues, oConst.chDataLiteral, _
                 Array(50, 60, 55, 59)
        .Type = oConst.chChartTypeColumnClustered
    End With
    
    'Add a second series of type Line
    Set oSeries2 = oChart.SeriesCollection.Add
    With oSeries2
        .Caption = "Profit"
        .SetData oConst.chDimCategories, oConst.chDataLiteral, _
                 Array("1994", "1995", "1996", "1997")
        .SetData oConst.chDimValues, oConst.chDataLiteral, _
                 Array(39, 47, 52, 46)
        .Type = oConst.chChartTypeLine
    End With
    
    'Add a second value axis to the Chart
    oChart.Axes.Add oChart.Scalings(oConst.chDimValues), _
                 oConst.chAxisPositionRight, oConst.chValueAxis

    'Display the legend
    oChart.HasLegend = True
    oChart.Legend.Position = oConst.chLegendPositionBottom
    
    'Display the title for the chart
    oChart.HasTitle = True
    oChart.Title.Caption = "Four Year Overview"

End Sub

</script>
</body>
</html>

有关图表和系列类型说明

备注有关数值轴

•	ChartSpace 中创建两个单独的图表。 - 或 -
•	因为 Excel 图表可以有不同刻度用于辅助 y 轴在 MicrosoftExcel 创建图表。通过单击文件菜单上另存为 Web页可能再发布非交互式图表。当在发布图表以此方式, 图片的图表实际保存到 GIF 文件。

与 Office Web 组件有两个数值轴使用不同刻度版本 10 和 11, 版本。有关其他信息, 请单击下列文章编号以查看 Microsoft 知识库中相应：

286211 (http://support.microsoft.com/kb/286211/) 如何创建使用 Office XP 图表组件或 Office 2003 图表组件组合图表

回到顶端

参考

请对数，以查看 Microsoft 知识库中相应其他有关使用图表 Web 组件, 请单击：

235885 (http://support.microsoft.com/kb/235885/EN-US/) 如何使用 Office 图表 Web 组件与 VB

有关从 Microsoft Excel 图表, 编程创建 GIF 文件信息请单击以查看 Microsoft 知识库中相应对下面数：

163103 (http://support.microsoft.com/kb/163103/EN-US/) 如何从 MicrosoftExcel 图表创建 GIF 文件

码农丁丁

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
打赏
1
评论
OWC资料收集-如何创建组合图表与图表 Web 组件

注意：这篇文章是由无人工介入的自动的机器翻译系统翻译完成。这些文章是微软为不懂英语的用户提供的, 以使他们能够理解这些文章的内容。微软不保证机器翻译的正确度，也不对由于内容的误译或者客户对它的使用所引起的任何直接的, 或间接的可能的问题负责。文章编号 : 240263
复制链接

扫一扫