Using Charts in Spreadsheets
使用图表在工作表可以显示该数据从一个已分配单元格区域中的工作表。 任何修改所对数据在工作表也将反映在"指定图表中。 以下示例显示了如何创建一个图表分配到某些单元格区域的电子表格文档:
lang="">
Dim Doc As Object Dim图表对象 Dim图"作为对象 Dim Rect为新 Dim RangeAddress(0),如下新
Doc=StarDesktop.CurrentComponent
图表=Doc.Sheets(0).Charts
=8000
=1000
=10000
=7000
RangeAddress(0)=0
RangeAddress(0)=0
RangeAddress(0)=0
RangeAddress(0)=2
RangeAddress(0)=12
Charts"MyChart",Rect,RangeAddress(),True,True)
</source>
虽然所使用的代码示例中看起来有点复杂,但是主要过程仅限于三行。 第一个行建立 Doc 文档变量,它引用当前的工作表文档(Doc line= StarDesktop.CurrentComponent)。 以下代码示例中使用然后创建一份列出所有图表的第一个工作表文档(Charts line= Doc.Sheets(0).Charts)。 最后,在最后一行,新图表被添加到该列表 addNewByName 方法。 这一新图表就可以看到该用户。 此变量 RangeAddress 确定分配单元格区域的数据将显示在图表。 此变量 Rect 确定的位置和大小图表在第一个工作表中的工作表文档。
上一示例将创建一个条形图。 如果使用了不同图表类型需要时,则条形图必须显式替换:
lang="">
Chart=Charts.getByName("MyChart").embeddedObject .Diagram=Chart.createInstance(".LineDiagram") </source>
第一行定义相应的图表对象。 第二行替换当前图表与一个新的本示例中,显示线条图。
Content on this page is licensed under the Public Documentation License (PDL). |