• ベストアンサー

excel の　chart で軸の数値をクリアしてしまいました

excel の　chart で軸の数値をクリアしてしまいました 軸のところにマウスを持ってきても、軸の数値を再表示する方法がわかりません excel の　vba　で ActiveChart.Axes(xlCategory).Visible= True のような方法でも構いませんので 軸の数値を再表示する方法を教えてください

回答 全件
ベストアンサー
エクセルのバージョンが記載されいませんが、バージョンによってエクセルの…
Excel2007で確認 軸ラベル '第1軸Y数値軸 ActiveC…

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

  • ベストアンサー
  • MackyNo1
  • ベストアンサー率53% (1521/2850)
回答No.1

エクセルのバージョンが記載されいませんが、バージョンによってエクセルの操作法や機能が異なりますので、必ず記載するようにしましょう。 Excel２００３ならグラフエリアを右クリックし、「グラフオプション」の軸タブで「ｙ数値軸」のチェックを入れます。 2007なら「グラフツール」「レイアウト」「軸」「主縦軸」の中から「既定の軸を表示」してください。

neko-007
質問者

お礼

ありがとうございます 参考になりました

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

その他の回答 (1)

  • xls88
  • ベストアンサー率56% (669/1189)
回答No.2

Excel2007で確認 軸ラベル '第1軸Y数値軸 ActiveChart.Axes(xlValue).TickLabelPosition = xlNextToAxis '---下/左 ActiveChart.Axes(xlValue).TickLabelPosition = xlLow '---下端/左端 '第1軸X項目軸 ActiveChart.Axes(xlCategory).TickLabelPosition = xlNextToAxis '---下/左 ActiveChart.Axes(xlCategory).TickLabelPosition = xlLow '---下端/左端 上記で駄目なら 軸と軸ラベル '第1軸Y数値軸 ActiveChart.SetElement (msoElementPrimaryValueAxisShow) '第1軸X項目軸 ActiveChart.SetElement (msoElementPrimaryCategoryAxisShow)

neko-007
質問者

お礼

ありがとうございます テストしてみます

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. その他MS Office製品

関連するQ&A

  • エクセル グラフ データラベルにX軸の値を表示

    VBAでエクセルのグラフにX軸の値を表示させる方法を教えて下さい。 このように書いているのですが、Type:=xlCategoryでエラーとなってしまいます。 For i = 1 To ActiveChart.SeriesCollection(1).Points.Count ActiveChart.SeriesCollection(1).Points(i).HasDataLabel = True ActiveChart.SeriesCollection(1).ApplyDataLabels Type:=xlCategory Next i Y軸を表示させるxlValueではエラーとならず、Y軸の値が表示されました。 教えて下さい。 宜しくお願い致します。

  • Excel VBA で[軸のオプション]表示

    Excel2016にて、グラフの軸の最大値、最小値を頻繁に調整する必要があるため、［軸を選択して右クリック、軸の書式設定］で表示される軸の書式設定のパネル（右側に表示されるウィンドウ）をボタン一つで表示できるようにしたいのですが、うまくいきません。 オートマクロで作成すると、下記のような感じで一応は表示されるのですが… 例）　x軸の軸のオプション表示の場合 ActiveSheet.ChartObjects("選択したグラフ名").Activate ActiveChart.Axes(xlCategory).Select Application.CommandBars("Format Object").Visible = True この場合、問題が2つあり 1．Excelを起動した直後（軸の書式設定パネルを一度も表示していない）場合にはエラーが発生して表示できない。 2．パネルの項目が、塗りつぶしや、配置などになっていると、軸のオプションに切り替わらない。 という現象が起きてしまいます。一度手動で軸のオプションを表示した後は、有効になります。 これでは微妙に使えないので、ダイレクトに表示する方法が知りたいのですが、見つけることができませんでした。 どなたかわかる方がいらっしゃいましたらよろしくお願いします。 P.S 　VBAでダイヤログを作成して直接入力という方法もあるのかもしれませんが、スケールを部分的に拡大したりの調整なので、軸のオプションの方が使い勝手が良いように思います。 以上、よろしくお願いします。

  • AccessからEXCELのグラフの操作をしたい

    AccessからExcelのシートのデータを参照して EXCELのグラフを操作しています グラフのテキストに任意の文字を入れたいのですが msoTextOrientationHorizontal　で（定数が定義されていません） とコンパイルエラーになってしまいます これを回避する方法がありましたらご教授ください 初めてグラフを操作するので困っています 　　　　 　　　'// グラフのデータを設定 　 　ActiveChart.SetSourceData Source:=Sheets("DATA").Range("B1:B7,D1:D7") '//　グラフテキスト ActiveChart.ChartTitle.Text = "テスト" ' ///　X数値軸ラベル" ActiveChart.Axes(xlCategory).AxisTitle.Text = "X数値軸ラベル" '///　Y数値軸ラベル ActiveChart.Axes(xlValue).AxisTitle.Text = "Y数値軸ラベル" ' '//グラフ内にテキストボックスの埋め込み With ActiveChart With .Shapes.AddTextbox(msoTextOrientationHorizontal, 13, 10, 70, 50) .TextFrame.Characters.Text = "へのへのもへじ End With End With

  • Excelグラフでの軸の表示方式変更方法

    Excelにてグラフをマクロで作成しており、X軸のデータが、0.23025,0.350075,0.04439・・・とあるのですが、 表示上、このX軸のデータを少数点以下２桁までのデータで表示したく(0.25,0.35,0.45というように） マクロの記憶にて、表示形式を変更した操作を記憶させたのですが、記録させたマクロを実行させると 　"オブジェクトは、このプロパティまたはメソッドをサポートしていません。"でます。 ちなみに記録させたマクロは以下の通りで、 　　ActiveSheet.ChartObjects("グラフ 783").Activate ActiveChart.Axes(xlCategory).Select Selection.TickLabels.NumberFormatLocal = "0.00_ " 　TickLabels.NumberFormatLocalのところがサポートされていないと表示されます。 Excel97で行ってるのですが、他にマクロで表示形式を変更する方法はあるのでしょうか？

  • エクセルグラフの軸ラベルを一括変換出来なくて困っています。

    お世話になります。 初めて投稿いたします。 VBA初心者です。エクセルグラフの軸ラベルを一括変換したいのですが、分からなくて困っています。 過去ログ、個人HPなどを参考にして、一つのグラフを選択、下記マクロを実行すれば、一つのグラフのみなら軸ラベルを変更する事が出来たのですが、ワークシート内の複数の埋め込みグラフを一発でラベル変更する場合のマクロが作成できません。 当方会社員、データをまとめる為、今回100ヶほどのグラフを一括変換したいため、どうしてもマクロ処理したいと考えています。 For Each・・・Next でループさせたいのですが、何分初心者勉強中の為、エラー多発、何方かお分かりの方、お助け下さい。 Sub 軸ラベル一括変換() With ActiveChart With .Axes(xlCategory, xlPrimary) .HasTitle = True .AxisTitle.Text = "X" End With With .Axes(xlValue, xlPrimary) .HasTitle = True .AxisTitle.Text = "y" End With End With End Sub

  • Excel VBAについて質問します。

    Excel VBAについて質問します。 以下にX軸の日付範囲に、一日分の長さを取ってグラフを書かせる、プログラム文があります。 ============================ With ActiveChart.Axes(xlCategory) .MinimumScale = 40164.5 .MaximumScale = 40165.5 .MinorUnitIsAuto = True .MajorUnit = 0.0833333333 .Crosses = xlAutomatic .ReversePlotOrder = False .ScaleType = xlLinear .DisplayUnit = xlNone End With ============================ この中で、「.MinimumScale = 40164.5」と、「.MaximumScale = 40165.5」の部分の書き方について質問します。 グラフの日付範囲を指定するときに、「40164」や「40165」の様に書くと、一目で何月何日なのか分かりにくいので、 「2000年1月2日3時4分」や「2000/1/2 03:04」の様に表記できないでしょうか。 よろしくお願いします。

  • Excelで、VBAを用いてのグラフ作成。1日ごとの範囲でグラフシート

    Excelで、VBAを用いてのグラフ作成。1日ごとの範囲でグラフシートを作成。それぞれのグラフのX軸の範囲を、グラフタイトル名とグラフシート名に設定したい。（使用環境 : Excel 2004 Mac 日本語版） Excel VBAに関して質問します。グラフの元になる「表1」シートには、次のように1分間隔でデータが入力されています。 #######ここから####### 日時 系列A 系列B 2010/3/1 12:00 0 5 2010/3/1 12:01 1 2 2010/3/1 12:02 1 5 2010/3/1 12:03 5 5 （中略） 2010/3/31 11:57 2 1 2010/3/31 11:58 5 1 2010/3/31 11:59 3 1 2010/3/31 12:00 5 100 #######ここまで####### この表を、2010年3月1日から2010年3月31日までの、1日ごとのグラフにしようと思います。 私は初め、「日時」セルから、最後の「100」セルまでを選択し、グラフウィザードからグラフシートを作成しました。このグラフシートを、すべてのグラフシートの大本になるグラフシートとして、「おおもと」と名付けました。 そうして次のVBAプログラムを書きました。 #######ここから####### Option Explicit Sub Macro1() ' ' Macro1 Macro '3月1日分 Sheets("おおもと").Select Sheets("おおもと").Copy Before:=Sheets(1) ActiveChart.Axes(xlCategory).Select With ActiveChart.Axes(xlCategory) .MinimumScale = #2010/3/1 12:00# .MaximumScale = #2010/3/2 12:00# .MinorUnit = 0.0416666667 .MajorUnit = 0.125 End With ActiveChart.Deselect '3月2日分 Sheets("おおもと").Select Sheets("おおもと").Copy Before:=Sheets(1) ActiveChart.Axes(xlCategory).Select With ActiveChart.Axes(xlCategory) .MinimumScale = #2010/3/2 12:00# .MaximumScale = #2010/3/3 12:00# .MinorUnit = 0.0416666667 .MajorUnit = 0.125 End With ActiveChart.Deselect （中略） '3月30日分 Sheets("おおもと").Select Sheets("おおもと").Copy Before:=Sheets(1) ActiveChart.Axes(xlCategory).Select With ActiveChart.Axes(xlCategory) .MinimumScale = #2010/3/30 12:00# .MaximumScale = #2010/3/31 12:00# .MinorUnit = 0.0416666667 .MajorUnit = 0.125 End With ActiveChart.Deselect End Sub #######ここまで####### 上記のVBAプログラムを実行し、一応グラフは描けたのですが、作成したそれぞれのグラフシートのシート名とグラフタイトル名が、それぞれのグラフの日時の範囲を反映したものとなっておらず、一見してどの日時範囲をグラフ化したものか読み取れず、難儀しています。 そこで、3月1日分から3月30日分までのグラフシートとグラフタイトル名を、それぞれの日付の範囲に即した物（たとえば3月1日分のグラフシートは、グラフシート名が「3月1日」、グラフタイトル名が「3月1日」）になる、VBAの書き方を教えて貰えないでしょうか。 長々とした質問ですが、どうぞ、よろしくお願いします。

  • 軸をVBAで下端/左端にするには

    シートファイル内に存在する軸をすべて下端/左端に揃えたいのですがうまくいきません… 今までVBAには触ったこともない初心者ですので、ソースがわけわからなくなっているかもしれませんがご容赦ください。 よろしくお願いします。 Sub kari() Dim chtobj As Object For Each chtobj In ActiveSheet.ChartObjects 　　　With chtobj.Chart.Axes(xlValue, xlPrimary) .TickLabelPosition = xlNextToAxis 　End With 　　　With chtobj.Chart.Axes(xlCategory, xlPrimary) .TickLabelPosition = xlNextToAxis 　End With Next End Sub

  • エクセルグラフの数値軸について

    エクセルで縦棒と折れ線の複合グラフを作成しています。 縦棒グラフは、数値（主軸）で「件数」を表示させています。 折れ線グラフは、第２軸に「百万」を表示させています。 第２数値軸について分からない点があります。 百万単位で、(1)０～１０百万の範囲で折れ線グラフが３本と(2)５０百万～１００百万で折れ線グラフ２本を作成する必要があります。 第２数値軸を＜０～１００百万＞として表示させると、５本の折れ線の波が平坦になってしまいます。 （１）と（２）の計５本の折れ線グラフの毎月の経緯がハッキリ見えるようにしたいのですが、エクセルのグラフで、数値軸の設定は２本以上設定する事はできるのでしょうか。 おそらく出来ないと思っていますが、どうしてもと依頼があり、手書きで(2)の数値軸と折れ線グラフを追記するしか方法がないのかと困っているところです。

  • Excelでのグラフ作成用マクロについて。

    「新しいマクロを記録する」でグラフ作成用のマクロを作りました。 内容は、 １．sheet１のBC列を散布図でsheet2に出力。(4つほど別々のグラフを作成) ２．プロットエリアの拡大 ３．図の位置調整・図の大きさ調整。(4つが重ならないように) というものです。 一応出来たのですが、何故か選択列を変更して(マクロ内の列選択を変更)出力・プロットエリア拡大までは出来るのですが、３が出来ません。 それで、分からないなりにマクロ内を覗いてみたところ、図の位置を調整する際に、対象となる図が ActiveSheet.Shapes("グラフ 17").IncrementLeft -177.75 などと言うように、グラフ17を参照してしまっているためにうまく動かないのだと思いました。 （そもそも、名前なんて付けていないはず・・・と思って調べていたら、どうやら「グラフウインドウ」で見ることが出来る名前を参照しているようでした。） いっそのこと、グラフをクリック・ドラッグで移動させるのではなく、出力する際に整然と並ぶように設定したいです。どうすればよいでしょう？ 一応、作成したものを載せておきます。 ・１～２ Charts.Add ActiveChart.ChartType = xlXYScatter ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("B1:C32158"), _ PlotBy:=xlColumns ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet2" With ActiveChart .HasTitle = False .Axes(xlCategory, xlPrimary).HasTitle = True .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "mass" .Axes(xlValue, xlPrimary).HasTitle = True .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "counts" End With ActiveChart.HasLegend = False ActiveChart.PlotArea.Select With Selection.Interior .ColorIndex = 2 .Pattern = xlSolid End With Selection.Top = 1 Selection.Width = 323 Selection.Height = 180 Selection.Left = 15 Selection.Width = 334 Selection.Height = 194 ActiveChart.Axes(xlCategory).Select With ActiveChart.Axes(xlCategory) .MinimumScale = 0 .MaximumScale = 50 .MinorUnitIsAuto = True .MajorUnit = 5 .Crosses = xlAutomatic .ReversePlotOrder = False .ScaleType = xlLinear .DisplayUnit = xlNone End With End Sub ３． ActiveSheet.Shapes("グラフ 17").IncrementLeft -182.25 ActiveSheet.Shapes("グラフ 17").IncrementTop -105.75 End Sub

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する