Importar imágenes con macros

[Julio Garza]

Hola, tengo una base de datos de personas con el Nombre, Apellidos, Edad y un Código personal (el ejemplo es una cadena alfanumérica de 5 dígitos, pero puede ser cualquier código de identificación...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[novirus]

Buenas,

Utiliza este código a ver si es lo que quieres.

Sub CargarFotos()

    Dim gen, i As Integer
    Dim codigo, direccion, NomImg As String
    Dim celda As Range
    Dim Fso As...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Leopoldo Blancas]

Hola,

Tienes que verificar si existe el archivo *.png, si existe tomara las Imagenes 1.png, 2png, 3.png..... y de lo contrario que tome la imagen "X.png"

Sub CargarFotos()

Dim gen, i...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Julio Garza]

Buenas,

Utiliza este código a ver si es lo que quieres.

Sub CargarFotos()

    Dim gen, i As Integer
    Dim codigo, direccion, NomImg As...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Julio Garza]

Hola,

Tienes que verificar si existe el archivo *.png, si existe tomara las Imagenes 1.png, 2png, 3.png..... y de lo contrario que tome...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Leopoldo Blancas]

Hola @novirus , cuando intento ejecutar tu código me sale un mensaje de error en la declaración de variables de Fso:

"Error...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[novirus]

Buenas,

Gracias Leopoldo Blancas a veces doy por echo que saben estas cosas

Un saludo.

 

[Leopoldo Blancas]

Buenas,

Gracias Leopoldo Blancas a veces doy por echo que saben estas cosas

Un saludo.

No, siempre que hay que...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Para que funcione o hacer pruebas tienes que agregar esta referencia... Saludos.

Sin permisos de acceso

...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Leopoldo Blancas]

Pues a mi me funciona sin esa referencia.

Es que tu eres MacroAntoni...!!!