画像の挿入に関して

質問

エクセルのVBAでユーザーフォームを作成し
そこに、コンボボックス1と2があります。
例えば
コンボボックス1がA
コンボボックス2がC
だったとき

コマンドボタンでSheet1へ反映させる際
コンボの選択がACの組合せの場合
Sheet2内の"pic1"をSheet1の指定のセルへ反映
させたいとする場合のプログラムがありますでしょうか。

ADの組合せの場合は、"pic2"といった感じです。

※コマンドボタン内の反映プログラムはできました。
説明がややこしくなってしまいましたが
宜しくお願い致します。

回答No.1

masa_019 · ベストアンサー

こんにちは。

コマンドボタンのオブジェクト名がCommandButton1として、

Private Sub CommandButton1_Click()

If Me.ComboBox1.Value = "A" And Me.ComboBox2.Value = "C" Then

ここに反映プログラム

End If

End Sub

補足

書き方が悪かったですね。

AとCはセルへ貼付させる反映プログラムはしたという意味でした。

Sheet2のpic1(画像です)をSheet1のD7へ貼付けとしたいのですが
そのプログラムを御教示お願い致します

回答No.2

masa_019

No.1です。

>Sheet2のpic1(画像です)をSheet1のD7へ貼付けとしたいのですが
そのプログラムを御教示お願い致します。

それなら、マクロの記録で参考になるコードが得られますよ。↓

Sub Macro4()
'
' Macro4 Macro
' マクロ記録日 : 2008/4/10 ユーザー名 :
'

'
Sheets("Sheet2").Select
ActiveSheet.Shapes("Picture 1").Select
Selection.Copy
Sheets("Sheet1").Select
Range("D7").Select
ActiveSheet.Paste
End Sub

お礼

masa_019様
ばっちりできました。
本当に助かりました。
ありがとうございました。

マクロの記録を参考にすることすっかり忘れてました。