Excel VBA質問箱 IV

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

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


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

32803 / 76734

←次へ　｜　前へ→


	【49164】折れ線グラフのデータ範囲

mayu - 07/5/25(金) 17:52 -


	引用なし

	パスワード

以下のプログラムでは、指定した表の範囲の埋め込みグラフが一行分データの折れ線グラフが複数できてしまうのですが、二行分のデータを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

4 hits

▼

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

≪