Macro para seleccionar Fotografía y colocarla en un control image

Te anexo la macro para cuando le des doble click al control Image te abra la ventana de diálogo y puedas seleccionar el archivo con la foto.

Private Sub Fotografia_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'Por.Dante Amor
    If TxtCedula = "" Then
        MsgBox "Captura la cédula"
        TxtCedula.SetFocus
        Exit Sub
    End If
    Application.ScreenUpdating = True
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Seleccione archivo con la imagen"
        .Filters.Clear
        .Filters.Add "All Files", "*.*"
        .AllowMultiSelect = False
        .InitialFileName = ThisWorkbook.Path & "\"
        If .Show Then
            Fotografia.Picture = LoadPicture(.SelectedItems.Item(1))
        End If
    End With
    Application.ScreenUpdating = True
    Me.Repaint
End Sub

Sal  u dos

¡Gracias! Dante, voy a probarla y te cuento en un momento.

Hola Dante, muchas gracias por la macro, funciona muy bien. Me permite seleccionar la fotografía y colocarla en el control image.

Sin embargo, no está copiando la foto en la ubicación donde se encuentra el fichero que contiene el formulario.

Las fotos por ser tomadas con una web cam, entonces, se almacenan por defecto en una ubicacion con un nombre definido por ese software, yo debo ir a esa ubicación, seleccionar la imagen y cargarla en el control image, una vez eso, entonces al guardarla, se debe renombrar con el texto del txtcedula y se debe copiar la foto en la ubicación del fichero que contiene el formulario.

Solo me falta ese detalle. Muchas gracias por tu paciencia.

Luis Carlos