動作検証バージョン：64bit Windows 10 Pro + 32bit Excel（バージョン2201 ビルド14827.20198 Microsoft Store）
Series.HasDataLabelsプロパティ・Point.HasDataLabelプロパティを使って、グラフのデータラベルを非表示にするExcel VBAのコードをご紹介しました。
非表示にするのではなく、データラベルを削除するという考え方でも、データラベルのない状態にすることができます。
DataLabels.Deleteメソッドや、
DataLabel.Deleteメソッドを使うと
データラベルを削除できます。
系列ごとにデータラベルを削除するサンプルマクロ
データラベルの表示されているグラフがアクティブな状態で以下のSubプロシージャを実行すると、系列ごとにデータラベルが削除できます。
Sub 系列ごとにデータラベルを削除する()
Dim srs As Series
For Each srs In ActiveChart.SeriesCollection
srs.DataLabels.Delete
Next
End Sub
Dim srs As Series
For Each srs In ActiveChart.SeriesCollection
srs.DataLabels.Delete
Next
End Sub
Seriesオブジェクトに用意されているDataLabelsメソッドを使ってDataLabelコレクションを取得して、
DataLabelsコレクションのDeleteメソッドで系列のデータラベルを削除しています。
系列要素ごとにデータラベルを削除するサンプルマクロ
以下のSubプロシージャで、系列要素単位でデータラベルを削除できます。
Sub 系列要素ごとにデータラベルを削除する()
Dim srs As Series, pnt As Point
For Each srs In ActiveChart.SeriesCollection
For Each pnt In srs.Points
pnt.DataLabel.Delete
Next pnt
Next srs
End Sub
Dim srs As Series, pnt As Point
For Each srs In ActiveChart.SeriesCollection
For Each pnt In srs.Points
pnt.DataLabel.Delete
Next pnt
Next srs
End Sub
Pointオブジェクトに用意されているDataLabelプロパティでDataLabelオブジェクトを取得して、
DataLabelオブジェクトのDeleteメソッドで系列要素のデータラベルを削除しています。
最終更新日時：2022-07-13 14:20
［スポンサードリンク］
- Newer：Word VBAでCellオブジェクトのParentは？
- Older：HorizontalAlignment・VerticalAlignmentプロパティを持つExcelのオブジェクト一覧
Home » エクセルマクロ・Excel VBAの使い方 » グラフ・Chart » VBAでデータラベルを削除する－DataLabels.Delete・DataLabel.Delete
