|
ご返答ありがとうございました。
しかし。。。
なぜか、以下の箇所でエラーとなってしまい、
> ActiveChart.SeriesCollection(1).Select
デバックしなければいけないような状態なのです。。。
どうしてでしょうか。
他のサンプル((3)(4)(5)のみを線グラフにする等)でも
このカッコ付きのものがあるのですが、同様にここで止まってしまいます。
もし、何らか分かることがございましたら、
アドバイスお願いいたします。
▼小僧 さん:
>▼バンビ さん:
>こんにちは。
>
>Sub RunGraph()
> Call UGraph("b2:c7", 0, 120, 250, 150)
> Call UGraph("b2:b7,d2:d7", 250, 120, 250, 150)
>End Sub
>
>Sub UGraph(rng, L, T, W, H)
>
> With ActiveSheet.ChartObjects.Add(L, T, W, H)
> .Chart.ChartType = xlLine
> .Chart.SetSourceData Source:=ActiveSheet.Range(rng), _
> PlotBy:=xlColumns
> .Chart.Location Where:=xlLocationAsObject, Name:="Sheet1"
> End With
>
> ActiveChart.SeriesCollection(1).Select
>' ^^^
> With Selection.Border
> .ColorIndex = 5
> .Weight = xlThin
> .LineStyle = xlContinuous
> End With
> With Selection
> .MarkerBackgroundColorIndex = 5
> .MarkerForegroundColorIndex = 5
> .MarkerStyle = xlCircle
> .Smooth = False
> End With
>End Sub
>
>カッコの中の数字は、グラフ(線の数など)によって変化します。
>バンビさんが意図しない線の色が変わってしまった場合は
>数字を色々いじって結果を確認してみて下さい。
|
|