一言で言うと、「データラベルとして、Yの値ではなくてXの値を表示させたい」と勝手に解釈しました。そんな設定があるかどうか存じませんので、VBAを書いてみました。当方の好みで、X,Yを表示させています。
グラフの中の何か適当な部分を選択しておいて実行するというコードにしてみました。外していたらすみません。
変なモノを選択して実行しても、エラーにならず、何もせずに戻る様にするためにムダに長いです。
Sub test()
Dim myObj As Object
Dim myChart As Chart
Dim mySeries As Series
Dim i As Long
Set myObj = Selection
Select Case TypeName(myObj)
Case "ChartObject"
Set myChart = myObj.Chart
'軸、軸目盛りからはParentでChartに辿り着けない様なので対症療法
Case "Axis", "Gridlines"
Exit Sub
Case Else
Do Until TypeName(myObj) = "Chart"
DoEvents: DoEvents: DoEvents
Set myObj = myObj.Parent
If TypeName(myObj) = "Application" Then Exit Sub
Loop
Set myChart = myObj
End Select
For Each mySeries In myChart.SeriesCollection
With mySeries
For i = 1 To .Points.Count
.Points(i).ApplyDataLabels
.Points(i).DataLabel.Text = .XValues(i) & "," & .Values(i)
'.Points(i).DataLabel.Text = .XValues(i) 'Xの値のみ
Set mySeries = Nothing
Next i
End With
Next mySeries
End Sub
お礼
この度は回答して頂き誠にありがとうございますm(_ _)m ヒントになりました!!エクセルの奥の深さを改めて知りました。 これからも宜しくお願いします。