VBA初心者です。
アクティブシート上に、散布図を作成したいのですが・・・
Dim mySheet, mySheetName
Set mySheet = ActiveSheet
mySheetName = ActiveSheet.Name
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=mySheet.Range("A1:C10")
ActiveChart.Location Where:=xlLocationAsObject, Name:=mySheetName
これを実行させた時アクティブなセルに数字が存在すると、データ範囲が「A1:C10」ではなく、アクティブなセルになってしまいます。
原因を教えていただけないでしょうか。よろしくお願いします。
No.2ベストアンサー
- 回答日時:
こんにちは。
Charts.Addでグラフが出来ますが、その時点でのデータ範囲は現在選択されてる範囲になり、
次に、SetSourceData Sourceで範囲が変更さますので、Charts.Addの前に範囲選択をして下さい。
Range("A1:C10").Select
Charts.add
以上です。
お返事ありがとうございます。結局「Charts.Addを実行する前に範囲指定しておく」ことにします。SetSourceData Sourceでは場合によっては範囲が変更されないと言うことでしょか?少し解せない部分もありますが、締め切ろうと思います。
これからも、よろしくお願いします。ありがとうございました。
No.1
- 回答日時:
実際に試していないので、自信ないですが、
結局
Charts.AddでActiveCellのデータでグラフができるということですよね。
mySheet.Range("A1:C10")
を
Sheets("Sheet2").Range("A1:C10")
のようにアクティブシートを使わないで指定してみたらどうでしょうか
お返事ありがとうございました。結局「Charts.Addを実行する前に範囲指定しておく」ことにします。アクティブシートを使わないで範囲指定とのアドバイスですが、名前もまちまちな多数のシートにグラフを作成したかったので、アクティブシートの名前を格納するプログラムとしました。
なにぶん初心者なので、これからも質問することがあると思いますが、よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】Excelの特定範囲のセルを画像で保存したい 2 2023/01/25 13:06
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Excel(エクセル) Excelマクロ(VBA)CELL形式とA1形式の使い分け 6 2022/08/27 23:35
- Excel(エクセル) エクセルVBAでセルに表示されているとおりの数値を取得したい(時間の計算結果) 1 2022/03/30 17:52
- Visual Basic(VBA) Excelのマクロについて教えてください。 1 2023/03/12 12:16
- Excel(エクセル) マクロ セルの選択 5 2022/08/12 22:47
- Excel(エクセル) vbaで列幅について 1 2022/11/15 08:31
- その他(プログラミング・Web制作) Pythonを勉強しています。 5 2023/08/25 09:51
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
マクロの「SaveAs」でエラーが...
-
EXCELのSheet番号って変更でき...
-
VBA 空白行に転記する
-
VBA 実行時エラー1004 rangeメ...
-
楽天RSSからエクセルVBAを使用...
-
100万件越えCSVから条件を満た...
-
VBA 重複チェック後に値をワー...
-
VBAで、1つのエクセルで、2つの...
-
Excel VBA オートフィルターで...
-
Unionでの他のシートの参照につ...
-
Changeイベントで複数セルへの...
-
VBA別シートの最終行の次行へ転...
-
検索して修正したデータの上書転記
-
同じ作業(データコピー・貼付...
-
マクロ実行後に別シートの残像...
-
ExcelのVBマクロを、バックグラ...
-
【VBA】データを各シートに自動...
-
Count Ifのセルの範囲指定に変...
-
VBAで変数の数/変数名を動的に...
-
VBA 別ブックからの転記の高速...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マクロの「SaveAs」でエラーが...
-
VBA 空白行に転記する
-
EXCELのSheet番号って変更でき...
-
マクロ実行後に別シートの残像...
-
VBA別シートの最終行の次行へ転...
-
Count Ifのセルの範囲指定に変...
-
Changeイベントで複数セルへの...
-
VBAで変数の数/変数名を動的に...
-
VBA 別ブックからの転記の高速...
-
【VBA】特定の条件でセルをコピー
-
VBA 実行時エラー1004 rangeメ...
-
楽天RSSからエクセルVBAを使用...
-
Unionでの他のシートの参照につ...
-
複数シートの複数列に入力され...
-
ExcelのVBマクロを、バックグラ...
-
100万件越えCSVから条件を満た...
-
VBA Userformで一部別シートに...
-
Excel VBA オートフィルターで...
-
Excel2013で切り取り禁止
-
VBAでEXCELから固定長...
おすすめ情報