Home » エクセルマクロ・Excel VBAの使い方 » グラフ・Chart » データテーブルを非表示にするExcelマクロ

データテーブルを非表示にするExcelマクロ

対象:Excel2007, Excel2010, Excel2013, Windows版Excel2016

データテーブルを非表示にするExcelマクロ

このサイト・インストラクターのネタ帳のアクセスログを眺めていて、
「excel 2010 vba 棒グラフ データテーブルを表示しない」
という検索キーワードに気づきました。

[スポンサードリンク]

グラフシートのデータテーブルを非表示にするサンプルマクロ

以下のSubプロシージャで、アクティブなブックの、全てのグラフシートの、データテーブルを非表示にできます。


Sub データテーブルを非表示にする_グラフシート()
 Dim cht As Chart
 For Each cht In Charts
  cht.HasDataTable = False
 Next cht
End Sub

ChartオブジェクトのHasDataTableプロパティで、

データテーブルを非表示にするExcelマクロ

データテーブルの表示・非表示を切り替えられます。

棒グラフのデータテーブルを非表示にするサンプルマクロ

「excel 2010 vba 棒グラフ データテーブルを表示しない」
と検索なさった方が、棒グラフのデータテーブルを非表示にしたかったのであれば、以下のように条件分岐を入れればOKです。


Sub データテーブルを非表示にする_棒グラフシート()
 Dim cht As Chart
 For Each cht In Charts
  If cht.ChartType = xlColumnClustered Then
   cht.HasDataTable = False
  End If
 Next cht
End Sub

ChartオブジェクトのChartTypeプロパティを取得して、グラフの種別を判定する処理
  If cht.ChartType = xlColumnClustered Then
を、追加しています。

埋め込みグラフのデータテーブルを非表示にするサンプルマクロ

以下のSubプロシージャで、アクティブなシート上の、全ての埋め込みグラフの、データテーブルを非表示にできます。


Sub データテーブルを非表示にする_埋め込みグラフ()
 Dim sh As Worksheet
 Set sh = ActiveSheet

 Dim cho As ChartObject
 For Each cho In sh.ChartObjects
  cho.Chart.HasDataTable = False
 Next cho
End Sub

考え方はグラフシートと同じですが、埋め込みグラフなので、オブジェクト構造が異なります。

[スポンサードリンク]

Home » エクセルマクロ・Excel VBAの使い方 » グラフ・Chart » データテーブルを非表示にするExcelマクロ

TrackBack:0

TrackBack URL

Home » エクセルマクロ・Excel VBAの使い方 » グラフ・Chart » データテーブルを非表示にするExcelマクロ

「グラフ・Chart」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.