Excel VBA 宏显示/隐藏图表标题

Question

尝试隐藏图表标题：

With objChart.Chart
        .ChartArea.AutoScaleFont = False '1
        .ChartType = xlColumnClustered '2
        .SetSourceData Source:=myDataRange '3
        .HasLegend = False '4
        .HasTitle = False '5
        '.SetElement (msoElementChartTitleNone) '6

都尝试了（第 5 行和第 6 行），但都不起作用。 第 6 行来自录制的宏。 还有其他方法可以做到这一点吗？ （

.HasLegend

按预期工作）

Answer 1

这对我来说效果很好：

Dim cht As Chart
Set cht = ActiveSheet.ChartObjects(1).Chart 'for example
    
'adds title
cht.HasTitle = True
cht.chartTitle.Text = "TitleHere"
    
'removes title
cht.HasTitle = False