Tomar foto con webcam vba excel

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!