• ベストアンサー

シート間のグラフスケールを合わせる

エクセルでマクロを作成してますが、分からないので教えてください。 「まとめ」というシートに"まとめ"という名称のグラフがあり、 「(1)」というシートに"グラフ1"という名称のグラフがあります。 この別々のシートにある2つのグラフはY軸の尺度が違っています。 そこで、"グラフ1"のY軸の尺度(最小値・最大値・目盛間隔・補助目盛間隔)を グラフ"まとめ"にそのまま移し変更するマクロを考えています。 すみませんが宜しくお願い致します。

質問者が選んだベストアンサー

  • ベストアンサー
回答No.1

まず、"まとめ"シートと"(1)"シートにあるグラフの管理番号を確認します。 グラフが選択されていない状態でマクロの記録開始→シート"まとめ"のグラフを選択→シート"(1)"のグラフを選択→マクロの記録終了→VBEを開いて、今記録したマクロを確認。"グラフ n"という記述を探す。 nは作った順に1,2…と管理番号が振られます。ここでは、この番号が両方1であると仮定して話を進めます。番号が違う場合は、コードの中の"グラフ 1"という部分を書き換えてください。 標準モジュールを挿入、以下のコードを実行します。 Sub matome() Worksheets("まとめ").ChartObjects("グラフ 1").Activate ActiveChart.Axes(xlValue).Select With ActiveChart.Axes(xlValue) .MinimumScale = Worksheets("(1)").ChartObjects("グラフ 1").Chart.Axes(xlValue).MinimumScale .MaximumScale = Worksheets("(1)").ChartObjects("グラフ 1").Chart.Axes(xlValue).MaximumScale .MinorUnit = Worksheets("(1)").ChartObjects("グラフ 1").Chart.Axes(xlValue).MinorUnit .MajorUnit = Worksheets("(1)").ChartObjects("グラフ 1").Chart.Axes(xlValue).MajorUnit End With End Sub

yomi0952
質問者

お礼

動作し確認できました。 目的どおりです。 本当にありがとうございました。 助かりました。

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • Excelグラフ目盛線の開始値の変更方法

    Excelのグラフにおいて目盛線は軸の最小値より補助間隔に合わせるようになっています。 この目盛線を軸の最小値とは関係なく別の開始値を持って設定することは可能でしょうか? 例:軸の最小値を2として目盛線を10,20,30の間隔で引く やりたいことは対数目盛表示でデータの最小値は3から使用して、目盛線を10,100,1000と引いてそれに合わせた補助目盛線を書きたいと思っています。 軸の最小値を3とした時点で目盛線が3,30,300となってしまいます。 補助目盛線の間隔が3から4にかけてが最大となる幅のグラフが見づらいため変更したいです。 よろしくお願いします。

  • エクセル グラフの目盛表示を変更するには?

    エクセル2003です。 負の値のある棒グラフを作成しております。 例えば値の範囲が-245から795まであった場合、Y軸の最小値を-250、最大値を800に設定して、目盛り間隔を100とすると、グラフ上の目盛りは-250、-150、-50、50、......750となってしまいます。 つまり最小値を基準にしてしまいます。 これを最小値はそのままに-250にして、目盛の割付を0を基準にできないでしょうか?つまり、目盛りは-200、-100、0、100、.....800といった具合にすることは可能でしょうか。

  • エクセルのX軸のグラフの目盛について

    エクセルで作ったグラフのX軸の目盛の値を自分の任意の数値に変更したいです。    例えば自動では1,2,3,4,5~となりますが、 それを0.1、1,3、1.6~と少数の値にしたいのですが、 Xの軸の書式設定で、目盛の間隔や目盛ラベルの間隔に 小数点を入れると「整数が正しくありません」とでて 入力することができません。y軸のほうは最大値や最小値 や目盛間隔の値だあって設定することができるのですが、 x軸ではどうしたらいいのでしょうか?    簡単に言うと、出来上がったグラフのx軸の目盛 を消して自分が指定した値を入れたいということです。  

  • グラフの数値軸についての質問です。

    エクセル2000です。テキストを見ながら横棒グラフを作成しました。そこで質問なんですが、グラフの上に数値軸があります。そこに1000、2000、3000・・・と目盛間隔を1000にし最小値0、最大値7000にしたいのですが、軸の書式設定で設定しても横棒グラフがおかしくなったり数字が変わらなかったりでとても困っています。教えて頂けたら幸いです。お願いします。

  • エクセルのグラフについての質問

    エクセルのグラフで質問です。 僕が現在使用しているグラフは「散布図」と言う種類のグラフです。 そしてセルP2には「900」P3には「1400」P4には「1900」P5には「2900」P6には「3400」の文字を書いています。 そしてP11には「220」P12には「200」P13には「250」P14には「220」P15には「260」P16には「260」の文字を書いています。 軸の書式設定のY軸は最小値が「200」最大値が「400」目盛間隔が「20」を記入してます。 軸の書式設定のX軸は最小値が「500」最大値が「4000」目盛間隔が「500」を記入しています。 元のデータのXの値はP2~P8を選択し、Yの値はP11~P16を選択しています。 グラフオプションのX/数値軸は目盛線と補助目盛線にチェックを入れ、Y/数値軸には目盛線のみチェックを入れています。 データラベルの所ではYの値にチェックを入れています。 現在のグラフは系列1しか入力されていませんが、後で系列2や3とデータも増やして一緒のグラフに表示させる予定です。 そこで質問なのですがX数値軸には「500」「1000」「1500」・・・「4000」と500感覚で均等に数値が表示されていますが、これをグラフの交わっている箇所の数値も表示する(添付図で言うと220と数値が書いている所に「900」、200の数値が書かれている所には「1200」・・・)を表示させる方法はありますか?

  • エクセルのグラフ作成時の軸書式設定トラブル

    グラフ作成時に軸の書式設定で最小値、最大値、基本単位、目盛間隔、補助目盛間隔を設定しますが、いつの間にか軸の書式設定ウィンドウから上記設定項目が無くなり代わって、数値軸との交点、目盛ラベルの間隔、目盛の間隔という内容に代わってしまって目盛の設定が出来ません。元に戻すにはどのようにしたら良いのでしょうか?

  • エクセルのマクロでアクティブシート内の選択した複数のグラフのみ軸の目盛を変更

    エクセルのマクロで教えてください。20個のグラフを一つのシートに作成しますが、この20個の散布図グラフの中から、クリックして選択したグラフだけ、y軸の目盛を自動スケールで最大値、最少値、目盛間隔の分割数は5個に自動にできないでしょうか? いくつか質問サイトを調べて、以下でアクティブシートのすべてのグラフ(20個)をセルに入力された値に一括で変更することはできるのですが、クリックして選択したグラフだけ、上記のようにできません。よろしくお願いします。 Sub 全部() Dim co As ChartObject For Each co In ActiveSheet.ChartObjects With co.Chart With .Axes(xlValue) .MinimumScale = Range("A1").Value '最小値 .MaximumScale = Range("A2").Value '最大値 .MajorUnit = Sheets("Sheet1").Range("A3") '目盛間隔 End With End With Next End Sub

  • エクセル2007グラフ作成で軸の目盛を編集したい

    こんばんわ。 お世話になります。 エクセル2007グラフ作成で軸の目盛を編集したいのですが、うまくいきません。 X軸に16から、70までの数字、Y軸には、5から20までの数字のグラフを作っています 目盛は、X軸は目盛の始点は、15から始まり70で終わる5刻みの目盛を書きたいのです。 Y軸は、軸のオプションで、最小値と最大値という項目があったのですが、Y軸には、軸の書式設定に同じ項目が無く、出来ません。 簡単なのかもしれませんが、自分の実力不足でうまく出来ません。 ご教示下さい。 よろしくお願いいたします。

  • グラフの目盛り線が一部印刷されない

    エクセル2000を使って横棒グラフを作成しています。 Y数値軸に、目盛線をつけたくて、 グラフオプションからY数値軸目盛線をチェックし、 画面上は思った通りに表示されています。 書式設定もして、直線ではなく破線にもしました。 しかし、それを実際に印刷してみると、 なぜか何本か目盛線が印刷されません。 10本中7本のみ印刷されます。 ちなみに、Y軸は、自動だと最大値が50ですが、 100にしたいので、手動で100に設定、 間隔は10です。 印刷されないのは80~100の3本です。 新規にグラフを作り直しても、 やはり、一部印刷されません…。 どうしたら良いのでしょうか。

  • Excel 総合グラフ第2縦軸の目盛設定

    Excel2007です。よろしくお願いいたします。 現在総合グラフの勉強中なのですが、第2縦軸の目盛設定について教えてください。 ただいま、画像のようなグラフを作成中です。 主軸は0点~100点の11段階。第2縦軸は上から1位~10位までのグラフです。 目盛を揃えるために、グラフの0地点はなにも表示しないような設定にしいたいのです。 現在の第2縦軸オプション 最小値      1 最大値      11 目盛間隔    自動 補助目盛間隔 自動 となっております。 軸オプションの最大値を11にすると、ぴたりとはまるのですが、 最大値を10にすると主軸目盛とズレてしまいます。 10位までの表示だけにしたいと、参考書片手に四苦八苦しておりますが、 どうしてもわかりませんでした。 どうかよろしくお願いいたします。

専門家に質問してみよう