Excel VBA質問箱 IV

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

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


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

32794 / 76734

←次へ　｜　前へ→


	【49173】Re:折れ線グラフのデータ範囲

りん

- 07/5/26(土) 3:02 -


	引用なし

	パスワード

mayu さん、こんばんわ。

>以下のプログラムでは、指定した表の範囲の埋め込みグラフが一行分データの折れ線グラフが複数できてしまうのですが、二行分のデータを1つの折れ線グラフとして複数作成するにはどうすればいいのでしょうか。

>　　Dim Num As Integer, sRng As Range, sRow As Range
>　　Set sRng = Selection.Offset(ColumnOffset:=1). _
>　　　　Resize(ColumnSize:=Selection.Columns.Count - 1)
>　　For Num = 2 To Selection.Rows.Count
>　　　　Set sRow = sRng.Rows(Num)
　　　　　↑ここが作図される１行　　

>　　　　With Sheets("グラフ用").ChartObjects.Add(((Num - 2) Mod 2) _
>　　　　　　* 220 + 20, Int((Num - 2) / 2) * 160 + 20, 200, 140)
>　　　　　　With .Chart
>　　　　　　　　.SetSourceData Source:=Union(sRng.Rows(1), sRow), _
　　　　　　　　　　　　　　　　　　　　　　　　　↑ここが見出し行？
>　　　　　　　　　　PlotBy:=xlRows
>　　　　　　　　.ChartType = xlLine
>　　　　　　End With
>　　　　End With
>　　Next Num
>End Sub
元のデータはどんな表で、どんな風に選択した状態でこのマクロを実行するのですか？
グラフに表示したい２行というのはどの行のことですか？

なお、線の色を変更するのはこんな感じです

系列１の線を赤に
　.Chart.SeriesCollection(1).Border.ColorIndex = 3

5 hits

▼

【49164】折れ線グラフのデータ範囲 mayu 07/5/25(金) 17:52