|
▼kanabun さん:
こんにちは。助言ありがとうございます。
kanabunさんの言う通り、他のオートシェイプが入ったシートで実行すると
すべて消えてしまいました。
このマクロを利用させてもらおうと思っていたものにも入力規則などを
使おうと思っていたので教えていただき大変助かりました。
ありがとうございました。
>描画して、最後に描画したオートシェイプ以外削除する のでなく、
>現在のシート上のオートシェイプを消しておいてから、
>目的のオートシェイプを描画すればいい、ような気がします。
おっしゃる通りです。
先に消しておけばよかったんですね。
>オプションボタンで描画しているのが、いつも「楕円」ならば
>
> '(1)シート上にあるすべての楕円を消す
> ActiveSheet.Ovals.Delete
> '(2)あたらしい楕円の描画
> ここにマクロで実行しているコードを書く
>
>のように、図形を制限して実行すれば For〜Loopしなくて済みます。
ありがとうございます。
この場合、他に「楕円」を使っていればそれも消えますよね?
それを避けるためにRangeオブジェクトなどを使って「楕円」を消す範囲を
指定することは可能でしょうか?
よろしければ教えてください。
よろしくお願いします。
|
|