EXCEL VBA　グラフの項目ラベルの追加

締切済

質問者：Not_Pro
質問日時：2011/07/11 18:44
回答数：1件

EXCEL2010でVBAを使用してグラフを作成しています。
グラフを作成するまではできたのですが、数値軸・項目軸のラベルが表示されません。
項目軸・数値軸ラベルには直接指定した文字を入力したいと思っています。
どのようなコードを使用するのかわかりません。
どなたかご教示お願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

最新から表示
回答順に表示

No.1

回答者： xls88
回答日時：2011/07/11 20:33

現状のコードを提示して相談された方が良いと思いますよ。

'数値軸ラベル
ActiveChart.SetElement (msoElementPrimaryValueAxisTitleVertical)
'直接入力
ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.TEXT = "ABC"
'セルデータ
ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.TEXT = Sheets("Sheet1").Range("C14").value
'セルリンク
ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.TEXT = "=Sheet1!" & Sheets("Sheet1").Range("C15").Address

'項目軸ラベル
ActiveChart.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
ActiveChart.Axes(xlCategory, xlPrimary).AxisTitle.TEXT = "ABC"
ActiveChart.Axes(xlCategory, xlPrimary).AxisTitle.TEXT = Sheets("Sheet1").Range("C14").value
ActiveChart.Axes(xlCategory, xlPrimary).AxisTitle.TEXT = "=Sheet1!" & Sheets("Sheet1").Range("C15").Address