create a new page, using OOoBasic/Calc/chart2/ex2 as a template.
Front page
Search
掲示板
Reload
Help
Browse Log
掲示板の使い方
OOo 掲示板３
OOo 掲示板２
OOo 掲示板
掲示板
雑談掲示板
New
List of pages
Recent changes
Backup
簡単ヘルプ
整形ルール
Start:
* 例２ [#o15f5ca6]
チャートを作成、種類を設定、範囲を指定して完成。したチャ...
- チャートの作成、種類の変更、範囲を指定に関しては [[例１...
#contents
#code(basic){{
' this example makes a new XY diagram and
' add a new series to it, additionally
' modifies its axises.
Sub Chart_ex2
oDoc = ThisComponent
oCharts = oDoc.getSheets().getByIndex(0).getCharts()
sChartName = "Chart2"
aRect = make_Rectangle(500, 2700, 7000, 6000)
oChart = AddNewChart(oCharts, sChartName, _
"com.sun.star.chart2.template.ScatterLineSymbol", _
aRect )
oDiagram = oChart.getFirstDiagram()
oChartTypeManager = oChart.getChartTypeManager()
oChartTypeTemplate = oChartTypeManager.createInstance( _
"com.sun.star.chart2.template.ScatterLineSymbol")
oDataProvider = oChart.getDataProvider()
oColorScheme = oDiagram.getDefaultColorScheme()
' coordinates belongs the diagram
oCoords = oDiagram.getCoordinateSystems()
oCoord = oCoords(0)
' chart types belonging the coordinate
oChartTypes = oCoord.getChartTypes()
oChartType = oChartTypes(0)
oDataSource = CreateDataSource(oDataProvider, _
"Sheet1.A1:B6", _
com.sun.star.chart.ChartDataRowSource.COLUMNS, _
True, True)
' change data of the diagram
Dim aArgs(0) As New com.sun.star.beans.PropertyValue
aArgs(0).Name = "HasCategories"
aArgs(0).Value = True
oChartTypeTemplate.changeDiagramData(oDiagram, oDataSou...
' add new series
oNewSeries = CreateDataSeries_ForARange( _
oDataProvider, "Sheet1.C2:C6", "values-y", "Sheet1....
' set properties of the new series
oNewSeries.Color = oColorScheme.getColorByIndex(1)
aSymbol = CreateUnoStruct("com.sun.star.chart2.Symbol")
aSymbol.Style = com.sun.star.chart2.SymbolStyle.STANDARD
aSymbol.Size = make_Size(250, 250)
oNewSeries.Symbol = aSymbol
' add new series to the list of data series
oDataSeries = oChartType.getDataSeries()
ReDim Preserve oDataSeries(1)
oDataSeries(1) = oNewSeries
' apply new data series
oChartType.setDataSeries(oDataSeries)
' modify axises
oYAxis = oCoord.getAxisByDimension(1, 0)
oXAxis = oCoord.getAxisByDimension(0, 0)
SetSimpleTitile(oYAxis, "Y", True)
SetSimpleTitile(oXAxis, "X", True)
oScaleData = oXAxis.getScaleData()
With oScaleData
.Maximum = 6.0
.Minimum = 0.0
End With
oXAxis.setScaleData(oScaleData)
End Sub
' create and set a simple title object for axis
' oAxis: axis of the coordinate
' sTitle: title string
' bDisplayLabels: set to show/hide its title
Function SetSimpleTitile( oAxis As Object, sTitle As Stri...
Optional bDisplayLabels As Boolean ) As Object
oNewTitle = CreateUnoService("com.sun.star.chart2.Title")
oNewPart = CreateUnoService("com.sun.star.chart2.Format...
oNewPart.setString(sTitle)
oNewTitle.setText(Array(oNewPart))
If NOT IsMissing(DisplayLabels) Then oAxis.DisplayLabel...
oAxis.setTitleObject(oNewTitle)
End Function
' add new chart and change it type from
' oCharts: ChartContainer to make a new chart into
' sChartName: chart name
' sChartTemplateName: new type of the chart
' aRectangle: define the size and the position of the chart
Function AddNewChart( _
oCharts As Object, sChartName As String, _
sChartTemplateName As String, _
aRectangle As com.sun.star.awt.Rectangle ) As Object
If oCharts.hasByName(sChartName) Then
oCharts.removeByName(sChartName)
End If
Dim aRange(1) As New com.sun.star.table.CellRangeAddress
' adds new chart
oCharts.addNewByName(sChartName,aRectangle,aRange,False...
' get newly created chart
oChart = oCharts.getByName(sChartName).getEmbeddedObjec...
' diagram of the css.chart2
oDiagram = oChart.getFirstDiagram()
' create template and set to it
oChartTypeManager = oChart.getChartTypeManager()
oChartTypeTemplate = oChartTypeManager.createInstance( _
sChartTemplateName)
oChartTypeTemplate.changeDiagram(oDiagram)
AddNewChart = oChart
End Function
' create DataSource from arguments
' according to css.chart2.data.TabularDataProviderArguments
Function CreateDataSource( _
oDataProvider As Object, _
sCellRangeRepresentation As String, _
nDataRowSource As Integer, _
bFirstCellAsLabel As Boolean, _
bHasCategories As Boolean ) As Object
Dim oNewDataSource As Object
Dim aProps(3) As New com.sun.star.beans.PropertyValue
aProps(0).Name = "CellRangeRepresentation"
aProps(0).Value = sCellRangeRepresentation
aProps(1).Name = "DataRowSource"
aProps(1).Value = nDataRowSource
aProps(2).Name = "FirstCellAsLabel"
aProps(2).Value = bFirstCellAsLabel
aProps(3).Name = "HasCategories"
aProps(3).Value = bHasCategories
oNewDataSource = oDataProvider.createDataSource(aProps)
CreateDataSource = oNewDataSource
End Function
' create DataSeries represented by a single range
' oDataProvider: provided by the chart
' sYRangeRepresentation: string representation of the ran...
' sYRole: role for the data c.g. "values-y"
' sLabelRangeRepresentation: if the data has its label, p...
Function CreateDataSeries_ForARange( _
oDataProvider As Object, _
sYRangeRepresentation As String, _
sYRole As String, _
Optional sLabelRangeRepresentation As String ) As Obj...
Dim oNewDataSeries As Object
' create new DataSeries
oNewDataSeries = CreateUnoService("com.sun.star.chart2....
' Y
oDataY = CreateUnoService("com.sun.star.chart2.data.Lab...
oSequenceY = CreateDataSequence(oDataProvider, _
sYRangeRepresentation, sYRole)
If NOT IsNull(oSequenceY) Then
oDataY.setValues(oSequenceY)
If NOT ((IsMissing(sLabelRangeRepresentation)) AND _
(sLabelRangeRepresentation <> "")) ...
oSequenceLabel = CreateDataSequence(oDataProvider, _
sLabelRangeRepresentation, "")
oDataY.setLabel(oSequenceLabel) ' label is used as ...
End If
End If
' set x and y data to series
aData = Array(oDataY)
oNewDataSeries.setData(aData)
CreateDataSeries_ForARange = oNewDataSeries
End Function
' creat new DataSequence from range representaion
' that provides real data and its role in the series
' oDataProvider: com.sun.star.chart2.data.XDataProvider
' sRangeRepresentation: range address e.g. Sheet1.A1:B2
' sRole: role is defined in com.sun.star.chart2.data.Data...
Function CreateDataSequence( _
oDataProvider As Object, _
sRangeRepresentation As String, sRole As String ) As ...
Dim oDataSequence As Object
On Error GoTo Handler
' create .chart2.data.DataSequence from range represent...
If oDataProvider._
createDataSequenceByRangeRepresentationPossible(sRa...
oDataSequence = oDataProvider._
createDataSequenceByRangeRepresentation(sRangeRep...
If NOT IsNull(oDataSequence) Then
oDataSequence.Role = sRole
End If
End If
Handler:
CreateDataSequence = oDataSequence
End Function
Function make_Rectangle( _
nX As Long, nY As Long, _
nWidth As Long, nHeight As Long ) _
As com.sun.star.awt.Rectangle
Dim aRectangle As New com.sun.star.awt.Rectangle
With aRectangle
.X = nX
.Y = nY
.Width = nWidth
.Height = nHeight
End With
make_Rectangle = aRectangle
End Function
Function make_Size( _
nWidth As Long, nHeight As Long ) As com.sun.star.awt...
Dim aSize As New com.sun.star.awt.Size
aSize.Width = nWidth
aSize.Height = nHeight
make_Size = aSize
End Function
}}
End:
* 例２ [#o15f5ca6]
チャートを作成、種類を設定、範囲を指定して完成。したチャ...
- チャートの作成、種類の変更、範囲を指定に関しては [[例１...
#contents
#code(basic){{
' this example makes a new XY diagram and
' add a new series to it, additionally
' modifies its axises.
Sub Chart_ex2
oDoc = ThisComponent
oCharts = oDoc.getSheets().getByIndex(0).getCharts()
sChartName = "Chart2"
aRect = make_Rectangle(500, 2700, 7000, 6000)
oChart = AddNewChart(oCharts, sChartName, _
"com.sun.star.chart2.template.ScatterLineSymbol", _
aRect )
oDiagram = oChart.getFirstDiagram()
oChartTypeManager = oChart.getChartTypeManager()
oChartTypeTemplate = oChartTypeManager.createInstance( _
"com.sun.star.chart2.template.ScatterLineSymbol")
oDataProvider = oChart.getDataProvider()
oColorScheme = oDiagram.getDefaultColorScheme()
' coordinates belongs the diagram
oCoords = oDiagram.getCoordinateSystems()
oCoord = oCoords(0)
' chart types belonging the coordinate
oChartTypes = oCoord.getChartTypes()
oChartType = oChartTypes(0)
oDataSource = CreateDataSource(oDataProvider, _
"Sheet1.A1:B6", _
com.sun.star.chart.ChartDataRowSource.COLUMNS, _
True, True)
' change data of the diagram
Dim aArgs(0) As New com.sun.star.beans.PropertyValue
aArgs(0).Name = "HasCategories"
aArgs(0).Value = True
oChartTypeTemplate.changeDiagramData(oDiagram, oDataSou...
' add new series
oNewSeries = CreateDataSeries_ForARange( _
oDataProvider, "Sheet1.C2:C6", "values-y", "Sheet1....
' set properties of the new series
oNewSeries.Color = oColorScheme.getColorByIndex(1)
aSymbol = CreateUnoStruct("com.sun.star.chart2.Symbol")
aSymbol.Style = com.sun.star.chart2.SymbolStyle.STANDARD
aSymbol.Size = make_Size(250, 250)
oNewSeries.Symbol = aSymbol
' add new series to the list of data series
oDataSeries = oChartType.getDataSeries()
ReDim Preserve oDataSeries(1)
oDataSeries(1) = oNewSeries
' apply new data series
oChartType.setDataSeries(oDataSeries)
' modify axises
oYAxis = oCoord.getAxisByDimension(1, 0)
oXAxis = oCoord.getAxisByDimension(0, 0)
SetSimpleTitile(oYAxis, "Y", True)
SetSimpleTitile(oXAxis, "X", True)
oScaleData = oXAxis.getScaleData()
With oScaleData
.Maximum = 6.0
.Minimum = 0.0
End With
oXAxis.setScaleData(oScaleData)
End Sub
' create and set a simple title object for axis
' oAxis: axis of the coordinate
' sTitle: title string
' bDisplayLabels: set to show/hide its title
Function SetSimpleTitile( oAxis As Object, sTitle As Stri...
Optional bDisplayLabels As Boolean ) As Object
oNewTitle = CreateUnoService("com.sun.star.chart2.Title")
oNewPart = CreateUnoService("com.sun.star.chart2.Format...
oNewPart.setString(sTitle)
oNewTitle.setText(Array(oNewPart))
If NOT IsMissing(DisplayLabels) Then oAxis.DisplayLabel...
oAxis.setTitleObject(oNewTitle)
End Function
' add new chart and change it type from
' oCharts: ChartContainer to make a new chart into
' sChartName: chart name
' sChartTemplateName: new type of the chart
' aRectangle: define the size and the position of the chart
Function AddNewChart( _
oCharts As Object, sChartName As String, _
sChartTemplateName As String, _
aRectangle As com.sun.star.awt.Rectangle ) As Object
If oCharts.hasByName(sChartName) Then
oCharts.removeByName(sChartName)
End If
Dim aRange(1) As New com.sun.star.table.CellRangeAddress
' adds new chart
oCharts.addNewByName(sChartName,aRectangle,aRange,False...
' get newly created chart
oChart = oCharts.getByName(sChartName).getEmbeddedObjec...
' diagram of the css.chart2
oDiagram = oChart.getFirstDiagram()
' create template and set to it
oChartTypeManager = oChart.getChartTypeManager()
oChartTypeTemplate = oChartTypeManager.createInstance( _
sChartTemplateName)
oChartTypeTemplate.changeDiagram(oDiagram)
AddNewChart = oChart
End Function
' create DataSource from arguments
' according to css.chart2.data.TabularDataProviderArguments
Function CreateDataSource( _
oDataProvider As Object, _
sCellRangeRepresentation As String, _
nDataRowSource As Integer, _
bFirstCellAsLabel As Boolean, _
bHasCategories As Boolean ) As Object
Dim oNewDataSource As Object
Dim aProps(3) As New com.sun.star.beans.PropertyValue
aProps(0).Name = "CellRangeRepresentation"
aProps(0).Value = sCellRangeRepresentation
aProps(1).Name = "DataRowSource"
aProps(1).Value = nDataRowSource
aProps(2).Name = "FirstCellAsLabel"
aProps(2).Value = bFirstCellAsLabel
aProps(3).Name = "HasCategories"
aProps(3).Value = bHasCategories
oNewDataSource = oDataProvider.createDataSource(aProps)
CreateDataSource = oNewDataSource
End Function
' create DataSeries represented by a single range
' oDataProvider: provided by the chart
' sYRangeRepresentation: string representation of the ran...
' sYRole: role for the data c.g. "values-y"
' sLabelRangeRepresentation: if the data has its label, p...
Function CreateDataSeries_ForARange( _
oDataProvider As Object, _
sYRangeRepresentation As String, _
sYRole As String, _
Optional sLabelRangeRepresentation As String ) As Obj...
Dim oNewDataSeries As Object
' create new DataSeries
oNewDataSeries = CreateUnoService("com.sun.star.chart2....
' Y
oDataY = CreateUnoService("com.sun.star.chart2.data.Lab...
oSequenceY = CreateDataSequence(oDataProvider, _
sYRangeRepresentation, sYRole)
If NOT IsNull(oSequenceY) Then
oDataY.setValues(oSequenceY)
If NOT ((IsMissing(sLabelRangeRepresentation)) AND _
(sLabelRangeRepresentation <> "")) ...
oSequenceLabel = CreateDataSequence(oDataProvider, _
sLabelRangeRepresentation, "")
oDataY.setLabel(oSequenceLabel) ' label is used as ...
End If
End If
' set x and y data to series
aData = Array(oDataY)
oNewDataSeries.setData(aData)
CreateDataSeries_ForARange = oNewDataSeries
End Function
' creat new DataSequence from range representaion
' that provides real data and its role in the series
' oDataProvider: com.sun.star.chart2.data.XDataProvider
' sRangeRepresentation: range address e.g. Sheet1.A1:B2
' sRole: role is defined in com.sun.star.chart2.data.Data...
Function CreateDataSequence( _
oDataProvider As Object, _
sRangeRepresentation As String, sRole As String ) As ...
Dim oDataSequence As Object
On Error GoTo Handler
' create .chart2.data.DataSequence from range represent...
If oDataProvider._
createDataSequenceByRangeRepresentationPossible(sRa...
oDataSequence = oDataProvider._
createDataSequenceByRangeRepresentation(sRangeRep...
If NOT IsNull(oDataSequence) Then
oDataSequence.Role = sRole
End If
End If
Handler:
CreateDataSequence = oDataSequence
End Function
Function make_Rectangle( _
nX As Long, nY As Long, _
nWidth As Long, nHeight As Long ) _
As com.sun.star.awt.Rectangle
Dim aRectangle As New com.sun.star.awt.Rectangle
With aRectangle
.X = nX
.Y = nY
.Width = nWidth
.Height = nHeight
End With
make_Rectangle = aRectangle
End Function
Function make_Size( _
nWidth As Long, nHeight As Long ) As com.sun.star.awt...
Dim aSize As New com.sun.star.awt.Size
aSize.Width = nWidth
aSize.Height = nHeight
make_Size = aSize
End Function
}}
Page:
