Excel VBA質問箱 IV

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

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


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

56689 / 76732

←次へ　｜　前へ→


	【24789】Re:VBAでグラフ作成

小僧 - 05/5/10(火) 17:55 -


	引用なし

	パスワード

▼バンビさん:
こんにちは。

Sub RunGraph()
　　Call UGraph("b2:c7", 0, 120, 250, 150)
　　Call 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
　　
　　ActiveChart.SeriesCollection(1).Select
'　　　　　　　　　　　　　　　　　　　　^^^　　　　
　　With Selection.Border
　　　　.ColorIndex = 5　　　　　　　　
　　　　.Weight = xlThin　　　　　　　　
　　　　.LineStyle = xlContinuous
　　End With
　　With Selection
　　　　.MarkerBackgroundColorIndex = 5　　　　
　　　　.MarkerForegroundColorIndex = 5　　　　
　　　　.MarkerStyle = xlCircle　　　　　　　　
　　　　.Smooth = False
　　End With
End Sub

カッコの中の数字は、グラフ（線の数など）によって変化します。
バンビさんが意図しない線の色が変わってしまった場合は
数字を色々いじって結果を確認してみて下さい。

0 hits

▼

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