0

エクセル図形作成で参っています。
どこが誤まっているか、教えてください。 下記の月別売り上げ高をエクセルシートのカラムＡ１からＢ７に配置してあったときには、
グラフの軸の書式設定の最小値・最大値をＶＢＡからの指示が旨く行っていました。

都合で売り上げデータをカラム７と８に移動したところ、エラーが発生して原因が理解できません。
エラーの場所は

ChartObjects("グラフ １").Activate～～～～～～～ここで黄色の帯が出ます。

全文は以下の通りです。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 And Target.Row <= 7 Then

ChartObjects("グラフ １").Activate’～～～～～～ここでエラー発生

ActiveChart.Axes(xlValue).MinimumScale = Application.WorksheetFunction.RoundDown(Application.WorksheetFunction.Subtotal(5, Columns(3)), -2) - 0
ActiveChart.Axes(xlValue).MaximumScale = Application.WorksheetFunction.RoundUp(Application.WorksheetFunction.Subtotal(4, Columns(3)), -2) + 0

Target.Select
End If
End Sub


カラム３に売り上げの最大を１０００と０を記入してあります。

最大・最小
0
1000


カラムの７と８に記述

月 売り上げ
１月 300
２月 200
３月 100
４月 0
５月 0
６月 500

質問者が選んだベストソリューション

Yahoo!知恵袋 5532日前