shapes.addpicture da error 1004

Tengo un submarino bastante simple, pero parece que no funciona:

Sub Test() Dim p as object strpath = "http://sofes.miximages.com/excel/sample.jpg" ' some jpg Set p = ActiveSheet.Shapes.AddPicture(strpath, False, False, 100, 100, 86, 129) End Sub 

Cuando hago esto, me da el error de time de ejecución 1004, el valor especificado fuera del range. Sin embargo, si cambio el segundo "falso" a "verdadero", funciona bien e inserta la image. De acuerdo con esto, el segundo verdadero / falso afecta si la image se saveá con el documento. No me gustaría que esto suceda.

Alguien tiene alguna idea de por qué sucede esto?

Esto funcionó para mí:

 Sub sof20301212ShapesAddpicture() Dim strPath Dim p As Object strpath = "http://sofes.miximages.com/excel/logo11w.png" Set p = ActiveSheet.Shapes.AddPicture(strPath, msoCTrue, msoTrue, 100, 100, 86, 129) End Sub 

Ref Shapes.AddMétodo de image :

 'Declaration FunctionAddPicture ( _ Filename As String, _ LinkToFile As MsoTriState, _ SaveWithDocument As MsoTriState, _ LeftAsSingle, _ TopAsSingle, _ WidthAsSingle, _ HeightAsSingle _ ) AsShape Filename: The file from which the OLE object is to be created. LinkToFile: Microsoft.Office.Core.MsoTriState The file to link to. Can be one of these MsoTriState constants: msoCTrue msoFalse To make the picture an independent copy of the file. msoTriStateMixed msoTriStateToggle msoTrue To link the picture to the file from which it was created. SaveWithDocument Type: Microsoft.Office.Core.MsoTriState Requinetworking MsoTriState. To save the picture with the document. 

LinkToFile y SaveWithDocument no pueden ser falsos, ya que no se puede save ninguna image.

El par LinkToFile y SaveWithDocument puede ser:

  true, true true, false false, true 

Solo me gustaría agregar otra posible razón y solución. También recibí el error 1004, el valor especificado fuera del range.

Tenía habilitada la biblioteca de objects y todo esto. Finalmente me di count de que antes en mi código hay una línea que bloquea la hoja de trabajo. Después de desbloquear todo funcionó bien.