Excelシートにテーブルがあるかどうかを確認する方法

Question

Excelシートに既にチャートがあるかどうかを確認するには、VBAマクロを作成する必要があります。だから、もし存在するチャートがあればそれを削除しなければならず、そうでなければ新しいチャートを入れなければならない。

私は試してみましたが、 Worksheets("Sheet.Name").ChartObjects.Deleteを直接試しましたが、シート上にチャートが存在しない場合はエラーとなりました。

ThisWorkbook.Charts.Countでも試してみましたが、最初のシート自体に2つのチャートがあるにもかかわらず、ブックに0のチャートが常に表示されています。

助けてください。ありがとう:)

Answer 1

あなたのワークシート内のすべてのChartObjectsをループしてみてください（存在する場合）。

コード：

Option Explicit 

Sub CheckCharts() 

Dim ChtObj As ChartObject 

For Each ChtObj In Worksheets("Sheet1").ChartObjects '<-- modify "Sheet1" with your sheet's name 
    ChtObj.Delete 
Next ChtObj 

End Sub