Fallo en ejecución de macro

[solilopi]

Hola tengo la siguiente macro:

<i>
</i>Sub Inserta_foto()
Dim sRuta As String, sNombre As String, sPath As String, sArchivo As String


sRuta = Environ("USERPROFILE") & "\pICTURES\Camera...

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í

 

[Héctor Miguel]

el "With..." asume que se ha insertado la imagen indicada, puedes confirmar que así ha sucedido ?
(comprueba que las rutas son idénticas en los equipos donde se ejecuta la macro)

de lo contrario...

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í

 

[solilopi]

No, no inserta la imagen, da error 438 y se queda ahí. ¿Qué puedo hacer?. Gracias.

 

[Héctor Miguel]

1) a tu variable "sRuta" le falta el separador de rutas al final de la instrucción:

sRuta = Environ("USERPROFILE") & "\pICTURES\Camera Roll"

2) o en su...

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í

 

[solilopi]

He comprobado los nombres y son los mismos, además he corregido el nombre del archivo u me sigue dando error 438

 

[solilopi]

Acabo de darme cuenta de que si coge la imagen de la carpeta y hace como que la mueve pero no aparece en ninguna de las dos carpetas y menos en la hoja Excel

 

[solilopi]

Corrijo, si mueve la foto a la carpeta correspondiente, lo que no hace es insertar la foto en la celda seleccionada, y no da error de ningún tipo.
Éste es el código completo.

Sub...

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í