|
こんばんわ。すずです。
やりたいことについて検索をしてもわからなかったので
質問させてください。
やりたいことは
「オートフィルタで抽出後、散布図を作成する」ことです。
データ一覧表シートと、グラフシートがあります。
データ一覧表シートの中の
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でも動作確認をしたい)
回避する方法などご存知でしたら教えてください。
よろしくお願いします。
|
|