Excel VBA質問箱 IV

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

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


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

4317 / 76734

←次へ　｜　前へ→


	【78040】Re:マクロでグラフ作成

γ - 16/3/13(日) 12:07 -


	引用なし

	パスワード

こんにちは。

　　'作画
　　Dim s As String
　　
　　With ActiveSheet.ChartObjects(1).Chart
　　　　For i = 1 To .SeriesCollection.Count
　　　　　　s = "=SERIES(" & sheet & "!R6C" & i + 41 & ":R7C" & i + 41 & "," _
　　　　　　　　　　　　　 & sheet & "!R" & SC & "C1:R" & LC & "C1," _
　　　　　　　　　　　　　 & sheet & "!R" & SC & "C" & i + 41 & ":R" & LC & "C" & i + 41 & "," _
　　　　　　　　　　　　　 & i & ")"
　　　　　　Debug.Print s
　　　　　　.SeriesCollection(i).Formula = s
　　　　Next i
　　End With
　
　などとして、内容を確認して下さい。

　 SERIESに与える3つの要素は、それぞれ
　　・凡例項目、
　　・横軸ラベル、
　　・グラフ値
　です。
　
　すでにある折れ線グラフの系列を一つ選択して、
　数式のところに現れる文字列をよく観察して、
　それぞれが何を示すか理解することが先決です。

余談：
会社でマクロ作成を依頼するルートがあるんですね？
そういう商売が普及しているのか。知らなかった。
これからは、ここでも幾ばくか払ってもらえないかな。www

11 hits

▼

【78037】マクロでグラフ作成 のりっぺ 16/3/12(土) 22:56