VB6よりExcelの操作を行い、グラフ(散布図)を作成したい (ID:142523)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 VB6 Excel2000 グラフ(散布図)を使用し、近似曲線の対数を追加しています。 各系列の色については自動で色が変更されるようになっていますが、 対数の線については全て自動な場合カラーがすべて黒でした。 系列毎に対数の線を作るようにしているのですが、 色も合せたいと思っています。 系列が固定でない為、自動で系列にセットされた カラーを対数の線にもセットしたいのですが、 どなたか、ご存知でないでしょうか？ 現在のソースは下記の通りです。 ********************************************************************* 'グラフシートを作る xlsBooks(alngSouNo).Charts.Add With xlsBooks(alngSouNo).ActiveChart .ChartType = xlXYScatter '初期シートのデーて出力範囲を指定 .SetSourceData Source:=xlsSheet.Range("A4:E" & avalPasData2(0, 0)), PlotBy:=xlColumns '各種系列設定 For lngIndx = 1 To alngCnt 'x軸設定 .SeriesCollection(lngIndx).XValues = "='" & avalPasData2(lngIndx - 1, 1) _ & "'!R4C4:R" & avalPasData2(lngIndx - 1, 0) & "C4" 'y軸設定 .SeriesCollection(lngIndx).Values = "='" & avalPasData2(lngIndx - 1, 1) _ & "'!R4C5:R" & avalPasData2(lngIndx - 1, 0) & "C5" '名称軸設定 .SeriesCollection(lngIndx).Name = "='" & avalPasData2(lngIndx - 1, 1) & "'!R2C2" Next lngIndx .SeriesCollection(3).Delete .Location Where:=xlLocationAsNewSheet '★各種グラフのタイトル設定★ '★タイトル .HasTitle = True .ChartTitle.Characters.Text = "グラフタイトル" '★x軸タイトル .Axes(xlCategory, xlPrimary).HasTitle = True .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "x軸タイトル名" '★y軸タイトル .Axes(xlValue, xlPrimary).HasTitle = True .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "y軸タイトル名" '近似曲線設定 For lngIndx = 1 To alngCnt .SeriesCollection(lngIndx).Select .SeriesCollection(lngIndx).Trendlines.Add Type:=xlLogarithmic, Forward:=0, Backward:=0 Next lngIndx End With *********************************************************************