Top > OOoBasic > Calc > chart2 > DataSequence
* データシークエンス [#h02213e0]

** データシークエンス [#ubc2706a]


** 役割 [#gb694f0e]
あるデータシークエンスがどのようなことに利用されるかを指定する役割を決めます。Role プロパティに指定します。

利用できる役割の種類は typedef で定義されています。

|values-x|X (XY, Bubble)|
|values-y|Y (各種データ)|
|values-z|Z (三次元 XY、サーフェースチャート)|
|size|サイズ (Bubble)|
|error-bars-x|X エラーバー|
|error-bars-y|Y エラーバー|
** データシークエンスの作成 [#a6173100]
データプロバイダを使用してデータ範囲の指定と Role から新しいデータシークエンスを作成します。

' creat new DataSequence from range representaion
' that provides real data and its role in the series
' oDataProvider:
' sRangeRepresentation: range address e.g. Sheet1.A1:B2
' sRole: role is defined in
Function CreateDataSequence( _
    oDataProvider As Object, _
    sRangeRepresentation As String, sRole As String ) As Object
  Dim oDataSequence As Object
  On Error GoTo Handler
  ' create from range representation
  If oDataProvider._
      createDataSequenceByRangeRepresentationPossible(sRangeRepresentation) Then
    oDataSequence = oDataProvider._
    If NOT IsNull(oDataSequence) Then
      oDataSequence.Role = sRole
    End If
  End If
    CreateDataSequence = oDataSequence
End Function
*** 例 [#wa6cb29d]


  oDataProvider = oChart.getDataProvider()
  sDataRange = "Sheet1.A1:A10"
  oYDataSequence = CreateDataSequence(oDataProvider, sDataRange, "values-y")

  oDataProvider = oChart.getDataProvider()
  sLabelRange = "Sheet1.A1"
  oLabelDataSequence = CreateDataSequence(oDataProvider, sLabelRange, label)

Reload   New Lower page making Edit Freeze Diff Upload Copy Rename   Front page List of pages Search Recent changes Backup   Help   RSS of recent changes