Excel チェックボックスについて

質問

チェックボックスでチェックをつけたら、指定セルへ、
準備した画像を挿入したいのですが、どうすれば良いの
でしょうか？

エクセルファイルと画像ファイルは同一ディレクトリにあります。

　　Ａ　Ｂ
１　レ　[画像]
（レ＝チェック）
のように、指定セル内に表示させたいのですが・・・。

回答No.1

papayuka · ベストアンサー

コントロールツールボックスのCheckBoxとして、VBAで下記のような感じで如何でしょう？
hogehoge.jpg は ファイル名に合わせて変更します。

Private Sub CheckBox1_Click()
Dim sh As Shape, fName As String
　On Error Resume Next
　fName = ThisWorkbook.Path & "\hogehoge.jpg"
　If Me.CheckBox1.Value Then
　　 Me.CheckBox1.TopLeftCell.Offset(0, 1).Activate
　　 Me.Pictures.Insert (fName)
　Else
　　 For Each sh In Me.Shapes
　　　 If sh.Type = msoPicture Then
　　　　　If sh.TopLeftCell = Me.CheckBox1.TopLeftCell.Offset(0, 1) Then
　　　　　　 sh.Delete
　　　　　End If
　　　 End If
　　 Next sh
　End If
End Sub

お礼

papayukaさん、明確なご回答ありがとうございます！

早速試してみたところ、もう完璧です！＾＾*
本当にありがとうございました。
これで、いろいろ応用を考えたいと思います。＾＾

補足

早速、つまづきました・・・。＾＾；
複数のチェック項目があり、それぞれも同じように出来るかと
思ったら、違いました。。。

　　Ａ　Ｂ
１　レ　[画像]
２　レ　[画像]
３　レ　[画像]

という具合に、一行ずつ、チェックしたいのです。
どうすれば良いでしょうか？
すみません。。。

回答No.3

papayuka

#1です。

あの、、、当然ですがコード内の何箇所かで指定している「CheckBox1」も変えないと動きませんが、直してますか？

If Me.CheckBox1.Value Then
　　　　　↓
If Me.CheckBox2.Value Then

とか他にも。

コード内容をちょっと見れば、あまりVBAに詳しくなくても想像が付くと思うのですが、、、
まったくコード内容を見ずにただ「コピペで動きません」では、如何なものかと思いますよ。

お礼

おっしゃるとおりです・・・。
お手数をおかけして、申し訳ありません！
お恥ずかしい限りです。＾＾；

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

回答No.2

papayuka

#1です。

CheckBox1 を CheckBox2 のようにしないとダメです。

補足

Private Sub CheckBox2_Click()
.
End Sub
Private Sub CheckBox3_Click()
.
End Sub
...と同じようにしてるんですが、反応がありません。
CheckBox1しか動かないのです。