Excel VBA で質問です。

Question

akagi_paon

226

199もっと見る

200pt

コンピュータ

Excel VBA で質問です。

画像のように、折れ線グラフの途中から色を変えたくて、下記のようなプログラムを書きました。
しかし、うまくいかないようです。
なにが悪いのでしょうか？ ※Excel2007です。
Sub createGraph()
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("A1:F1")
ActiveChart.ChartType = xlLineMarkers

For j = 4 To 6
ActiveChart.SeriesCollection(1).Points(j).Select
With Selection
.Format.Line.ForeColor.RGB = RGB(255, 0, 0)
End With
Next
End Sub

回答の条件

1人2回まで

登録：2011/06/08 19:17:30
終了：2011/06/08 19:51:27

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

コメントはまだありません

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

リクエスト送信済

回答リクエストを送信したユーザーはいません

きゃづみぃ · Accepted Answer · 2011-06-08T19:45:04+09:00

With Selection
    .Format.Line.ForeColor.RGB = RGB(255, 0, 0)
End With

この箇所を

With Selection.Border
    .Color = RGB(255, 0, 0)
End With

に変えてみたらいかがでしょうか？

Excel VBA で質問です。

ベストアンサー

きゃづみぃ1353911982011/06/08 19:45:04

コメント（0件)

この質問への反応（ブックマークコメント）