Excel

【Excel】VBAマクロでグラフのタイトル（変更：セル参照・変数：削除や非表示：フォントやサイズ・太字など）の設定方法【ChartTitle・Font・Delete】

 
当サイトでは記事内に広告を含みます

この記事ではVBAマクロでグラフのタイトル設定について解説していきます。

ポイントとしてはChartTitle、Font、Deleteを使用することです。

なお、下記の解説では完全な初心者でもわかりやすいようにあえて変数名（あなた自身が名付けていい場所）を少々変わった名称にしております。

そのため、あなた自身がご活用の際には、ここを適切な（英語表記でしっくりくるものが一般的）ものに変更してご活用くださいね。

それでは詳しく見ていきましょう！

 

VBAマクロでグラフのタイトルをセル参照に変更する方法【D2セルとする】

それではまず、VBAマクロでグラフのタイトルをセル参照に変更する方法について解説していきます。グラフのタイトルをD2セルの値に変更するVBAマクロは以下のとおりです。

Alt + F11にてVBE画面を開いて、以下コードをコピペしましょう。


Sub gurafutaitoruhenkou()
    
    'アクティブシートのグラフを変数gurafuに設定
    Dim gurafu As Chart
    Set gurafu = ActiveSheet.ChartObjects(1).Chart
    
    'D2セルの値をタイトルとして設定
    gurafu.ChartTitle.Text = Range("D2").Value

End Sub

コードのAlt+F8を押し、マクロ選択画面でgurafutaitoruhenkou関数を実行します。

 

このマクロでは、まず「gurafu」という変数にアクティブシートの1番目のグラフオブジェクトのChartを設定しています。

次に、「gurafu.ChartTitle.Text」プロパティにD2セルの値を設定することで、グラフのタイトルをD2セルの値に変更しています。

 

VBAマクロでグラフのタイトルのフォントやサイズ・太字・色設定などの変更方法

続いては、VBAマクロでグラフのタイトルのフォントやサイズ・太字設定などの変更方法について解説していきます。グラフのタイトルの書式設定を変更するVBAマクロは以下のとおりです。

Alt + F11にてVBE画面を開いて、以下コードをコピペしましょう。

  
Sub gurafutaitorushoshikisettei()

    'アクティブシートのグラフを変数gurafuに設定
    Dim gurafu As Chart
    Set gurafu = ActiveSheet.ChartObjects(1).Chart
    
    With gurafu.ChartTitle.Font
        'フォント名をメイリオに設定
        .Name = "メイリオ" 
        'フォントサイズを14に設定
        .Size = 14
        '太字に設定
        .Bold = True
        '斜体に設定  
        .Italic = True
        '下線を引く
        .Underline = xlUnderlineStyleSingle
        'フォントの色を青に設定
        .ColorIndex = 5 
    End With

End Sub

コードのAlt+F8を押し、マクロ選択画面でgurafutaitorushoshikisettei関数を実行します。

このマクロでは、 「gurafu.ChartTitle.Font」オブジェクトのプロパティを設定することで、グラフタイトルの書式を変更しています。

.Nameプロパティでフォント名を「メイリオ」に、.Sizeプロパティでフォントサイズを「14」に設定。

.Boldプロパティをtrueにして太字に、.ItalicプロパティをTrueにして斜体に、
.UnderlineプロパティをxlUnderlineStyleSingleにして下線を引き、.ColorIndexプロパティを5にしてフォントの色を青に設定しています。

 

VBAマクロでグラフのタイトルの削除や非表示方法

最後に、VBAマクロでグラフのタイトルの削除や非表示方法について解説していきます。グラフのタイトルを削除、非表示にするVBAマクロは以下のとおりです。

Alt + F11にてVBE画面を開いて、以下コードをコピペしましょう。


Sub gurafutaitorusakujo()

    'アクティブシートのグラフを変数gurafuに設定
    Dim gurafu As Chart
    Set gurafu = ActiveSheet.ChartObjects(1).Chart
    
    'タイトルを削除
    gurafu.ChartTitle.Delete
    
    '※非表示にする場合は以下を使用
    'gurafu.ChartTitle.Visible = False
      
End Sub

コードのAlt+F8を押し、マクロ選択画面でgurafutaitorusakujo関数を実行します。

このマクロでは、 「gurafu.ChartTitle.Delete」メソッドを実行することでグラフのタイトルを削除しています。

タイトルを非表示にしたい場合は、「gurafu.ChartTitle.Visible」プロパティをfalseに設定します。

 

まとめ　VBAでグラフのタイトルの変更や削除・非表示（フォントやサイズ・太字など）方法【ChartTitle・Font・Delete】

この記事では、VBAマクロでグラフのタイトル（変更：セル参照・変数：削除や非表示：フォントやサイズ・太字など）の設定方法【ChartTitle・Font・Delete】について確認しました。

マクロの扱いになれ、さらに快適な生活を送っていきましょう！

RELATED POST