単純なx y滑らかなグラフを作成する際のエラー

Question

データセットを時間とともに変更する動的なチャートを作成しようとしていますが、一定の限られた数のポイントを持つ単純なチャートを作成する最初のステップで立ち往生しています。

マイx値とY値は、私が実行しようとしていたコードは、私が使用しています同じワークシートにグラフを作成することで、行3,5

である：

サブUpdateChart（）

Dim ChtObj As ChartObject 

Set ChtObj = ActiveSheet.ChartObjects("Bending Moment along " & ActiveSheet.Name) 'Adjust chart name to your chart 

With ChtObj.Chart 
    .ChartType = x1XYScatterSmooth 
    .SetElement msoElementLegendNone 
    .Axes(xlValue).MinimumScale = 0 
    .Axes(xlValue).MaximumScale = 5 
    .SeriesCollection.NewSeries 
    .SeriesCollection(1).Name = "Bending moment" 
    .SeriesCollection(1).Values = Range("D3:H3") 
    .SeriesCollection(1).XValues = Range("D5:H5") 
End With 

End Subの

私は、エラーが実行時5無効なプロシージャ呼び出しまたは引数を取得していますか？これは次の行で発生します。ChtObj.Chart With

Answer 1

Withステートメントの最初の行に誤字があります。見えにくいが、l .ITの代わりに1があるが

.ChartType = xlXYScatterSmooth