Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


24727 / 76732 ←次へ | 前へ→

【57352】円グラフのデータラベルが0%だった場合にラベルと凡例を削除したい
質問  ドラキー  - 08/8/12(火) 17:31 -

引用なし
パスワード
   はじめまして!よろしくお願い致します。
(※当方Excel 2003ユーザーです。)

円グラフを作成したとき、
値がゼロまたは空欄の場合は円グラフのデータラベルに"0%"が表示されてしまいますが、これを自動的に0%という値と、0%だった項目(凡例内)を削除するVBを作りたいと思っております。

イメージ的には、

      A   B   C
パーセント 10%  0%  90%

を元データにした円グラフで、データラベルはそれぞれ

A…10%, B…0%, C…90%と表示されているのを、
「B」の"0%"を削除して、データラベルの表示を
A…10%, C…90% のみにしたいのです。

また、円グラフの横に表示される「凡例」からも、0%であった「B」の項目は表示から消したいと思っております。

既に作成してしまっているグラフとファイルが大量にあることもあり、更に元データをなるべくいじりたくないことから、グラフを作る段階で"0%"の表示を防止するのではなく、直接グラフの表示を修正するようなVBAを作りたいのですが、超初心者ゆえに技量が足りずなかなかうまくいきません。。

色々サイトを除いてまずはデータラベルの値を消すVB(下)を書いてみましたが、やはり仕組みが分かっていないためか、エラー438が出て止まってしまいました。><

Sub ゼロを削除()

Dim k As Integer
Dim co As ChartObject
Dim pp As Point

k = 0
Do
k = k + 1
Set co = ActiveSheet.ChartObjects(k)
co.Activate
For Each pp In co.Chart.SeriesCollection(1).Points
  If pp = "0%" Then
    ActiveChart.SeriesCollection(1).DataLabels.Delete
  End If
Next
Loop
End Sub

どなたかご教授いただけますでしょうか?m(_ _)m

大変お手数ですが、宜しくお願い致します。><
※お返事が少々遅くなってしまうかもしれないのですが、必ずお返事いたしますので宜しくお願い致します。

2 hits

【57352】円グラフのデータラベルが0%だった場合にラベルと凡例を削除したい ドラキー 08/8/12(火) 17:31 質問
【57353】Re:円グラフのデータラベルが0%だった場合... りん 08/8/12(火) 18:32 回答
【57401】エラーが出てしまいました; ドラキー 08/8/18(月) 17:03 質問
【57404】Re:エラーが出てしまいました; りん 08/8/18(月) 22:10 発言
【57423】見えないグラフとグラフエリアのサイズ変更 ドラキー 08/8/21(木) 15:20 質問
【57426】グラフエリアのサイズ変更 ドラキー 08/8/21(木) 16:30 発言
【57446】Re:グラフエリアのサイズ変更 りん 08/8/23(土) 21:19 発言
【57470】ありがとうございました! ドラキー 08/8/25(月) 17:50 お礼

24727 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free