Capturar una foto con la webcam desde un formulario
Hola buen dia .
He visto ke ya te hicieron esta pregunta...
http://www.todoexpertos.com/categorias/tecnologia-e-internet/software-y-aplicaciones/microsoft-excel/respuestas/rknfjc6a8hnmc/como-tomar-una-foto-con-la-webcam-en-excel-utilizando-vba.
lo ke deseo hacer es similar. Y respondiste dejando un archivo de ejemplo,pero este ha sido eliminado.
Por favor si seria posible ke subieras el archivo nuevamente o me lo pudieras mandar al ..
[email protected] para estudiarlo.
Gracias por tu colaboración
que dios te bendiga...
1 Respuesta
Respuesta de Dante Amor
1
Este es el nuevo archivo
https://www.dropbox.com/s/23z6eezfmn3y3ri/tomar%20foto%20webcam5.xlsm
Saludos. DAM
No olvides finalizar la pregunta.
Gracias por tu pronta respuesta.
excelente para mi proyecto
Dios los bendiga
Va el código:
Private Sub CommandButton1_Click() 'Actualizado, Por.Dante Amor Dim s As Shape 'Crea la hoja para guardar temporalmente la foto Application.ScreenUpdating = False Sheets.Add htmp = ActiveSheet.Name Sheets(htmp).Select Sheets(htmp).ChartObjects.Add(0, 0, 200, 250).Name = fgif Application.CommandBars.FindControl(ID:=1764).Execute 'es necesaria una hoja creada al inicio para la captura 'al grabar se crea una copia en la hoja que es un shape Selection.Copy Sheets(htmp).ChartObjects(fgif).Activate ActiveChart.ChartArea.Select ActiveChart.Paste 'En esta parte se guarda el nombre de la foto, _ puedes cambiar el texto "num-inscripcion" por un valor fichero = mipath & "num-inscripcion" & ".gif" ActiveChart.Export Filename:=fichero 'graba en disco la foto Me.Image1.Picture = LoadPicture(fichero) 'limpio la foto pegada y el chart For Each s In Sheets(htmp).Shapes s.Delete Next s 'Borra hoja temporal Application.DisplayAlerts = False Worksheets(htmp).Delete Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
