- ベストアンサー
マクロでグラフ
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
質問の意味がよくわからない部分がありますが・・・ グラフを作成したいのであれば、「挿入」-「グラフ」のウィザードで折れ線グラフを選び順次入力すれば作成できます。 最後にSheet1選択するとＳｈｅｅｔ1上にグラフが作成できます。その後で直接、文字などの字体などを整える。 この操作をマクロ化したいのであれば、まず、「ツール」-「マクロ」で新しいマクロの記録を選んでおいて・・ 上のグラフ作成を行います。全ての作業が終わったところで、「マクロの記録終了」でマクロが自動作成されます。 あとは、やりたい内容に応じて、作成されたマクロを修正する必要があります。
関連するQ&A
- エクセルのグラフ位置をマクロで調整したい
約１５０人分のデータを一人分ずつグラフにして、そのグラフを準備したワークシート（エクセル）の特定の位置に貼り付けたいのです。 マクロを使ってグラフをつくるところまではできたのですが、所定の位置に移動させることができないのです。１５０人分のデータなので一つ一つやっていたらきりがないので、マクロを使ってグラフの位置を移動させたいのですがなかなかできません。マクロを使うといっても、「新しいマクロを記録」→「記録終了」の流れでしか使えません。誰かアドバイスをお願いします。今回初めて教えてgooを利用します。
- ベストアンサー
- その他([技術者向] コンピューター)
- excel マクロ記録→実行でグラフ作成に失敗
次の手順でグラフ作成を試みますが、失敗します。 1.データ範囲を選択した後「マクロの記録」ボタンを押す。 2.ツールバーからグラフウィザードを起動してグラフを作成。 3.サイズやフォントの編集を行って記録を終了。 4.マクロを実行 エラーとして、例えば次の行が指摘されます。 ActiveSheet.Shapes("グラフ 4").IncrementLeft -143.25 この行は"グラフ 4"を対象とした編集を行っていると思うのですが、マクロ実行で新たにグラフを作ると、グラフ名中の数字がインクリメントされて"グラフ n"(n>=5)以降が作られますよね？ そのためにエラーが出ると思うのですが、"グラフ 4"では無く上手い具合にグラフ名を指定する方法はありますか？ 他にも問題点があるかも知れませんが現状ではこれしか思いつきません。 思い当たる方、ご指摘いただけますでしょうか。 （単純にグラフを作る作業は「マクロ記録→実行」によって可能であることは確認しました。） また、excelでのグラフ作りに有用な書籍やサイトがあれば、教えていただけませんでしょうか。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルでマクロを利用してグラフを作りたい
エクセルでマクロを利用してグラフを作りたいです。 Sheet1で作ったマクロを、Sheet2でも動かす方法を教えてください。 マクロはド素人なのでいつも自動記録で作成しています。 シートはSheet1はSeet23まであり、各シートのデータのある場所は全て同じです。 今回は、Sheet1でマクロを自動記録させて作りました。 Sub Macro1() Range("G1:M6").Select ActiveSheet.Shapes.AddChart.Select ActiveChart.SetSourceData Source:=Range("'Sheet1'!$G$1:$M$6") ActiveChart.ChartType = xlLine Range("G22").Select End Sub これをSheet2でも動かしたらSheet2にSheet1のデータを参照してグラフが出来てしまいました。 各シートで動かしたら、そのシート内のデータを読み取り、グラフを作る方法を教えてください。 大変困っています。よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- エクセルのマクロで同じサイズの複数のグラフを整列して作成する方法
エクセルで商品毎の販売量推移の散布図を複数作成し、それぞれのグラフを比較する等して販売活動の参考にしているのですが、対象となる商品の数が増えてきたので比較作業が大変になりました。一つのシートに比較邸小さな同じサイズのグラフを作成し、きちんと並べることができれば、作業が大変楽になると思っています。勿論、シートをスクロールしてグラフを見る前提です。 そこで、「新しいマクロの記録」でコードを作成してみたのですが、次の点がわからず困っています。ご指導の程よろしくお願い致します。 １．グラフを作成する際、最初からサイズを指定する方法 「新しいマクロの記録」では、一度作成したグラフのサイズを縮小する内容※になっていますが、これを最初からサイズ指定する方法があるのでしょうか？ ※ ActiveSheet.Shapes("グラフ 103").ScaleWidth 0.48, msoFalse, msoScaleFromTopLeft ２．移動する際のグラフの名前？の指定方法 名前が分からないのでグラフを移動しようと思ってもグラフを指定することができないので困っています。上の例では名前が自動付与されて"グラフ 103"になっていますが、作成したグラフを消去してもグラフを作成するたびに数字が増えてしまうので、作成時に指定する方法を知りたいのです。サイズを指定する数値の単位は下記の移動に使用する単位と同じであれば助かります。 ３．グラフの移動方法 「新しいマクロの記録」では下記のように相対的な数字がポイントで指定するようになっていました。 ActiveSheet.Shapes("グラフ 103").IncrementLeft 4.5 ActiveSheet.Shapes("グラフ 103").IncrementTop 43.5 これでは、複数のグラフを整列させることは難しいので、適当な移動方法はないでしょうか？ 以上よろしくお願い致します。
- ベストアンサー
- その他MS Office製品
- エクセルで二種類のグラフを組みあわせたい
項目が５個あり、一ヶ月の推移を折れ線グラフにしてます。 ただ、５個のうち一番下の項目だけ縦棒にしたい。しかも他とは違う目盛りでたとえば右にＹ軸をおきたい。 ”グラフウィザード”の種類選択で、ユーザー設定「２軸上の折れ線と縦棒」でできそうなんですが、どうも思ったようにいきません。（かってに４,５番目の項目が縦棒になっちゃいます） どの項目を折れ線に、または縦棒にという指定の仕方がわかりません。 きっと簡単なことだと思われるでしょうが、すいません、長くなってかまわないので教えてください。 文章わかりにくくてすいません。必要は補足しますのでよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルのグラフ範囲を自動にしたい
エクセルのグラフのデータ範囲が頻繁に変化する計算をしており、 そのたびにデータ範囲を指定し直して大変です。 グラフのデータ範囲を自動で設定できる方法はないでしょうか？ マクロでも構いません。 ちなみに、グラフは ・単純な２本の折れ線グラフ ・データはＸＹ値ともに縦に並んでいる。 ・このデータ量が、多くなったり、少なくなったり頻繁に変化する 以上、よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- Excelマクロ:折れ線グラフの行範囲を可変
Excel2010を使用しています。 マクロを記録して折れ線グラフを作ろうとしていますが、マクロを記録出来ないところがあるらしくマクロを実行できません。 マクロを使用するのが初めてで、VBAは勉強中の為、自力での組み立てが出来そうにありません。 どうかお力を貸して頂けないでしょうか。 sheetによって行の数に違いが有る為、行のみを可変範囲設定出来ればと思っています。 1行目に系列が表示しており、２行目からはすべて数字となっています。 A列を横軸の目盛りで表示し、C・D・E列を折れ線グラフで表示し、B・F列はグラフには使用しません。 よろしくお願いします。
- ベストアンサー
- その他（ビジネス・キャリア）
- エクセルグラフについて教えて下さい
今、エクセルでグラフを作成しているのですが・・・ 項目１～６は積み上げ縦棒グラフ、項目７は折れ線グラフという ２軸上の折れ線グラフにしたいんですが・・・ 何も指定しなければ 項目１～３は積み上げグラフに、項目４～７が折れ線 グラフになってしまいます。どこで、各項目のグラフの 種類を設定すればよいのでしょうか？ 宜しくお願い致します。
- 締切済み
- オフィス系ソフト
- エクセル マクロ 既存グラフの削除
また 質問させていただきます。 左側に表全体を範囲指定した折れ線グラフを、マクロを実行して貼り付けており 右側に表の一部を範囲指定した折れ線グラフを、マクロを実行して貼り付けます。 右の表の範囲を変更して、右の表だけを変更するマクロ作成したいと思っています。 左側のグラフの名前を変更して Activesheet.ChartObjects(1).Name="全体グラフ" 右側のグラフの名前を変更して Activesheet.ChartObjects(1).Name="グラフ１" 右側の折れ線グラフ（グラフ１）を削除して、範囲を変更した新たなグラフ（グラフ１に名前を変更）を貼り付けるマクロを作りましたが、右側のグラフが貼りついていない、最初のときに実行すると、削除するグラフが無いためにエラーがでてしまいます。 Iｆ を使用するのかなっと思っていますが、どのように入力すればいいのか分かりません。 教えて頂けないでしょうか。
- ベストアンサー
- オフィス系ソフト
お礼
なんとなくうまくいきました。ありがとうございました。