1307528248 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回まで
  • 13歳以上
  • 登録:2011/06/08 19:17:30
  • 終了:2011/06/08 19:51:27

ベストアンサー

id:taknt No.1

きゃづみぃ回答回数13538ベストアンサー獲得回数11982011/06/08 19:45:04

ポイント200pt
With Selection
    .Format.Line.ForeColor.RGB = RGB(255, 0, 0)
End With

この箇所を

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

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

id:akagi_paon

うまくいきました!ありがとうございます!

2011/06/08 19:51:01

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

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

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

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

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません