Steuerelement Bild

Sub Bild_einfuegen()
Dim strPic As String, objPic As Object
strPic = Application.GetOpenFilename
If strPic  "" Then
Set objPic = ActiveSheet.Pictures.Insert(strPic)
objPic.Left = Range("C3").Left
objPic.Top = Range("c3").Top
End If
End Sub

Das Bild das ich mir einlade geht aber nicht in mein erstes markierte
Steuerelement, sondern in zelle c3. Ich möchte das erste Element markieren
und das Makro aufrufen. Wenn ich ein zweites Bild einfügen möchte,
würde ich das zweite Steuerelement markieren und das Makro aufrufen, damit das
zweite Bild in das zweite Steuerelement eingefügt wird.
Kann mir jemand dabei helfen.
Danke und Gruß
André