Excel VBA グラフのタイトルにセルの値を表示する-Formula、FormulaR1C1

Excel VBAでグラフのタイトルの文字を直接入力するのではなく、セルの値をタイトルに表示する記録です。

グラフタイトルをセルの値で表示する場合は、「Formula」プロパティ、「FormulaR1C1」プロパティを使います。

< スポンサーリンク >

「Formula」「FormulaR1C1」プロパティ構文

A1形式の表記を使用してオブジェクトの数式を表す文字列型（String）の値を取得、または設定します。

R1C1形式の表記を使用してオブジェクトの数式を表す文字列型（String）の値を取得、または設定します。

グラフタイトルをセル参照に設定

アクティブシートの１つ目のグラフタイトルに「Sheet1」のA1を参照します。

※設定の場合、「Text」「Formula」「FormulaR1C1」どれを使っても同じ結果になります。

Sub test()
    ActiveSheet.ChartObjects(1).Chart.ChartTitle.Text = “=’Sheet1′!A1”
End Sub

Sub test()
    ActiveSheet.ChartObjects(1).Chart.ChartTitle.Formula = “=’Sheet1′!$A$1”
End Sub

Sub test()
    ActiveSheet.ChartObjects(1).Chart.ChartTitle.FormulaR1C1 = “=’Sheet1′!R1C1”
End Sub

タイトルの数式（セル参照）を取得

数式を取得したい場合は、、「Text」「Formula」「FormulaR1C1」によって結果が変わります。

Text＝値
Formula＝A1形式の数式
FormulaR1C1＝R1C1形式の数式

「Text」を使ってメッセージで表示します。

Sub test()
    MsgBox ActiveSheet.ChartObjects(1).Chart.ChartTitle.Text
End Sub

「Formula」を使ってメッセージで表示します。

Sub test()
    MsgBox ActiveSheet.ChartObjects(1).Chart.ChartTitle.Formula
End Sub

「FormulaR1C1」を使ってメッセージで表示します。

Sub test()
    MsgBox ActiveSheet.ChartObjects(1).Chart.ChartTitle.FormulaR1C1
End Sub