EXCELの初歩的なマクロ（VBA）の記述について

質問

本当に初歩的な内容で申し訳ありませんが、ボタンをクリックした時にある図形を非表示にし、もう１回クリックすると表示にする方法を教えて頂けませんか。
（ボタン：ボタン1、図形：図形1）
　Sub ボタン1_Click()
　End Sub
上記の２行の間に、記述する内容になるかとお思います。
EXCEL2010を使用してます。
お手数ですが、よろしくお願いします。

回答No.1

tsubu-yuki · ベストアンサー

ごく単純な考え方だと
　・図形１が表示されていれば→非表示
　・図形１が表示されていなければ→表示
という分岐ですね。

Sub ボタン1_Click()
　　If ActiveSheet.Shapes("図形1").Visible = True Then
　　　　ActiveSheet.Shapes("図形1").Visible = False
　　Else
　　　　ActiveSheet.Shapes("図形1").Visible = True
　　End If
End Sub

で十分かと。

お礼

うまくいきました。
本当にありがとうございました。

回答No.2

imogasi

エクセルのユーザーフォームに
コマンドボタン１つ、イメージコントロール１つ貼り付け
Private Sub UserForm_Click()
Dim Pic As Object
Set Pic = LoadPicture("ＸＸＸＸＸＸＸＸＸ.jpg")　'フルパスで指定。写真でテスト。
Image1.Picture = Pic
End Sub
ユーザーフォームをクリック。
画像がＩｍａｇｅ１に現れる。
そこでユーザーフォームのコマンドボタンのクリックイベントに
Private Sub CommandButton1_Click()
Static s
If s = True Then
UserForm1.Image1.Visible = False
s = False
Else
UserForm1.Image1.Visible = True
s = True
End If
MsgBox s
End Sub
ＳＵＢ／ユーザーフォームの実行で
フォームのコマンドボタンのクリックで画像が消えたり現れたりする。
ーー
＞初歩的な内容で申し訳ありませんが
初歩的ではなく、昨日今日ＶＢＡをやり始めたものには、全体として、むつかしすぎる事項と思う。
内容が初歩的かどうかは、初心者は軽々しく言うべきでない場合が多い。
ーー
回転式スイッチのような仕組みを実現するのに、数１に－１を掛けて、１と－１を交互に変化させる手もある。
その値の１とー１によって状態を変化させる。常套手段。

お礼

ありがとうございました。