- - PR -
OlectraChart 円グラフの各項目の色の設定について
1
投稿者 | 投稿内容 |
---|---|
|
投稿日時: 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