VBA - 新しいチャートにタイトル、凡例、または削除を追加していません

Question

最近私のコードを少し変更しましたが、範囲を変更するようにしました。私が実行している問題は、私のコードがTrueといっても、.HasTitle = Falseと書かれています。私が真にぶつかると、それは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 

ありがとう！

Answer 1

.Location Where:=xlLocationAsNewSheet, Name:="Graph"を.HasTitle = Trueの前に入れてみてください。私は、あなたのバージョンでは、エクセルはまだチャートがどこに行かなければならないかを試していると思います。