Excel VBA質問箱 IV

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

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


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

22819 / 76732

←次へ　｜　前へ→


	【59288】選択した範囲でグラフを作成する

うぇい - 08/12/4(木) 22:03 -


	引用なし

	パスワード

皆さん、こんにちは。
マクロ初心者ですので、あまりにも当たり前な内容でしたらすみません。

選択した範囲からグラフを作成するマクロを、記録により作成しました。
---------------------------
Sub test()
　　Charts.Add
　　ActiveChart.ChartType = xlLineMarkers
　　ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A13:F19"), PlotBy:=xlRows
　　ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
　　With ActiveChart
　　　　.HasTitle = True
　　　　.ChartTitle.Characters.Text = "　題名　"
　　　　.Axes(xlCategory, xlPrimary).HasTitle = False
　　　　.Axes(xlValue, xlPrimary).HasTitle = False
　　End With
End Sub
----------------------------------
グラフの種類等はこれでほぼ間違いないのですが、
この部分以外にも数値を入力しており、その別な部分でもグラフを作成したいのです。
そこで範囲をあらかじめ選択し、その部分をグラフとするマクロにしようと思ったのですが

　　ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A13:F19"), PlotBy:=xlRows

「この一文を削除するだけでOK」と書いてあるページを発見しました。
確かにこれで自由な範囲からグラフが作れるので、最初はこれでもうOKだと思っていたのですが
これだとデータ範囲の系列が「列」設定になってしまいます。
「PlotBy:=xlRows」は残して、「行」設定のままグラフを作成したいのですが
それはどのようにすれば可能でしょうか。

説明が下手ですみません。よろしくお願いします。

1 hits

▼

【59288】選択した範囲でグラフを作成する うぇい 08/12/4(木) 22:03

≪