Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

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

26/02/2010 - 12:42 por Zoltar | Informe spam
Ayuda Hacer una pregunta
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
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

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...

Preguntas similares

 

Busqueda sugerida :