|
以下の記述に加えて。。。
Sub RunGraph()
UGraph "b2:c7", 0, 120, 250, 150
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
End Sub
VBAのサイトで見つけた線の色とマーカー(線の折れる所に◆等を表示する)を
付けたいのですが、HPで見かけたコードを代入してもエラーになってしまいます。
ActiveChart.SeriesCollection(4).Select
With Selection.Border
.ColorIndex = 5 '線の色
.Weight = xlThin '線の種類 :参考13-3参照
.LineStyle = xlContinuous
End With
With Selection
.MarkerBackgroundColorIndex = 5 'マーカの中の色 中抜きは[xlNone]
.MarkerForegroundColorIndex = 5 'マーカの外枠の色
.MarkerStyle = xlCircle 'マーカの種類 :参考13-4参照
.Smooth = False
End With
どのようにしたら、線の色とマーカーを付ける事ができるのでしょうか?
|
|