Insert Photo using code

I'm trying to find some simple code that would that would allow me to select a picture from the picture dialog and insert it to active cell at a small size, like 2 1/2 by 2 inches

Did you try recording a macro?

After you do that, there's just a couple of simple steps to align it to the active cell.

Try this to get started:

    With ActiveSheet.Pictures.Insert("C:\Documents and Settings\ABabeNChrist\My Documents\My Pictures\Apple3.jpg")
        .Left = ActiveCell.Left
        .Top = ActiveCell.Top
    End With

Look at the other properties of a Shape in help