人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

エクセル2003のVBA(マクロ)についての質問です。散布図のデータラベルのうちいくつかを消して、点(プロット)だけのをつくりたいのですが、マクロで、記録すると
ActiveSheet.ChartObjects("グラフ 10").Activate

ActiveChart.SeriesCollection(4).DataLabels.Select
ActiveChart.SeriesCollection(4).Points(1).DataLabel.Select
ActiveChart.ChartArea.Select

のようになり、データラベルを手作業で削除する部分がうまく記録されません。どうするのがいいのでしょうか? データラベルがあったりなかったりするので、このようなことをしています。

●質問者: isogaya
●カテゴリ:コンピュータ 科学・統計資料
✍キーワード:SELECT VBA エクセル グラフ データ
○ 状態 :終了
└ 回答数 : 3/3件

▽最新の回答へ

1 ● beatgoeson
●27ポイント

http://q.hatena.ne.jp/1185319104


データラベルの「すべて」ではなく、「いくつか」となると何かしら「いくつか」を認識する条件が必要ですが、「すべて」であれば以下のようなコードを書けば消せそうですが、いかがですか。

ActiveSheet.ChartObjects("グラフ 1").Activate

'系列数を取得

intCoCnt = ActiveChart.SeriesCollection.Count

For i = 1 To intCoCnt

'系列内の要素数を取得

intPoCnt = ActiveChart.SeriesCollection(i).Points.Count

For j = 1 To intPoCnt

'ラベルがあれば、

If ActiveChart.SeriesCollection(i).Points(j).HasDataLabel = True Then

'そのラベルを削除

ActiveChart.SeriesCollection(i).Points(j).DataLabel.Select

Selection.Delete

End If

Next j

Next i

◎質問者からの返答

すべてではないんです。


2 ● stingerwolf
●27ポイント

どのように手作業をされているのかにもよりますが、

該当グラフを選択して右クリック→「グラフのオプション」→「データラベル」タブ内で、

各チェックボタンをオフにすることでラベルの表示は一括して非表示になります。

(もしかしてラベル自体を選択して消去していませんか?)


VBAがあくまでも必要なら、


ActiveChart.ApplyDataLabels _

AutoText:=True, _

LegendKey:=True, _

HasLeaderLines:=True, _

ShowSeriesName:=True, _

ShowCategoryName:=True, _

ShowValue:=True, _

ShowPercentage:=True, _

ShowBubbleSize:=True

ActiveWindow.Visible = True


を提示のVBAに追加すると非表示になるかと思います。


http://www.excel7.com/personal/vba_shiryou1.htm

以上ご参考まで。

◎質問者からの返答

すべて消すわけではないです。別途指示したデータラベルを消したいのです。一括だったらやり方はわかっています。


3 ● stingerwolf
●26ポイント

では単純に提示のVBAに対して、セレクトした系列のポイント部分のテキストを消去できればいいということですね。


でしたら↓のようにしてみてください。


ActiveSheet.ChartObjects("グラフ 10").Activate

ActiveChart.SeriesCollection(4).DataLabels.Select

ActiveChart.SeriesCollection(4).Points(1).DataLabel.Select

ActiveChart.SeriesCollection(4).Points(1).DataLabel.Delete

ActiveChart.ChartArea.Select


http://www.moug.net/skillup/nksw/nksw06-01.htm

◎質問者からの返答

ありがとうございます。これでよさげですね。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ