Excelでグラフを作成した後、
系列の名称を変更することはできますか?
ダブルクリックしてもフォントとかの変更しかできず、
結局作り直しています。

このQ&Aに関連する最新のQ&A

Excel 名前」に関するQ&A: excel 名前の抽出

A 回答 (2件)

こんにちは!



グラフ 余白上で右クリックして表示されるメニューの
「元データ」 系列タブ内で 系列を選択して 名前の欄
に書き込むか、記載されているセルを指定すればOKです。
    • good
    • 5
この回答へのお礼

回答ありがとうございます。

凡例のところを右クリックしたりダブルクリックしてました!
おかげさまで変更できました。
これで解析がスムーズに進みます。
ありがとうございました。

お礼日時:2002/02/05 10:24

グラフの元データとなっている範囲に系列名が含まれているはずですよね。


エクセルのシート上のこの系列名を変更すれば、自動的にグラフ上の
系列名は更新されます。

これで回答になりましたでしょうか?
補足等あればお気軽に。。。
    • good
    • 0
この回答へのお礼

回答ありがとうございます。

実はデータが実験結果で、
計測機器からのデータをそのまま次々と解析している最中でして、
シート上には系列名を入力していませんでした。

お礼日時:2002/02/05 10:22

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q地上波で、好きな・嫌いなテレビの系列はどこですか?

地上波テレビはNHKと民法があり、さらに民法はTBS系列・フジテレビ系列・日本テレビ系列・テレビ朝日系列・テレビ東京系列の5種類がありますね。(独立局もありますが、三大都市圏ぐらいですね。)
で、皆さんは今テレビの系列ではどこが一番好きで、どこが一番嫌いですか?意見をお待ちしています。
なお、民法の場合はお住まいの地域の放送局名をを出してもかまいませんが、その場合は系列も併記してください。

Aベストアンサー

好きなTV局は日本テレビ系列です。アナウンサーは知的ですし、番組もスポーツからニュース関連、バラエティと適度な割合でやっているからです。
逆に嫌いなTV局はフジテレビ系列です。アナウンサー、番組ともに程度が低すぎ。NewsJapan以外の番組は見ていません。

QEXCELVBAグラフ凡例表示部分の系列の名称非表

すいません。VBAの記述の方法がわからないのでお手数ですが教えてください
使用アプリ・使用OS:Excel2010 VBA Windows7

■教えてほしい内容
グラフを作成し、その後以下のVBAでグラフの系列を追加しています。

dk = ActiveChart.SeriesCollection.Count + 1
ActiveChart.SeriesCollection.NewSeries
'系列名の設定
ActiveChart.SeriesCollection(dk).Name = "cp-" & dk
'y軸の値設定
ActiveChart.SeriesCollection(dk).Values = "={" & aaa & "}"
'散布図設定
ActiveChart.SeriesCollection(dk).ChartType = xlXYScatter

その後、グラフの凡例部分でこの追加した系列cp-○の凡例内の系列を非表示にしたいのですがわかりません。
申し訳ありませんが教えてください。

Aベストアンサー

VBE のメニューのオブジェクトブラウザで、(LegendEntries
ではなく)LegendEntry
オブジェクトを見ると、そのメンバに Delete があります。

ちなみに Delete はできても Add はできないようです。LegendEntry を追加したくなったら、HasLegend プロパティを False や True に切り替えることにより、Legend
オブジェクト(凡例)全体を消したり出したりしてください。

あれこれ操作する場合は、参考 URL のように何かのオブジェクトを Set しておくと、コードの可読性が上がるでしょう。


With ActiveChart
  .HasLegend = True
  .Legend.LegendEntries(dk).Delete
End With

参考URL:http://www.officepro.jp/excelvba/chart_edit/index6.html

QNHKマイルC

レースとは直接関係ない質問ですがご容赦ください。

かつてのNHK杯から現在のGIに昇格した際、フジテレビではレース名に「NHK」を付けず、
「マイルC」と呼んでいたそうですが、これは本当の話でしょうか?
ということは、例えば「テレビ愛知OP」など系列以外の局がレース名に冠されている場合は、どのように呼んでいたのでしょうか。

Aベストアンサー

本当。
NHKマイルCになってからの4年間は「マイルC」と呼んでいたそうな。
また、NHK杯だった頃もフジはNHK杯とは呼ばずに「ダービートライアル」と呼んでいたとか。
その辺の詳細やいきさつがwikiで紹介されているのでご参照を。

テレビ愛知はテレ東系列なので、レースは土曜の中京メインのはず。翌日のフジでは番組内でのダイジェストで普通に「テレビ愛知OP」と言ってたね(自分の記憶が正しければ)。

QExcelのグラフでの系列の変更方法

質問が悪くてなかなか答えをいただけなさそうので再度記入します。Excel2000の件です。

2つのExcelのファイルをリンクして使っており、1つめのファイルのある列のデータを元に2つめのファイルにグラフを書いています。
このグラフを2つめのファイルの1シートに1グラフコピーして1列づつデータの参照範囲変えてグラフの内容を変えたいのです。
グラフの書式などはそのままコピーされるのでデータの参照範囲のみを変えたいのですが、その参照範囲を簡単に一列づつ変えて行く方法はないでしょうか。
すごく大きいファイルなのでマウスで範囲を選びなおすのが大変なのです。

関数の式のコピーなどだと置換機能が使えてデータ範囲の変更が簡単なのに、グラフではデータの上で右クリックしてでる「=SERIES([第6章.xls]Sheet1・など」の式を選んでも置換の機能が使えません。
VBAなどを使わずにできる方法をご存知でしたら教えてください。

Aベストアンサー

元データ を変更してはいかがですか?

グラフをクリックしてハンドルを表示した状態で、メニューバーから「グラフ」「元データ」で参照データのセル番地が表示されます。
2000でもあったように記憶していますが、、、

QANN系列はなぜ胴体着陸の中継が出来なかったのか?

タイトルの通り、昼のANNニュースでも同型の機体の資料映像しか放送していないし、胴体着陸の瞬間でも電話で取材していたし、着陸の映像すらなかったANNはどうなっているんだと、疑問に思います。
NHKを始め、JNN(TBS系列)、FNN(フジ系列)、NNN(日テレ系列)は中継していたのに(テレビ東京は例外)、なぜ中継(現地取材)が出来なかったのか?しかも11:55になって「現地の映像が入ってきました」って言っている時点で、報道にやる気があるのか?と疑問に思っていました。

Aベストアンサー

事件が起きた県域にネット局がないと、近県のネット局から移動しないとだめなため、どうしても時間がかかります。
そのためだと思いますよ。

Qエクセルのグラフのデータ系列の順序をVBAで変更する

下記の変更をVBAで行いたいのですがわかりません。
系列は2つです。

データ系列の中のどれかひとつをダブルクリックします。
あるいは、右クリック-[データ系列の書式設定(O)...]や、データ系列を選択して[書式(O)]-[選択したデータ系列(E)...]や、データ系列を選択して[Ctrl] + [1]キー でも構いません。[データ系列の書式設定]ダイアログボックスを表示させます。

[系列の順序]タブを選択します。

順序を変更したいデータ系列を、[系列の順序(S)]から選択、[上へ移動(U)]や[下へ移動(D)]ボタンで順序を変更してください。

以上、よろしくお願いします。

Aベストアンサー

こんにちは

たぶん、対話型で、以下のようなものになるように思います。
ただし、散布図はこの範疇ではありません。

'//
Sub ChartSeriesMoving()
 Dim objChrt As ChartObject
 Dim chSries As FullSeriesCollection
 Dim nums As Integer
 Dim i, j, nm As String
 
 Set objChrt = ActiveSheet.ChartObjects(1)
 Set chSries = objChrt.Chart.FullSeriesCollection
 nums = chSries.Count
START:
 i = Application.InputBox("系列の順番の数字を入れてください。(左/上から" & nums & "までです.)")
 If VarType(i) = vbBoolean Then Exit Sub
  If Val(nums) < i Then MsgBox "数字が系列の数より多いです。", vbExclamation: Exit Sub
  nm = chSries(i).Name
  chSries(i).Select
  j = Application.InputBox(nm & "を何番目に写しますか?左/上から(左/上から" & nums & "までです.)")
  If VarType(j) = vbBoolean Then Exit Sub
  chSries(i).PlotOrder = j
  Application.ScreenUpdating = True
  Application.Wait Now + TimeSerial(0, 0, 3)
  If MsgBox("続けますか(Y), 終了しますか(N)", vbYesNo) = vbYes Then
  GoTo START
  End If
End Sub

なお、私は、リクエストされたご要望の回答者層には含まれていません。

こんにちは

たぶん、対話型で、以下のようなものになるように思います。
ただし、散布図はこの範疇ではありません。

'//
Sub ChartSeriesMoving()
 Dim objChrt As ChartObject
 Dim chSries As FullSeriesCollection
 Dim nums As Integer
 Dim i, j, nm As String
 
 Set objChrt = ActiveSheet.ChartObjects(1)
 Set chSries = objChrt.Chart.FullSeriesCollection
 nums = chSries.Count
START:
 i = Application.InputBox("系列の順番の数字を入れてください。(左/上から" & nums & "までです.)")...続きを読む

QNHKのノイズがひどい

波状、粒状、いろんなノイズがひどいんです。
私は中部地方ですが、いわゆるTBS系列も同じくひどい画質です。
他のいわゆるキー局はきれいです。
どこの家でも使っている普通のアンテナを使っています。
ただ家の屋根の上ではないところで、高さが足りないのかな?と思ったのですが、
NHK意外はきれいだからそれは関係ないでしょうか。
アンテナのところの配線を確認してみましたが、大丈夫でした。
一体何が原因でしょうか?
そういえばアンテナの下の方のアンテナが一本折れかかっています。
あれが原因でしょうか?(アンテナって上と下に二つ違うのがついていますよね?)
一度でいいので綺麗なNHKを見てみたいものです・・・

Aベストアンサー

受信ノイズがおおきいのは受信電波が弱いことを先ず疑う必要があります。
この場合はアンテナブースターを取り付ければ大抵軽減されます。

また視聴する受像器(テレビ)が複数の場合は分岐の配線に問題がある可能性もあります。
この場合もアンテナブースターをテレビ毎につけるとよいでしょう。

それらがお済みでしたら、素子数の多いアンテナを出来るだけ高く建てる必要があります。

Qマクロで折れ線グラフの系列変更の際、EXCEL2003だと実行時エラーになります。

仕事でEXCELマクロを作成しているのですが、
折れ線グラフの系列(X軸/Y軸)の値等を変更しようとすると、
「実行時エラー'1004': SeriesクラスのXvaluesプロパティを設定できません。」
とのエラーになります。
ただし、EXCEL2007ではエラーにならずに正しくグラフが作れます。

ソースは業務上全てのせるわけにはいかないのと、
長文過ぎるため関係のありそうな部分のみ抜き出しています。
原因として考えられるものを挙げていただけると助かります。

<Version>
 エラー発生>
  ・EXCEL2003 VBA Ver6.0
  ・EXCEL2003 VBA Ver6.5 
 正常動作>
  ・EXCEL2007 VBA Ver6.5

<ソース> ※かなり省略
Dim NewBook As Workbook, DataBook As Workbook
Dim GraphSheet As Worksheet, MaxSheet As Worksheet
Dim ChartNumber(8) As Variant, MaxChartNumber(8) As Variant 'グラフの名前
~~~略~~~
Set NewBook = Workbooks.Add
Set GraphSheet = NewBook.Worksheets(1) 'データを入れるシート定義
Set MaxSheet = Worksheets.Add() '最大値を入れるシートを追加し、定義
GraphSheet.Name = "測定データ"
MaxSheet.Name = "最大値"
~~~略~~~
For m=1 to 8
MaxSheet.Activate
MaxSheet.ChartObjects.Add(54 + (m - 1) * 270, 54, 270, 203).Select '新規グラフ
ActiveChart.ChartType = xlLine 'グラフ種類を折れ線に指定
ActiveChart.Location Where:=xlLocationAsObject, Name:="最大値" 'グラフをオブジェクトとして、sheet1におく。
ActiveChart.SetSourceData Source:=Range("C24:C25"), PlotBy:=xlColumns 'データの範囲(適当)と方向
Set MaxChartNumber(m) = ActiveChart
~~~略~~~
Next
~~~略~~~
'最大値グラフの範囲設定
MaxSheet.Activate
With MaxChartNumber(p).SeriesCollection(1)
    '****エラーになる部分は↓の2行。
    '****エラー時、p=l=1、MStartRow=24、MstartCol=3
.XValues = Range(Cells(MStartRow, MStartCol - 1), Cells(MStartRow + l - 2, MStartCol - 1))
.Values = Range(Cells(MStartRow, MStartCol + p - 1), Cells(MStartRow + l - 2, MStartCol + p - 1))
End With
~~~略~~~
End sub

仕事でEXCELマクロを作成しているのですが、
折れ線グラフの系列(X軸/Y軸)の値等を変更しようとすると、
「実行時エラー'1004': SeriesクラスのXvaluesプロパティを設定できません。」
とのエラーになります。
ただし、EXCEL2007ではエラーにならずに正しくグラフが作れます。

ソースは業務上全てのせるわけにはいかないのと、
長文過ぎるため関係のありそうな部分のみ抜き出しています。
原因として考えられるものを挙げていただけると助かります。

<Version>
 エラー発生>
  ・EXCEL2003...続きを読む

Aベストアンサー

折れ線グラフで系列の値を設定し直す時、値がemptyだと実行時エラーになります。
回避方法として、グラフ種別を一旦棒グラフにして設定すると良いそうです。

最低限の修正なら
>ActiveChart.ChartType = xlLine 'グラフ種類を折れ線に指定
ここを
ActiveChart.ChartType = xlColumnClustered
に変更し、最後に
For m = 1 To 8
  MaxChartNumber(m).ChartType = xlLine
Next
を追加する感じです。

とりあえず開示情報だけで動くようにしたコードを載せると以下。
Dim NewBook  As Workbook
Dim DataBook  As Workbook
Dim GraphSheet As Worksheet
Dim MaxSheet  As Worksheet
Dim MStartRow As Long
Dim MStartCol As Long
Dim m     As Long
Dim p     As Long
Dim l     As Long
Dim ChartNumber(1 To 8)  As Variant
Dim MaxChartNumber(1 To 8) As Chart

Set NewBook = Workbooks.Add
'データを入れるシート定義
Set GraphSheet = NewBook.Worksheets(1)
'最大値を入れるシートを追加し、定義
Set MaxSheet = NewBook.Worksheets.Add()
GraphSheet.Name = "測定データ"

With MaxSheet
  .Name = "最大値"
  For m = 1 To 8
    Set MaxChartNumber(m) _
      = .ChartObjects.Add(54 + (m - 1) * 270, 54, 270, 203).Chart
    MaxChartNumber(m).ChartType = xlColumnClustered '■
    'データの範囲(適当)と方向
    MaxChartNumber(m).SetSourceData Source:=.Range("C24:C25"), _
                    PlotBy:=xlColumns
  Next

  p = 1
  l = 1
  MStartRow = 24
  MStartCol = 3
  '最大値グラフの範囲設定
  MaxChartNumber(p).SeriesCollection(1).XValues _
    = .Range(.Cells(MStartRow, MStartCol - 1), _
         .Cells(MStartRow + l - 2, MStartCol - 1))
  MaxChartNumber(p).SeriesCollection(1).Values _
    = .Range(.Cells(MStartRow, MStartCol + p - 1), _
         .Cells(MStartRow + l - 2, MStartCol + p - 1))
End With

For m = 1 To 8
  MaxChartNumber(m).ChartType = xlLine '■
Next

Erase MaxChartNumber
Set MaxSheet = Nothing
Set GraphSheet = Nothing
Set NewBook = Nothing

折れ線グラフで系列の値を設定し直す時、値がemptyだと実行時エラーになります。
回避方法として、グラフ種別を一旦棒グラフにして設定すると良いそうです。

最低限の修正なら
>ActiveChart.ChartType = xlLine 'グラフ種類を折れ線に指定
ここを
ActiveChart.ChartType = xlColumnClustered
に変更し、最後に
For m = 1 To 8
  MaxChartNumber(m).ChartType = xlLine
Next
を追加する感じです。

とりあえず開示情報だけで動くようにしたコードを載せると以下。
Dim NewBook  As Workbook
Di...続きを読む

QNHKのドラマは実名はダメなの?

今日からテレ朝系列で「菊次郎とさき」がはじまりますね。
これを観るとNHKでもう20年近く前に放送されていた
「たけしくん、ハイ!」を思い出すんですが
あのドラマではなぜか、たけしの苗字が「西野」に。
おかあさんも、さき→真理子
お父さんも、菊次郎→竹次郎 となっていたと思うんですが、
今期のテレ朝ドラマでは、家族全員実名です。

そういえばこのドラマだけでなく、民放でドキュメンタリードラマを放送するときは本名のままで、NHKだとなぜか少し改名されてしまう気がします・・・
朝の連ドラ「あぐり」も、本当は「吉行あぐり」なのに
「望月あぐり」になっていましたし。

これは何か理由があるのでしょうか?(放送法?)
ご存知の方よろしくお願いします。

Aベストアンサー

考えられるとしたら 誰かの宣伝になってはいけない
公共放送だからでしょう。
紅白で 山口百恵さんの歌で 真っ赤なポルシェ を
真っ赤な車 に 松本伊代の 「伊代はまだ16だから」を
「わたしまだ」に変えたように。
ドキュメンタリーなら本名を出してもかまわないのですが
ドラマでありそこには脚色もありますから
別に名前が違っていても その人ということはバレバレ
なのですから それでも一応名前を変えるというのは
宣伝になるからということでしょうね

QExcelグラフで線の色はそのままで系列順序を変更

Excelのグラフで、各系列の色・線種などは自動で割り振っていますが、現在の各系列と色等の対応関係はそのままにし、系列の順序のみを変更することはできますか。
目的は、
1 系列名称と色等の対応関係は、複数のグラフで同一にしたい。
2 凡例での系列の並びを、グラフによって変更したい(右端区間でもっとも値の大きいのを最上に)
です。
例をあげれば、PC、テレビ、クーラーの3系列の、価格を縦軸に、年代(1990,1995,2000年)を横軸に表したグラフがアメリカ、中国、日本の3個あるとして、車は赤、テレビは青、PCは黄色と色を統一し、かつ、グラフによって凡例での表示順を(そのグラフでの2000年の価格の高い順に)変えたいのです。
実際には系列数・グラフ数が多く手作業では大変です。VBAなどを使って最初から簡単に実現する方法があれば、その方がありがたいのですが。

Aベストアンサー

Excelグラフで線の色はそのままで系列順序を変更
 →系列名称に応じて色・マーカー種をシート内の全グラフ間で統一

というVBAコードを作成してみました。ご参考まで。
もっと色々設定したければ、ご自分で研究して下さい。
Sub test()
Dim myGraphObj As ChartObject
Dim sh As Worksheet
Dim mySeries As Series
Dim myColor As Long

Set sh = Sheets(1)
For Each myGraphObj In sh.ChartObjects
For Each mySeries In myGraphObj.Chart.SeriesCollection
With mySeries
Select Case .Name
Case "A"
myColor = RGB(255, 0, 0)
.MarkerStyle = xlMarkerStyleSquare
Case "B"
myColor = RGB(0, 0, 255)
.MarkerStyle = xlMarkerStyleCircle
Case "C"
myColor = RGB(0, 255, 0)
.MarkerStyle = xlMarkerStyleDiamond
End Select
.MarkerSize = 10
.MarkerForegroundColor = myColor
.MarkerBackgroundColor = myColor
.Format.Line.ForeColor.RGB = myColor
End With
Next mySeries
Next myGraphObj
End Sub

Excelグラフで線の色はそのままで系列順序を変更
 →系列名称に応じて色・マーカー種をシート内の全グラフ間で統一

というVBAコードを作成してみました。ご参考まで。
もっと色々設定したければ、ご自分で研究して下さい。
Sub test()
Dim myGraphObj As ChartObject
Dim sh As Worksheet
Dim mySeries As Series
Dim myColor As Long

Set sh = Sheets(1)
For Each myGraphObj In sh.ChartObjects
For Each mySeries In myGraphObj.Chart.SeriesCollection
With mySeries
...続きを読む


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報