ExcelのVBAで
Excel2007のVBAで以下のことは可能でしょうか?
Sheet1の上にコンボボックス(アイテムリスト)とコマンドボタン(配置用ボタン)を設置しています。
コンボボックスよりユーザーがアイテムを選択してコマンドボタンを押すことで対応するアイテムの画像をシートに挿入します。
シートに挿入する画像は、最大100アイテムを予定しています。
困っている部分が、挿入したアイテムをユーザーがマウスでクリックしたときに
VBAでどの画像が選択されたかを判断することは可能でしょうか?
アイテムがクリックされると同時にクリックされたアイテムのコードや名称等の諸元データを特定のセルに表示をしたいという事が行いたいのです。
以上、何かヒントや解決方法があればご教授願います。
図の挿入に関しては下記のロジックで挿入しています。
Private Sub CommandButton1_Click()
dim pc(100) as shape
dim flname as string
'画像のファイル名は、"pic" + コード + ".jpg"
'A1にはコンボボックスで選択されたコードが設定されています。
flname = "pic" & Worksheets("sheet1").Range("a1").Value & ".jpg"
'idxはGlobal変数です。
idx = idx + 1
Set pc(idx) = ActiveSheet.Shapes.AddPicture(Filename:=flname, LinkToFile:=True, savewithdocument:=False, Left:=Selection.Left, Top:=Selection.Top, Width:=100#, Height:=100#)
end sub