HOME > 即効テクニック > Excel VBA > グラフ関連のテクニック > シートにある埋め込みグラフ名を全て取得する

即効テクニック

グラフ関連のテクニック

シートにある埋め込みグラフ名を全て取得する

(Excel 97)

アクティブになっているシートにある埋め込みグラフ名をChartObjectオブジェクトのNameプロパティで取得します。
Sub Sample()
    Dim strObjName() As String
    Dim intObj As Integer
    Dim i As Integer

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

    '配列strObjNameにオブジェクト名を代入
    For i = 1 To intObj
        strObjName(i) = ActiveSheet.ChartObjects(i).Name
    Next i

    '配列strObjNameに代入されたオブジェクト名を表示
    For i = 1 To intObj
        MsgBox strObjName(i)
    Next i

End Sub