gabethegrape
03-11-2009, 06:10 PM
I'm not sure if this is possible, but using the following code I'd like to be able to actually paste the URL into a cell to call the image rather than writing in the vba code. Any help is greatly appreciated.
Sub InsertPicture()
Dim myPicture As Shape
Set myPicture = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 2, 2, 200, 200)
myPicture.Fill.UserPicture "URL.gif"
End Sub
Sub InsertPicture()
Dim myPicture As Shape
Set myPicture = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 2, 2, 200, 200)
myPicture.Fill.UserPicture "URL.gif"
End Sub