グラフのタイトルを変更したいのだがグラフの指定方法が分からない

Question

お世話になっております。

件名の通りなのですが
グラフのタイトルを変更したい　と思っております。
それで以下のようなVBAにて

    oldKi ="34期"
　　newKi ="35期"
    Set wb = Workbooks.Open(fname)
    With Worksheets("利益")
        Worksheets("利益").Select     ' 「利益」のシートを選択
        Dim chart1 As Chart
 '       Set chart1 = Application.Charts("グラフ 24")
        Set chart1 = ActiveSheet.ChartObjects("グラフ 24")
        chart1.ChartTitle.Text = Replace(chart1.ChartTitle.Text, oldKi, newKi)

変更しようとしているのですが

上記
Set chart1 = ActiveSheet.ChartObjects("グラフ 24")
で

実行時エラー'13'
型が一致しません。

と表示されます。

Set chart1 = Application.Charts("グラフ 24")
とした場合は

実行時エラー'9'
インデックスが有効範囲にありません

と表示されてしまいます……

どのような語句でググれば解決しそうかご助力頂けないでしょうか？
初心者の質問大変申し訳ないのですが
何か情報をお持ちな方はコメント頂けますようお願い申し上げます。

Answer 1

Dim chartObj As ChartObject
Dim chart1 As Chart

Set chartObj = ActiveSheet.ChartObjects("グラフ 24")
Set chart1 = chartObj.Chart

Comments

[ma2hiro]

jinoji様
ありがとうございます。
ChartObjectとChartの2種類あると気づかせて頂けるぐらいで良かったのですが
ソースも付けて頂き感謝いたします。

ありがとうございました。