No.1ベストアンサー
- 回答日時:
質問の意味を捉えていればいいんですが・・・チョッと不安です。
Sheet1のA1:B10で、A列を横軸、B列を縦軸、1行目を項目名として棒グラフの作成を記録しました。
グラフ自体は単なる例です。
'マクロの記録
Sub Macro1()
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:B10"), PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).Delete
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Y"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub
次のように変更してみました。
グラフを書く範囲を選択してこのマクロを実行します。
例えば、Sheet1のA1:B5にするとこの範囲でグラフを書きます。
'選択範囲のグラフを作成するよう変更
Sub chgMacro1()
Dim grpAdr As String '<追加>選択範囲のアドレス
grpAdr = Selection.Address '<追加>Selectionが選択したセル範囲になる
Charts.Add
ActiveChart.ChartType = xlColumnClustered
'<次の行を変更>(Rangeに座標を代入)
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range(grpAdr), PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).Delete
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Y"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub
この回答へのお礼
お礼日時:2002/04/03 14:53
nishi6さん、ありがとうございました!
まさに希望していた回答そのものでした。
<追加>部分の記述と、SetSourceData Source:=Sheets("Sheet1").Range
の後の(grpAdr)を書き変えて成功しました。
本当にありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/09 14:54
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/01/23 11:02
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/04 17:58
- Visual Basic(VBA) Excelのマクロ ブック間である範囲をコピー Workbooks(“a.xlsx“).Sheets 3 2022/05/12 17:02
- Visual Basic(VBA) Excelのマクロについて教えてください。 1 2023/03/12 12:16
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 12:30
- Excel(エクセル) エクセルVBA 複数行にまたがっている選択を判定するには 2 2023/05/21 21:54
- Visual Basic(VBA) 【VBA】Excelの特定範囲のセルを画像で保存したい 2 2023/01/25 13:06
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの主軸と第2軸の0を合...
-
エクセルで円グラフに引き出し...
-
excelグラフでデータテーブルを...
-
レーダーグラフを使って「指向...
-
エクセルのグラフ作成時に、折...
-
Excelの凡例を自由に編集する方法
-
1.0未満のデータラベルを自動的...
-
パワーポイントにグラフを挿入...
-
Excel2007グラフの軸ラベルで、...
-
EXCELグラフで「#N/A」が表示さ...
-
Excelグラフを並べ替えた時の色...
-
エクセルの散布図で新たに入力...
-
Excelのグラフについて教えてく...
-
エクセルで、x軸とy軸を選んで...
-
エクセルの散布図 近似曲線の...
-
EXCELで折れ線グラフを作る
-
スペック足りてるのにゲームが...
-
エクセル2010 レーダーチャート...
-
エクセルの凡例の順序をグラフ...
-
エクセルグラフについて(日付...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルの主軸と第2軸の0を合...
-
エクセルで円グラフに引き出し...
-
excelグラフでデータテーブルを...
-
エクセルのグラフ作成時に、折...
-
1.0未満のデータラベルを自動的...
-
Excelの凡例を自由に編集する方法
-
Excelグラフを並べ替えた時の色...
-
エクエルの折れ線グラフ
-
パワーポイントグラフのラベル...
-
パワーポイントにグラフを挿入...
-
スペック足りてるのにゲームが...
-
EXCELグラフで「#N/A」が表示さ...
-
Excel2010 散布図 でベタ色指定
-
エクセルの散布図で新たに入力...
-
エクセルのグラフ(2Y軸)の凡...
-
Excel2007グラフの軸ラベルで、...
-
エクセルグラフについて(日付...
-
エクセルで作ったグラフの項目...
-
EXCELで折れ線グラフを作る
-
エクセルの主軸と第2軸の0を合...
おすすめ情報