.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 60.75 'Alto de la imagen
.ShapeRange.Width = 84 'Ancho de la imagen
.ShapeRange.Left = .ShapeRange.Left + 1 'Añadimos 1 para que se vea la línea divisoria de la celda (izquierda)
.ShapeRange.Top = .ShapeRange.Top + 1 'Añadimos 1 para que se vea la línea divisoria de la celda (superior)
'Movemos archivo a la carpeta Historico
Name "C:\Seat\Fotos\imagen.jpg" As "C:\Seat\Historico\imagen_" & Format(Now, "dd-mm-yyyy") & ".jpg"
End With
End Sub[/CODE]
Mientras la he ejecutado en mi PC, un usuario sólo, no ha habido problema, los problemas vienen al utilizar el archivo desde un servidor varios usuarios, os explico:
El archivo está en un servidor y lo ejecutan tres usuarios distintos por lo que a la hora de renombrar el archivo, la ruta depende del usuario en cuestión siendo +/- C:\Users\nombre_usuario\imagenes.
Además, las imágenes se guardan con el formato: WIN_YYYYMMDD_HH_MM_SS_Pro, por lo que es otra historia poner caracteres comodín para que se pueda hacer el proceso.
Resumiendo:
Necesito poder coger de la carpeta imágenes del usuario activo una foto con el formato anterior para insertarla en una hoja Excel y luego guardarla en otra carpeta. Me falla la primera parte del problema, ¿puede alguien decirme como lo puedo hacer? Gracias.
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola de nuevo, tengo esta macro:
Mientras la he ejecutado en mi PC, un usuario sólo, no ha habido problema, los problemas vienen al utilizar el archivo desde un servidor varios usuarios, os explico:
El archivo está en un servidor y lo ejecutan tres usuarios distintos por lo que a la hora de renombrar el archivo, la ruta depende del usuario en cuestión siendo +/- C:\Users\nombre_usuario\imagenes.
Además, las imágenes se guardan con el formato: WIN_YYYYMMDD_HH_MM_SS_Pro, por lo que es otra historia poner caracteres comodín para que se pueda hacer el proceso.
Resumiendo:
Necesito poder coger de la carpeta imágenes del usuario activo una foto con el formato anterior para insertarla en una hoja Excel y luego guardarla en otra carpeta. Me falla la primera parte del problema, ¿puede alguien decirme como lo puedo hacer? Gracias.