¿Qué código puedo utilizar para tomar foto?
Para Elsa: Buenos días. Quiero que desde mi Userform pueda tomar la foto del empleado, y buscando en internet conseguí un código pero no me funciona, y por mas que le doy vuelta no logro nada. Por favor necesito ayuda... Andrés Álvarez. Le envió lo que he hecho hasta ahora.
1 respuesta
El código tiene algunos errores que te marco a continuación (MsgBox en lugar de Aviso).
Pero como no tengo ningún ejecutable para tomar fotos solo te explico lo que hacen algunas líneas para que puedas ajustar a tu libro:
'Ejecutable para tomar la fotografía
RetVal = Shell(base & "CommandCam.exe /filename """ & picPath & """", vbHide)
Base: la carpeta donde se encuentra tu libro con el formulario seguido de /
C... exe: este programa debe estar colocado en esa misma carpeta
PicPath: se colocará como nombre a la imagen tomada el contenido de la Hoja1, celda A1 +1. Eso se instruye en la línea que dice:
Hoja1.Cells(1, 1) = Hoja1.Cells(1, 1) + 1
Luego la macro sigue con estas líneas donde debes cambiar el texto 'Aviso' por MsgBox:
For i = 0 To 5
'Retardo corto para permitir que el nuevo archivo termine de guardarse
MsgBox "Espere..." & i
Application.Wait (Now + TimeValue("00:00:01"))
Next
'Cargar nueva imagen en un objeto de imagen en una hoja de cálculo
MsgBox "Listo!!!"
Y por último, debes asignar el archivo de imagen que se encuentra en la variable 'picPath' a tu control de imagen que ya tenés en el UF, que según tu libro se llama Image1
ArchivoIMG = base & picPath 'es decir la ruta completa del archivo de imagen creado
Image1.Picture = LoadPicture(ArchivoIMG)
Si sigues los pasos atentamente debieras poder completar la tarea. ... Sino deberás enviarme el programita a ver si lo instalo en mi equipo.
¡Gracias! Para Elsa: Hola. Ya vi el código lo transcribí, y aun no corre correctamente. Le doy al botón TOMAR FOTO y me hace el conteo de los 5 segundos, pero al terminar los 5 segundos me dice: Archivo no encontrado. Y no se que hacer. Andrés Álvarez
Pareciera que el programa no te está tomando la foto ... te devolví el libro con una línea para que un MsgBox te confirme ruta y nombre del archivo creado.
Sdos!
