人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

1307528248
●拡大する


●質問者: akagi_paon
●カテゴリ:コンピュータ
✍キーワード:A1 Excel F1 NeXT RGB
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● きゃづみぃ
●200ポイント ベストアンサー
With Selection
 .Format.Line.ForeColor.RGB = RGB(255, 0, 0)
End With

この箇所を

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

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

◎質問者からの返答

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

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ