エクセルでのオートシェイプの消し方

エクセルでオートシェイプや貼り付けた図が、状況によって（計算結果により）消せれば面白い小細工が出来るのになと、ふと思いつきました。
ＶＢＡを使えば可能かもしれませんが、できれば面倒なのでＶＢＡなしで、消す（画面外に移動でもいいのですが）ことは可能でしょうか。

No.2 ベストアンサー 回答者： Wendy02 回答日時： 2005/12/03 21:29

こんばんは。

すみません。今、自分の文章でやり直してみました。私は、手順を間違えました。

#参照範囲
#「 Sheet1!$B$1」

ここの部分を、
参照範囲
　=INDIRECT(Sheet1!$B$1)

に直してみてください。


後は、間違いないと思いますが、試してみてください。

この回答へのお礼

まさにすごいの一言です。
こういう関数があったなんて知りませんでした。
おかげさまで、いろいろと小細工ができそうです。
ありがとうございました。

お礼日時：2005/12/05 10:29

No.1 回答者： Wendy02 回答日時： 2005/12/03 01:32

こんばんは。

VBAよりも、ずっと複雑になりますが、「図のリンク貼り付け」という方法があります。

B1 に、

=IF(A1=1,"H1:H5","D1:D5")

とします。

H1:H5 にオートシェイプを置いておきます。
もっと離れたところでもよいです。

次に、B1に、セルポインターを置いたまま、挿入－名前－定義

名前
「表示」
参照範囲
「 Sheet1!$B$1」

とします。

何も入れていないブランクのセルをコピーし、オートシェイプの写像を表示したい場所に、セルポインターを置き、シフトを押しながら、編集－リンク貼り付けでクリック。

そうすると、その貼り付けた場所をクリックすると、例えば、=$E$1 とかなっていますから、

その表示を　=表示

に書き換えれば出来上がります。

後は、A1 が１の時だけ、オートシェイプが現れます。

この回答への補足

全く同じセルを使い試してみましたが、Ａ１を１にしても、ただ画面にＨ１：Ｈ５と表示されるだけです。
ＩＦ関数のダブルクォーテーションを消してみましたが、やはり何も変わりません。
私の使用しているＥＸＣＥＬは２００３ですが、バージョンの違いによる問題でしょうか。

補足日時：2005/12/03 09:57