ボタンを使って写真を表示したり消したりしたい。

質問

エクセルであるレイアウトを作成しているのですが、配置する物自体はテキストボックスを色々な大きさにして（見立てて）作成しています。例えばこれを、マクロなどを使ってボタンを押したら写真が表示される、もう一度押すと消える。ということは出来ないでしょうか？キーボードマクロを使って写真を表示させることはできるのですが消すとなるとその写真一つ一つに名前がついていて（例えば”Picture 3”など）消す写真自体を上手く指定することができないのです。

回答No.1

taisuke555 · ベストアンサー

今頃の回答で申し訳ありません。

質問の内容がよくわかりませんが、
（１）写真がいくつもあるようですが、
　　　ボタンを押した時に、１つの写真を消したいのでしょうか？
　　　それとも　すべての写真を消したいのでしょうか？
（２）＞テキストボックスを色々な大きさにして（見立てて）作成しています。
　　　写真ではなくテキストボックスを消したいのでしょうか？

Sub PictureVisible()
　　'MsgBox ActiveSheet.Pictures(1).Name
　　'With ActiveSheet.Pictures("Picture 1")
　　With ActiveSheet.Pictures(1)
　　　　.Visible = Not .Visible
　　End With
End Sub

で、ピクチャーの１つ目を表示・非表示を交互に行います。

見当違いの回答の時には、補足してください。
私のわかる範囲で回答致します。
（EXCEL2000でテストしていますが、よろしいでしょうか？）

どなたも回答されていなかったので、回答してみました。