Macro to put pictures in shapes

[Xx7]

I have a folder of pictures. I would like to run a macro that creates a rectangle shape (see below) in every cell A1, A2... A100 for every picture. I would like to have each picture display in the background of their respective rectangle. Also, I would like to create a hyperlink to the shapes... so I can click on their rectangles and they will appear.

Any help appreciated!!



Here is some useful code to anchor the shapes to the cells:

 Sub Rectangle()

    
    With Range("b4")
        ActiveSheet.Shapes.AddShape _
                Type:=msoShapeRectangle, _
                Left:=.Left, _
                Top:=.Top, _
                Width:=.Width, _
                Height:=.Height


End With


 End Sub

 

[Xx7]

Thanks Dave, works great on Win7 XL2010. I owe you one!!