Inserción de imagen en Excel a través de Macro

26/02/2010 - 12:42 por Zoltar | Informe spam
Buen día, Cibernautas:

Estoy insertando unas fotos a través de código a una hoja. Este hace
referencia al nombre de archivo de la foto y funciona sin problemas.
Sin embargo, pese a que utilizo la instrucción "On Error GoTo XXXX",
me arroja un error 1004, cuando no encuentra el archivo.

Quisiera saber cómo comprobar si existe el nombre del archivo, para
que en ese caso ejecute las intrucciones de insercion.
El código parcial de inserción es:
foto = "C:\FOTOS\" & Range("e6").Value & ".jpg"
On Error GoTo 200
ActiveSheet.Pictures.Insert(foto).Select

Donde "e6" contiene el nombre del archivo de la foto.

Desde ya, muchas gracias.

Atte

CSM

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
26/02/2010 - 18:59 | Informe spam
hola (...), ?????

op1: if dir(foto) <> "" then activesheet.pictures.insert(foto).select

op2: en lugar de on error goto ... usa: on error resume next

saludos,
hector.

__ OP __
Estoy insertando unas fotos a traves de codigo a una hoja. Este hace referencia al nombre de archivo de la foto y funciona sin problemas.
Sin embargo, pese a que utilizo la instruccion "On Error GoTo XXXX", me arroja un error 1004, cuando no encuentra el archivo.
Quisiera saber como comprobar si existe el nombre del archivo, para que en ese caso ejecute las intrucciones de insercion.
El codigo parcial de insercion es:
foto = "C:\FOTOS\" & Range("e6").Value & ".jpg"
On Error GoTo 200
ActiveSheet.Pictures.Insert(foto).Select
Donde "e6" contiene el nombre del archivo de la foto...
Respuesta Responder a este mensaje
#2 Zoltar
08/03/2010 - 21:00 | Informe spam
On 26 feb, 14:59, "Héctor Miguel"
wrote:
hola (...), ?????

op1: if dir(foto) <> "" then activesheet.pictures.insert(foto).select

op2: en lugar de on error goto ... usa: on error resume next

saludos,
hector.

__ OP __



> Estoy insertando unas fotos a traves de codigo a una hoja. Este hace referencia al nombre de archivo de la foto y funciona sin problemas.
> Sin embargo, pese a que utilizo la instruccion "On Error GoTo XXXX", me arroja un error 1004, cuando no encuentra el archivo.
> Quisiera saber como comprobar si existe el nombre del archivo, para que en ese caso ejecute las intrucciones de insercion.
> El codigo parcial de insercion es:
>    foto = "C:\FOTOS\" & Range("e6").Value & ".jpg"
>   On Error GoTo 200
>   ActiveSheet.Pictures.Insert(foto).Select
> Donde "e6" contiene el nombre del archivo de la foto...- Ocultar texto de la cita -

- Mostrar texto de la cita -



Muchas Gracias, Héctor Miguel. Era lo que necesitaba.

Atte

Zoltar
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida