excel VBA 散布図 Xの値を表示させる

質問

タイトルの通り excelの散布図においてデータラベルを表示した際にXの値も表示させたいと考えております。

.ChartObjects(1).Chart.SeriesCollection(1).HasDataLabels = True

とするとデフォルトではYの値のみ表示されています。

Excel上でデータラベルの書式設定→ラベルオプション→Xの値(X)から表示させることは出来るのですが、これをVBAで指示したいと考えております。

自信が調べた限りではヒントとなるような情報が見当たらなかったため、ご存知の方がいらっしゃいましたらご回答をお願い致します。

回答No.1

kkkkkm · ベストアンサー

データラベルの書式設定→ラベルオプション→Xの値(X)で表示されるものでしたら

.SeriesCollection(i).DataLabels.ShowCategoryName = True

でいけそうな気がします。

お礼

期待通りの結果が得られました！
showXValue的なネーミングだと思って探していましたが、ExcelではX軸の事をCategoryと呼ぶのですね。

ありがとうございました

回答No.2

imogasi

意外に調べるのに、てこづる課題のようだ。
例データ　A1:C4
品物 個数 売上
A 80 320
B 40 420
C 90 210
標準モジュールに
Sub TEST1()
'散布図を作成
ActiveSheet.Shapes.AddChart2.Select 'グラフを挿入
ActiveChart.ChartType = xlXYScatter '散布図に変更
ActiveChart.SetSourceData Range("b2:c4") 'Range("A1").CurrentRegion '参照範囲を設定
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
.HasDataLabels = True
.DataLabels.Position = xlLabelPositionRight
.DataLabels.ShowValue = True
.DataLabels.ShowCategoryName = True
End With
End Sub
実行して
40,420
80,320
90,210
などの数字が、データラベルとして、表れるだろう。

お礼

丁寧な内容の回答ありがとうございました。
期待通りの結果が得られました！