- PR -

OlectraChart 円グラフの各項目の色の設定について

1
投稿者投稿内容
たくろー
会議室デビュー日: 2005/08/25
投稿数: 9
投稿日時: 2005-09-01 16:26
開発環境
OS:WindowsXP Pro
言語:VB6 sp6

円グラフの各項目の色の設定について質問させてください。

ActiveReports(Ver2.0)を使用して、レポートの上にOlectraChart2D(ver6.0)を
乗せて円グラフを表示させてます。

OlectraChart2Dを右クリックして、プロパティ画面を表示させて[グラフスタイル]タブ
[塗潰しスタイル]タブで各項目の色を設定しています。
グラフグループ1のスタイル1〜5までは、任意に色を設定しました。
6つ目の項目色は1つ目の項目色と同じにして、7つ目の項目色は2つ目の項目色を同じ
って具合に、1〜5までの色を繰り返して塗潰したいです。

項目の1〜5は、確かに設定した色で塗潰されますが、6つ目以降はなぜか指定していない
色で塗潰されてしまいます。

ヘルプを見たのですが、どこを設定していいのかわからなく、投稿しました。
繰り返して塗潰すには、どのようにしたらいいのでしょうか?

よろしくお願いします。


-----------------------------------------------------------------------------
円グラフ作成処理
-----------------------------------------------------------------------------
Public ObjReport As Object

↓Data()には予めデータが入っているものとします。
Public Function MakeGraph( Data() As Long) As Boolean

Dim i As Long

With ObjReport.Circle.ChartGroups(1).Data
ObjReport.Circle.ChartGroups(1).SeriesLabels.RemoveAll
ObjReport.Circle.ChartLabels.RemoveAll

'データの個数
.NumSeries = UBound(Data)

i = 1
Do While UBound(Data) >= i

'グラフデータ設定
.Y(i, 1) = Data(i - 1)

With ObjReport.Circle.ChartLabels.Add
.IsBatched = True

'グラフラベル
.Text = Data(i - 1)

'グラフラベル表示位置
.Offset = 10

'データ位置形式
.AttachMethod = 2

'ラベルの位置
.AttachDataIndex.Series = i

.IsBatched = False
End With

'次のデータへ
i = i + 1
Loop
End With

End Function
1

スキルアップ/キャリアアップ(JOB@IT)