Patinho21

Hola, tengo esta macro con la que inserto una foto pero cuando quiero comprimir para que al grabar el archivo pese menos, no lo hace, y termina la operación.... Desde la instrucción marcada no funciona, agradecere contarme en que fallo, ¿Puede ser el...

Utilizo la macro adjunta para insertar una imagen escogida de alguna carpeta de mi computador, pero la instrucción ActiveSheet.Pictures.Insert Filename.Select no funciona, ¿Como lo hago?, gracias. Sub Abrir() On Error GoTo x Dim strArchivo$...

Tengo esta Macro, buscando y modificando llegue a esto: Sub Abrir() On Error GoTo x Dim strArchivo$ strArchivo$ = _Application.GetOpenFilename("Fotografias (*.jpg), *.jpg") 'Workbooks.Open Filename:=strArchivo$ Range("B2").Select...