Fill Shape With Picture 2007

The following works perfect in 2003.

Private Sub CommandButton1_Click()
Dim shpTemp As Shape
Set shpTemp = Worksheets("Sheet3").Shapes(ListBox1.Value)
shpTemp.Copy

With Worksheets("Sheet1")
.Activate
. Range("A1").Select
.Paste
Set shpTemp = .Shapes(.Shapes.Count)
shpTemp.Fill.UserPicture ListBox2.Value
End With
End Sub

However, when run in excel 2007 the shape is not filled. If you right click the shape, format shape and click on the "Picture or texture fill" it will fill the shape with the previously selected picture in the userform. I have tried by adding

shpTemp.UserPicture.Fill.Visible = True....................