VBA – 新图表不添加标题，图例或删除
我最近改变了一些我的代码，但是，我确保改变范围。 我遇到的问题是，我的图表被创build并放置在自己的表格中，即使我的代码表示为True ， .HasTitle = False 。 当我将鼠标hover在True上时，它表示True = True 。 我将提供我的代码和部分受影响区域和图表的屏幕截图。
Dim Histo As Chart, d As Worksheet Set d = Worksheets("Data") Application.Run "ATPVBAEN.XLAM!Histogram", d.Range("D2", d.Range("D2").End(xlDown)) _ , d.Range("G1"), d.Range("F2", d.Range("F2").End(xlDown)), False, False _ , False, False Set Histo = Charts.Add With Histo .SetSourceData Source:=d.Range("G2", d.Range("H2").End(xlDown)) .ChartType = xlColumnClustered .HasTitle = True .ChartTitle.Text = "Cancelation Distribution by Year" .Axes(xlCategory, xlPrimary).HasTitle = True .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Total Years of Contract" .Axes(xlValue, xlPrimary).HasTitle = True .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "# of Contracts Canceled" .Location Where:=xlLocationAsNewSheet, Name:="Graph" End With
提前致谢！
尝试把.Location Where:=xlLocationAsNewSheet, Name:="Graph"之前.HasTitle = True 。 我认为，在你的版本中，当你尝试给它一个标题时，excel仍然试图找出图表应该去的地方（所以图表不存在）。