エクセルの散布図の点に名前を付けたいのですが

散布図のポイント一つ一つに名前を付けたいのですが
どのようにすればよいのでしょうか。
一つ一つに貼り付けるしかないのでしょうか。

No.3 ベストアンサー 回答者： imogasi 回答日時： 2002/12/05 15:22

#2のものです。

ご質問の件。
（１）エクセルのワークシート画面で
（２）ALTキーを左手で押しながらF11（ファンクションキー）を押す。－－－＞ＶＢＥの画面が出る。
（２）ALTキーを押しながら、I（挿入）をクリック
（３）ドロップダウンリストの中のM（標準モジュール）をクリック。
（４）出てきた画面（のＧｅｎｅｒａｌの下）に、上記をコピーして、貼り付ける。
（５）上記のプログラムの中ほどにマウスポイントを
おいて
（６）実行をクリックし、Sub・・実行をクリック（またははF5キーを押す）。結果がワークシートに出ます。

この回答へのお礼

お礼が送れて申し訳ありませんでした。
ご丁寧に教えていただきありがとうございました。

お礼日時：2003/02/21 11:33

No.2 回答者： imogasi 回答日時： 2002/12/03 15:03

＃１で答えは出ていますが、例で説明します。

（テスト・データ）A1:C11に
氏名英語国語
山田15
大田34
近藤23
北野38
大北59
木村24
小泉52
金山93
土井83
本田76
（操作）
B２:C11を範囲指定。
挿入－グラフ－散布図－次へ－（データ範囲）次へ
（データラベル）なし－次へ－（場所）完了
軸とプロット点だけの散布図が書かれる。
（VBAの実行）
データラベルを貼り付けるプログラム。
VBE画面・Module1に貼り付け、実行（F５キー）。
Sub test01()
d = Range("a1").CurrentRegion.Rows.Count
With ActiveChart.SeriesCollection(1)
.HasDataLabels = True
For i = 1 To d - 1
.DataLabels(i).Caption = Worksheets("Sheet1").Cells(i + 1, 1)
Next i
End With
End Sub

この回答へのお礼

例をあげての詳しいご説明ありがとうございます。
「VBE画面・Module1に貼り付ける」とありますが
どのようにすればいいのでしょうか。
教えていただけるとありがたいです。

お礼日時：2002/12/05 12:45

No.1 回答者： soumisaki 回答日時： 2002/12/03 14:11

コンニチハ。

系列の名前を付けたいんですよね？

（１）系列を1個1個追加していき、名前を付ける
グラフの元データ→系列を参照すると、通常はＸとＹの値しか入力されていないと
思います。「名前（Ｎ）」部分に任意のセル（系列の名前の部分）を選択(入力）すると名前が付きます。
それで、「系列の追加」→上記のような手順を繰り返す、、、でＯＫです。

（２）系列が多い場合は、マクロを組む必要があります。
標準モジュールに下記コードをコピペし、任意部分を変更して下さい。



Sub AddLabels()
With ActiveChart.SeriesCollection(1) '最初のシリーズに
.HasDataLabels = True 'ラベルを付けて
For j% = 1 To 3 'ラベルの個数は3個
.DataLabels(j%).Caption = Worksheets("Sheet1").Cells(1, j% + 1).Value
'ラベルの内容はCells(1, j% + 1)で決まります
'Worksheets("Sheet1")も適当に書き換えること
Next j%
End With
End Sub

この回答へのお礼

ありがとうございます。
あまり詳しくないので、標準モジュールにコードをコピーして
任意変更するにはどうしたらいいのか分かりません。
もしよろしければ教えていただけますでしょうか。

お礼日時：2002/12/05 12:42