このサイトの記事内では「アフィリエイト広告」などの広告を掲載している場合があります。
消費者庁が問題としている「誇大な宣伝や表現」とならないよう配慮しコンテンツを制作しておりますのでご安心ください。
問題のある表現が見つかりましたらお問い合わせよりご一報いただけますと幸いです。

【VBA】グラフ(Chart)を削除する方法

今回はVBAを用いてグラフを削除する2つの方法を紹介します。

シート上のすべてのグラフを削除してしまうコードと、特定のグラフだけを削除するコードをお見せいたします。

エンジニア転職(PR)
20代まで! ウズカレITは未経験者を募集しています。

すべてのグラフを削除する方法

Sub ErazeAllGraph()
    '''アクティブシート上のすべてのグラフを削除
    
    ActiveSheet.ChartObjects.Delete
End Sub

シート上のすべてのグラフを削除してしまいたい場合は、この1行だけでOKです。

ChartObjects.Deleteとすることでシート上のすべてのグラフを削除しています。

特定のグラフを削除する方法

Sub ErazeOneGraph()
    '''タイトルが「削除対象」のグラフを削除
    
    Dim oneChart As ChartObject
    
    For Each oneChart In ActiveSheet.ChartObjects
        If oneChart.Chart.ChartTitle.Text = "削除対象" Then
            oneChart.Delete
        End If
    Next
End Sub
特定のグラフ(Chart)を削除する方法

特定のグラフを削除したい場合はこのようなコードを書きます。

このコードを実行すると、タイトルが「削除対象」のグラフをすべて削除していきます。

    For Each oneChart In ActiveSheet.ChartObjects

この部分でシート上のグラフオブジェクトを1つずつ取り出しています。

        If oneChart.Chart.ChartTitle.Text = "削除対象" Then
            oneChart.Delete
        End If

この部分でグラフオブジェクトのタイトルが「削除対象」であるかを判定して、タイトルが一致する場合にはグラフオブジェクトを削除しています。

VBAが難しいと感じたら
プロにお任せして代わりに作ってもらってはいかがでしょう?
VBAの作成依頼はこちらから

《VBA中級者向けの本》
VBA上級者を目指したい人にはパーフェクトExcel VBA一択です。

created by Rinker
技術評論社
¥3,608 (2023/09/30 14:07:44時点 Amazon調べ-詳細)

他の「VBA」の記事はこちらからどうぞ

VBA

Posted by やろまい