Series.HasDataLabelsプロパティ・Point.HasDataLabelプロパティを使って、グラフのデータラベルを非表示にするExcel VBAのコードをご紹介しました。
非表示にするのではなく、データラベルを削除するという考え方でも、データラベルのない状態にすることができます。
DataLabels.Deleteメソッドや、
DataLabel.Deleteメソッドを使うと
データラベルを削除できます。
系列ごとにデータラベルを削除するサンプルマクロ
データラベルの表示されているグラフがアクティブな状態で以下のSubプロシージャを実行すると、系列ごとにデータラベルが削除できます。
Dim srs As Series
For Each srs In ActiveChart.SeriesCollection
srs.DataLabels.Delete
Next
End Sub
Seriesオブジェクトに用意されているDataLabelsメソッドを使ってDataLabelコレクションを取得して、
DataLabelsコレクションのDeleteメソッドで系列のデータラベルを削除しています。
系列要素ごとにデータラベルを削除するサンプルマクロ
以下の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