Excelグラフのデータの追加と削除について

質問

お世話になります。

商品名が項目軸で月が凡例のグラフを作成しています。

「データソースの選択」ダイアログボックスを使って1項目の系列要素ごと削除する（たとえば、パソコンという商品のデータのみ削除したい）場合、どのような方法がありますでしょうか？ダイアログボックスを使用しない方法でも良いのでお教え願います。

以下の条件でよろしくお願いいたします。

　・ グラフからは削除したいが元データ（表）は削除しない。
　・ コピーから形式を選択して貼り付けた追加データなので【行／列の切り替え】はできなくなっている。（追加データは大本の表とは別の場所（シートは同じ）につくったデータを使用）
　・ ダイアログボックスの系列欄にて系列の系列値を編集（追加データ分のみ削除）しようにもデータ量が多すぎて大変。
　・ 表データは行・列とも非表示はしたくない。

回答No.3

MackyNo1 · ベストアンサー

グラフから特定の要素を簡便に削除するなら、以下のような操作が簡単かもしれません。

まず準備として、すべての要素で作成したグラフの各系列を選択して、Deleteキーをクリックして、すべての系列を削除したグラフエリアだけの白紙のグラフテンプレートを作成します（元データのグラフが必要なら、Cｔｒｌドラッグでグラフをコピーしてください）。

次に元データでデータタブの「フィルタ」から、A列で「テキストフィルタ」を行い「*」と「等しい」にして、シートをフィルタモードにしてすべてのデータを表示しておきます。
このフィルタモードの状態で削除したい要素の行（3行目）を選択して、右クリック「非表示」にします。
この状態で、非表示にした状態のセル範囲（A1:E6)をコピーし、右クリック「コピー」し、空白のグラフエリアを選択して右クリック「貼り付け」ます。
最後に非表示にした行を表示すれば、その行の要素を含まないグラフを作成することができます。

＃質問にご使用のExcelのバージョンが記載されていませんでしたので、ひとまず2007の場合で回答しましたが、Officeソフトはバージョンによって使用できる機能や操作方法が大きくことないますので、質問の際には必ずバージョンを明記するようにしましょう。

お礼

ご回答ありがとうございます。
要するに、グラフの作り直しということですね。
フィルタを付けて、テキストフィルタからの設定を商品欄部分に行うと、他へコピーしたときに、非表示にしたデータが貼り付け対象にならないというところは初めて知りました。これからも参考にさせていただきたいと思います。

それと、バージョンについてですが、質問時に書き忘れてしまいまして、後から追加しようとしたのですが、追加の仕方がわからなかったもので・・・（汗）すみませんでした。
もう遅いですが、バージョンは2007使用のものです。

回答No.2

xls88

「系列内の項目から特定の要素を削除する」という事だと理解します。

グラフ上でのみの対処ということですが、
要素レベルの削除はできないようで、その系列が削除されます。
ということで、特定要素の非表示処理で対応することになると思います。

VBAの例です。
棒グラフでやってみます。
棒の塗り潰しを「なし」にします。
グラフを選択して置いて実行してください。

Dim ser As Series
Dim fmla As String
Dim xval As Variant
Dim i As Long

With ActiveChart
For Each ser In .SeriesCollection
ser.Interior.ColorIndex = xlAutomatic
ser.Border.ColorIndex = xlAutomatic
fmla = ser.Formula
xval = ser.XValues
For i = LBound(xval) To UBound(xval)
If xval(i) = "パソコン" Then
With ser.Points(i)
.Interior.ColorIndex = xlNone
.Border.ColorIndex = xlNone
End With
End If
Next i
Next ser
End With

お礼

ご回答ありがとうございます。

＞「系列内の項目から特定の要素を削除する」という事だと理解します。

私の分かりにくい質問から正しくご理解いただいてありがとうございました。

要素レベルでの削除はやっぱりできないのですね・・・。
となると、普通の方法では、もう一度データ選択において”グラフデータの範囲”を設定しなおすということが一番の近道になりますね。（行・列の切り替えができなくなっているので・・）

そして、ご丁寧にVBAのコードまで書いていただいてありがとうございました。

回答No.1

某HN クロメート(Chromate)（@CoalTar）

XL2003です
削除したい系列のデータを選んで[Delete]
または、凡例内の削除したい系列のマーカーを選んで[Delete]

お礼

ご回答ありがとうございます。

質問の内容が分かりにくくてすみません。
系列レベルでの削除はわかるのですが、要素レベルでの削除の仕方を知りたかったので。