Sub TEST4()
'タイトル
With ActiveSheet.ChartObjects(1).Chart.ChartTitle
.IncludeInLayout = True '重ねない
.Position = xlChartElementPositionAutomatic '中央に表示
End With
End Sub
グラフを用意しておきます。
では、VBAコードを実行してみます。
タイトルを、グラフに重ねないで中央に表示できました。
テキストの書式
タイトルの「テキストの書式」を設定してみます。
テキストの入力と、文字色、文字サイズを設定します。
使うVBAコードは、「.ChartTitle」です。
Sub TEST5()
'タイトル
With ActiveSheet.ChartObjects(1).Chart.ChartTitle
.Text = "売上一覧"
.Font.Color = RGB(255, 0, 0) '赤色
.Font.Size = 20 '文字サイズ
End With
End Sub
Sub TEST6()
'タイトルの背景
With ActiveSheet.ChartObjects(1).Chart.ChartTitle.Format.Fill
.Visible = msoTrue '塗りつぶしありにする
.ForeColor.RGB = RGB(255, 255, 0) '黄色
.Transparency = 0.5 '透過率
End With
End Sub
グラフを用意しておきます。
では、VBAコードを実行してみます。
背景色、透過率を設定できました。
背景色をなくす
タイトルの背景色を塗りつぶしなしにしてみます。
塗りつぶしなしにするには、「.Visible = msoFalse」を使います。
Sub TEST7()
'タイトルの背景
With ActiveSheet.ChartObjects(1).Chart.ChartTitle.Format.Fill
.Visible = msoFalse '塗りつぶしなし
End With
End Sub
Sub TEST8()
'タイトルの枠線
With ActiveSheet.ChartObjects(1).Chart.ChartTitle.Format.Line
.Visible = msoTrue '塗りつぶしありにする
.ForeColor.RGB = RGB(255, 0, 0) '赤色
.Transparency = 0.5 '透過率
.Weight = 3 '太さ
End With
End Sub
グラフを用意しておきます。
では、VBAコードを実行してみます。
タイトルの枠線の「色」、「透過率」、「線の太さ」を設定できました。
枠線を消す
枠線を消すしてみます。
枠線を消すには、「.Visible = msoFalse」とすれば、できます。
Sub TEST9()
'タイトルの枠線
With ActiveSheet.ChartObjects(1).Chart.ChartTitle.Format.Line
.Visible = msoFalse '塗りつぶしなし
End With
End Sub
グラフを用意しておきます。
では、VBAコードを実行してみます。
タイトルの枠線を消せました。
グラフの凡例を設定する
グラフの「凡例」を設定してみます。
凡例の表示と非表示
凡例の表示と非表示にする方法です。
「凡例」を表示
「凡例」を表示にしてみます。
凡例を表示するには、「.HasLegend = True」を使います。
Sub TEST10()
With ActiveSheet.ChartObjects(1).Chart
.HasLegend = True '凡例を表示
End With
End Sub
グラフを用意しておきます。
では、VBAコードを実行してみます。
「凡例」を表示にできました。
「凡例」を非表示
次は、「凡例」を非表示にしてみます。
「.HasLegend = False」でできます。
Sub TEST11()
With ActiveSheet.ChartObjects(1).Chart
.HasLegend = False '凡例を非表示
End With
End Sub
では、VBAコードを実行してみます。
「凡例」を非表示にできました。
位置
凡例の「位置」を設定してみます。
凡例のオブジェクトは、「.Legend」です。
グラフと重ねないで「下」に表示
グラフと重ねないで「下」に表示してみます。
重ねないで表示するには、「.IncludeInLayout = True」を使います。
位置は、「.Position」で設定します。
Sub TEST12()
'凡例
With ActiveSheet.ChartObjects(1).Chart.Legend
.IncludeInLayout = True 'グラフと重ねない
.Position = xlBottom '下に表示
End With
End Sub
グラフを用意しておきます。
では、VBAコードを実行してみます。
グラフと重ねないで「下」に表示できました。
位置の設定一覧は、次のようになります。
位置の設定一覧
'凡例
With ActiveSheet.ChartObjects(1).Chart.Legend
.Position = xlTop '上に表示
.Position = xlBottom '下に表示
.Position = xlRight '右に表示
.Position = xlLeft '左に表示
End With
という感じです。
グラフに重ねる
グラフに重ねる場合は、「.IncludeInLayout = False」とします。
Sub TEST13()
'凡例
With ActiveSheet.ChartObjects(1).Chart.Legend
.IncludeInLayout = False 'グラフと重ねる
End With
End Sub
Sub TEST14()
'凡例の背景
With ActiveSheet.ChartObjects(1).Chart.Legend.Format.Fill
.Visible = msoTrue '塗りつぶしあり
.ForeColor.RGB = RGB(255, 255, 0) '色
.Transparency = 0.5 '透過率
End With
End Sub
グラフを用意しておきます。
では、VBAコードを実行してみます。
背景色、透過率を設定できました。
背景色をなくす
背景色を塗りつぶしなしにするには、「.Visible = msoFalse」とします。
Sub TEST15()
'凡例の背景
With ActiveSheet.ChartObjects(1).Chart.Legend.Format.Fill
.Visible = msoFalse '塗りつぶしなし
End With
End Sub
Sub TEST16()
'凡例の枠線
With ActiveSheet.ChartObjects(1).Chart.Legend.Format.Line
.Visible = msoTrue '塗りつぶしあり
.ForeColor.RGB = RGB(255, 255, 0) '色
.Transparency = 0.5 '透過率
.Weight = 4 '太さ
End With
End Sub
グラフを用意しておきます。
では、VBAコードを実行してみます。
凡例の枠線について、色、透過率、線の太さを設定できました。
枠線を消す
凡例の枠線を消してみます。
「.Visible = msoFalse」で塗りつぶしなしにします。
Sub TEST17()
'凡例の枠線
With ActiveSheet.ChartObjects(1).Chart.Legend.Format.Line
.Visible = msoFalse '塗りつぶしなし
End With
End Sub