|
みなさんこんにちわ。
Sheet1の中のアクティブになってるセルの列のデータをグラフにしたいと思っています。
・ 1列目に名前があるので選んだ名前から5列目までを指定する用にしたいです。
・ 1行目にはタイトルが入っているのでこれもグラフ表示させたいです。
以上のことをやりたいと思いマクロを記録しながらやってみたのですが、いきなり範囲指定で壁にぶち当たってしましました。
どなたかご教授いただけないでしょうか?
よろしくお願いします。
Sub グラフ作成()
Dim 範囲 As String
範囲 = ActiveCell.End(xlToRight).Offset(0, -1).Select
Range(Selection, Selection.End(xlToLeft)).Select
Charts.Add
ActiveChart.ChartType = xlPie
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:E1,範囲"), _
PlotBy:=xlRows
ActiveChart.Location Where:=xlLocationAsNewSheet
End Sub
|
|