Difference between revisions of "ZH/Documentation/BASIC Guide/Charts in Spreadsheets"

From Apache OpenOffice Wiki
Jump to: navigation, search
(New page: {{ZH/Documentation/BASICGuideTOC/v2 |ShowPrevNext=block |ShowPrevPage=block |PrevPage=Documentation/BASIC Guide/Charts |NextPage=Documentation/BASIC Guide/Structure of Charts |chart=block ...)
 
Line 2: Line 2:
 
|ShowPrevNext=block
 
|ShowPrevNext=block
 
|ShowPrevPage=block
 
|ShowPrevPage=block
|PrevPage=Documentation/BASIC Guide/Charts
+
|PrevPage=ZH/Documentation/BASIC Guide/Charts
|NextPage=Documentation/BASIC Guide/Structure of Charts
+
|NextPage=ZH/Documentation/BASIC Guide/Structure of Charts
 
|chart=block
 
|chart=block
 
}}
 
}}
Line 49: Line 49:
  
 
{{PDL1}}
 
{{PDL1}}
 +
{{InterWiki_Languages_BasicGuide|articletitle=Documentation/BASIC Guide/Charts in Spreadsheets}}
 
{{InterWiki_Languages_BasicGuide|articletitle=Documentation/BASIC Guide/Charts in Spreadsheets}}
 
{{InterWiki_Languages_BasicGuide|articletitle=Documentation/BASIC Guide/Charts in Spreadsheets}}

Revision as of 22:06, 12 December 2008

doc OOo
Book.png


电子表格中的图表可以显示电子表格中指定单元格区域内的数据。 对电子表格中的数据所做的任何修改都将在指定的图表中反映出来。 以下示例说明了如何为电子表格文档中的某些单元格区域创建指定的图表:

Dim Doc As Object
Dim Charts As Object
Dim Chart as Object
Dim Rect As New com.sun.star.awt.Rectangle
Dim RangeAddress(0) As New com.sun.star.table.CellRangeAddress
 
Doc = StarDesktop.CurrentComponent
Charts = Doc.Sheets(0).Charts
 
Rect.X = 8000
Rect.Y = 1000
Rect.Width = 10000
Rect.Height = 7000
RangeAddress(0).Sheet = 0
RangeAddress(0).StartColumn = 0 
RangeAddress(0).StartRow = 0
RangeAddress(0).EndColumn = 2
RangeAddress(0).EndRow = 12
 
Charts.addNewByName("MyChart", Rect, RangeAddress(), True, True)

尽管本示例中使用的代码看起来有点复杂,但主要过程只有三行。第一行创建 Doc 文档变量,它引用当前的电子表格文档(Doc 行 = StarDesktop.CurrentComponent)。然后,本示例中使用的代码会创建一个列表,其中包含第一个电子表格的所有图表(Charts 行 = Doc.Sheets(0).Charts)。最后,使用 addNewByName 方法在此列表中添加一个新图表(最后一行)。这时,用户便可看到该新图表了。变量 RangeAddress 确定将在图表中显示其数据的指定单元格区域。变量 Rect 确定电子表格文档的第一个工作表中的图表位置和大小。

上面的示例创建了一个条形图。如果需要不同类型的图表,则必须显式替换条形图:

Chart = Charts.getByName("MyChart").embeddedObject
Chart.Diagram = Chart.createInstance("com.sun.star.chart.LineDiagram")

第一行定义了相应的图表对象。第二行将当前图表替换为新图表,本示例中为折线图。

Template:Documentation/Note

Content on this page is licensed under the Public Documentation License (PDL).
Personal tools