Insert picture placeholder in spreadsheet

[usatraveler]

Trying to create a spreadsheet where there is a single picture box that you can click on and select a picture that you have recently taken and it will size down to fit that box.
I can come close with SmartArt but there is not just a single box option. The choices are more complex then what I need.
I know I can insert a picture directly but I want to simplify the process for the end user to click on the box and then choose a picture to go into that object box.

It should be very simple but I am missing something.

Thanks

[macropod]

If you insert an Active-X image control and position/size it where you want the picture to go, you could use a macro like:

Private Sub Image1_Click()
With Application.Dialogs(xlDialogInsertPicture)
  If .Show = True Then
    With Selection.ShapeRange
      .Width = Image1.Width
      .Height = Image1.Height
      .Top = Image1.Top
      .Left = Image1.Left
    End With
  End If
End With
End Sub

[usatraveler]

That did the trick. I appreciate your help with this.

Thanks