エクセルのグラフ作成において・・グラフの中の数字の代わりに

質問

エクセルのグラフ作成において・・グラフの中の数字の代わりに
漢字を表現させる方法はありませんか。
経年的な分析データグラフ化していますが、測定値の変わりにその時の
出来事も表現したいと考えています。

ＸＰＳＰ2　OFFICE2003を使用しています。

回答No.2

okormazd · ベストアンサー

「グラフの中に漢字は無茶」なこともないでしょう。ただ、個別に入力しなければならないということです。どこに入力するにしろ、1度は入力する必要があるので、同じことなのですが。セルのデータをグラフの中に表示させたいなら、個別にコピー/ペーストするとか。
「データ系列の書式設定」で「データラベル」のどれかを表示して、その中味を変更します。表示されたラベルをゆっくり2度クリックすれば変更状態になります。漢字も入ります。
なので、
セルに表示させたのを自動で反映させることはできません。

回答No.8

xls88

進んでいますか？
下記のようにしてみました。
系列1の全ての要素にデータラベルにセル参照式をセットします。
A1以下にコメントが記入されていると仮定しています。
データが入力されているセルに対応する要素のデータラベルが表示されます。

Sub test2()
Dim i As Integer

With ActiveChart.SeriesCollection(1)
For i = 1 To .Points.Count
.Points(i).HasDataLabel = True
.DataLabels.Position = xlLabelPositionAbove
.Points(i).DataLabel.Text = "=Sheet1!" & Cells(i, 1).Address
Next i
End With
End Sub

回答No.7

xls88

背景色を付けることも出来ます
.Points(3).DataLabel.Interior.ColorIndex = 6

疑問が御有りなら、遠慮なく捕捉質問をしてください。

回答No.6

xls88

マクロの例です。

Sub test1()
With ActiveChart.SeriesCollection(1)
.Points(3).HasDataLabel = True
'//文字を入力
.Points(3).DataLabel.Text = "あいうえお"
'//セル参照
'.Points(3).DataLabel.Text = "=Sheet1!E5"
End With
End Sub

お礼

御回答いただいた皆様へ
沢山の方からの親切な情報を有難うございいました。
少し諦めていましたが、出来るものですね。
お礼申し上げます。

回答No.5

xls88

グラフのデータラベルには、直接文字入力できます。
セルデータを参照表示することも出来ます。
その方法は
表示されているデータラベルをクリック（同系列の全データラベルが選択）
更に、目的のデータラベルをクリックすればそのデータラベルのみが選択状態になります。
この状態で、例えばセルA1を参照表示するなら
数式バーに
=A1
と参照式を入力し、Enterで確定
これでセルA1のデータ（変更にも追従）が表示されるようになります。
データラベルですから、グラフデータに応じて表示位置も変更されます。

数が多い場合は、マクロを組んで対応すればよいと思います。

回答No.4

te12889

#1です。

複合グラフにして、第2軸の項目名を出来事にするってのはどうでしょう？
（既出の回答とかぶったかな？）

回答No.3

noname#99913

分類名（項目名）のところに出来事を入力し、値の代わりに分類名を表示すればできます。

回答No.1

te12889

オートシェイプの吹き出しあたりを貼り付けて、セルの文字列を＝で引っ張ってくるってのはダメですかね・・・。

お礼

早速の回答を有難うございます。
データーの増加に伴い、標示場所が動くので何か方法がないかと思っていました。やはりグラフの中に漢字は無茶かもですね。