Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

56696 / 76732

←次へ　｜　前へ→


	【24782】VBAでグラフ作成

バンビ - 05/5/10(火) 11:51 -


	引用なし

	パスワード

以下の記述に加えて。。。

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

どのようにしたら、線の色とマーカーを付ける事ができるのでしょうか？

0 hits

▼

【24782】VBAでグラフ作成 バンビ 05/5/10(火) 11:51

≪