風来の完全自動売買プログラム作成日記ブログ

んー、やっぱりダメでした。

Sub Backup_chart()の

ActiveSheet.ChartObjects("グラフ 2").Activate
With ActiveChart
.SeriesCollection(1).Values = "='Calculation'!R2C3:R3C3"
.SeriesCollection(2).Values = "='Calculation'!R2C3:R3C3"

の最後の部分で、必ずエラーが出てしまう・・・。

ココは何度やっても突破できないので、どこか根本的な間違いをしているのかも・・・。

まぁ完成品があるので、間違い探しはまたの機会にします。

(^_-)非常に疲れました・・・。