|
実は、もう一つまたカッコを使った文書でできない事があるのですが、
以下のような棒グラフがあります。棒グラフは一項目に5本表示されます。
Sub RunGraph()
Range("A1:I6").Select
ActiveSheet.ChartObjects.Add(25, 125, 338, 220).Select
ActiveChart.ChartWizard Source:=Range("A1:I6"), Gallery:=xlColumn, _
Format:=6, PlotBy:=xlRows, CategoryLabels:=1, SeriesLabels _
:=1, HasLegend:=1
End Sub
これの上から1,2を棒グラフ、3つ目以下3,4,5を線グラフにしたく、
以下のようなサンプルがあったのですが、使えずエラーとなってしまします。
どうしてでしょうか。
ActiveChart.SeriesCollection(3).Select
Selection.Type = xlLine
ActiveChart.SeriesCollection(4).Select
Selection.Type = xlLine
ActiveChart.SeriesCollection(5).Select
Selection.Type = xlLine
どうぞ、よろしくお願いします。
|
|