So far as I know you can't change the source of a picture, you need to delete the old one and insert a new one

Here's a start

strPic ="Picture Name"
Set shp = ws.Shapes(strPic)

'Capture properties of exisitng picture such as location and size
With shp
    t = .Top
    l = .Left
    h = .Height
    w = .Width
End With

ws.Shapes(strPic).Delete

Set shp = ws.Shapes.AddPicture("Y:\our\Picture\Path\And\File.Name", msoFalse, msoTrue, l, t, w, h)
shp.Name = strPic
shp.ScaleHeight Factor:=1, RelativeToOriginalSize:=msoTrue
shp.ScaleWidth Factor:=1, RelativeToOriginalSize:=msoTrue


Using VBA to change Picture
About 3 months ago I bought my LG Optimus 4X HD (aka P-880), which shipped with Android 4.0.3. I searched the settings up and down, and was quite surprised there were no SIP settings available. I'm very sure SIP support was added to AOSP with Gingerbread, so it had to be there with ICS!

Did LG remove them from their Android installation? Is there any way to get them back?
