Tomar foto con webcam vba excel
Esta pregunta ya la contestó anteriormente. Desgraciadamente el link en el que contestaba a otro usuario está roto o no operativo, además creo que al utilizar excel de 64 bits, modificaría dicho código.
Sería tan amable de intentar proporcionarme el código necesario.
Respuesta de Dante Amor
1
Como bien comentas tal vez necesites otro código.
Pero pongo aquí el de la respuesta a este enlace:
Capturar una foto con la webcam desde un formulario
E spero te funcione. O tal vez te ayude a encontrar el que necesitas.
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
Suerte!
