凡例を表示する：HasLegend

グラフに凡例を表示するには、Chart.HasLegendプロパティを指定します。
ここではワークシート"sheet1"に、"fig01"というグラフがあるとします。
このChartObjectについて、Chart.HasLegendプロパティの値をTrueにすると、凡例が表示されます。逆にFalseにすると、凡例が消えます。

Sub test()   Dim ws As Worksheet                         'ワークシート型変数の定義   Dim fig As ChartObject                       'ChartObject型変数の定義   Set ws = Worksheets("sheet1")            'ワークシート名を指定   Set fig = ws.ChartObjects("fig01")      'グラフを指定   fig.Chart.HasLegend = True                 '凡例を表示   ' fig.Chart.HasLegend = False              '凡例を非表示 End Sub