[[20230307110851]]　『グラフのタイトルを取得』（dann）　ページの最後に飛ぶ

『グラフのタイトルを取得』（dann）

以下のコードでグラフのタイトルを取得しようと思いましたが

オブジェクトは、このプロパティまたはメソッドをサポートしていません。
とエラーが出ます。

strObjName(i) = ActiveSheet.ChartObjects(i).ChartTitle.txt

どう変更すれば良いですか　？

Sub t_name()

    Dim strObjName() As String
    Dim intObj As Integer
    Dim i As Integer

    'アクティブシートのChartObjects数をカウント
    intObj = ActiveSheet.ChartObjects.Count
    '配列を再宣言
    ReDim strObjName(1 to intObj)

    '配列strObjNameにタイトル名を代入
    For i = 1 To intObj
        strObjName(i) = ActiveSheet.ChartObjects(i).ChartTitle.txt
        Cells(i, 4) = strObjName(i)
    Next i

End Sub

＜使用 Excel：Excel2021、使用 OS：Windows11 ＞

 ActiveSheet.ChartObjects(i).Chart.ChartTitle.Text
 ですかね。

（白茶） 2023/03/07(火) 11:21:45

早速ありがとうございます。

ActiveSheet.ChartObjects(i).Chart.ChartTitle.Text
に変えてみましたが、同じエラーがでます。
（dann） 2023/03/07(火) 11:30:47

 え?　同じエラーですか。 んじゃ私はお手上げス ^^;

（白茶） 2023/03/07(火) 11:36:56

すいません。

コピペミスしていました。

解決しました。

（dann） 2023/03/07(火) 11:45:44

コメント返信：

[ 一覧(最新更新順) ]

[[20230307110851]] 『グラフのタイトルを取得』（dann） ページの最後に飛ぶ

[[20230307110851]]　『グラフのタイトルを取得』（dann）　ページの最後に飛ぶ