| 
    
     |  | こんばんわ。すずです。 
 やりたいことについて検索をしてもわからなかったので
 質問させてください。
 
 やりたいことは
 「オートフィルタで抽出後、散布図を作成する」ことです。
 
 データ一覧表シートと、グラフシートがあります。
 データ一覧表シートの中の
 1列に"○"のあるもののみグラフ要素を表示してます。
 ""(○のない行)については要素の外円と背景をxlNoneにして
 非表示の形を取ってます。
 ActiveChart.SeriesCollection(1).Points(i).Select
 With Selection.Border
 .LineStyle = xlNone
 ・・・・・
 コード上の"i"はデータの上から下までをループで回してる為です。
 
 データ一覧にはフィルタがついてるのですが
 このフィルタを使用するとグラフの要素の表示非表示がずれて
 しまい、正しく表示されません。
 
 以下のような表がある場合、A列に"○"がついてるので
 3点(1,3,4行)表示されます。
 ※ここでは散布図の例表を作成してません。
 C列の後も続くと前提してください。
 ▼
 ABC
 1○x
 2 y
 3○w
 4○z
 
 A列にフィルタをした状態でも3(1,3,4行)点表示したまま
 になって欲しいのですが、2行目でエラーになってしまいます。
 この時にエラーになります。
 ActiveChart.SeriesCollection(1).Points(i).Select
 
 -----
 OS :Windows2000
 Ver:Office2000(ただし97でも動作確認をしたい)
 
 回避する方法などご存知でしたら教えてください。
 よろしくお願いします。
 
 |  |