|
こんにちは。
'作画
Dim s As String
With ActiveSheet.ChartObjects(1).Chart
For i = 1 To .SeriesCollection.Count
s = "=SERIES(" & sheet & "!R6C" & i + 41 & ":R7C" & i + 41 & "," _
& sheet & "!R" & SC & "C1:R" & LC & "C1," _
& sheet & "!R" & SC & "C" & i + 41 & ":R" & LC & "C" & i + 41 & "," _
& i & ")"
Debug.Print s
.SeriesCollection(i).Formula = s
Next i
End With
などとして、内容を確認して下さい。
SERIESに与える3つの要素は、それぞれ
・凡例項目、
・横軸ラベル、
・グラフ値
です。
すでにある折れ線グラフの系列を一つ選択して、
数式のところに現れる文字列をよく観察して、
それぞれが何を示すか理解することが先決です。
余談:
会社でマクロ作成を依頼するルートがあるんですね?
そういう商売が普及しているのか。知らなかった。
これからは、ここでも幾ばくか払ってもらえないかな。www
|
|