Adjuntar foto y guardar en una celda

Mi consulta es si puedo adjuntar una foto y luego guardarla junto con los demás datos del formulario en la ultima fila en este caso la fila P que se ve en la foto...

1 Respuesta

Respuesta
2

Código en tu botón "Adjuntar foto", pero antes debes poner un control Image3 y un label19 en tu userform

Private Sub botonadjuntar_Click()
'Adjuntar foto
'Por.Dante Amor
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Seleccione archivo imagen"
        .Filters.Clear
        .Filters.Add "Todos", "*.*"
        .Filters.Add "imagen", "*.jp*"
        .FilterIndex = 2
        .AllowMultiSelect = False
        .InitialFileName = ThisWorkbook.Path
        If .Show Then
            archivo = .SelectedItems.Item(1)
            Image3.Picture = LoadPicture(archivo)
            Label19.Caption = archivo
        End If
    End With
End Sub

Código para poner la foto en la celda

    'COMBOS
    h.Cells(fila, 11).Value = Formulario.cbocriticidad.Value
    h.Cells(fila, 12).Value = Formulario.cbointervencion.Value
    h.Cells(fila, 14).Value = Formulario.cbotaq.Value
    h.Cells(fila, 15).Value = Formulario.cbodescripcionequipo.Value
    'poner foto
    arch = Label19.Caption
    If arch <> "" Then
        If Dir(arch) <> "" Then
            Set fotografia = h.Pictures.Insert(ruta & arch)
            '
            With fotografia
                '.Name = "foto de la imagen"
                .Top = h.Range("P" & fila).Top
                .Left = h.Range("P" & fila).Left
                .Width = h.Range("P" & fila).Width
                .Height = h.Range("P" & fila).Height
            End With
            '
            'eliminamos el objeto
            Set fotografia = Nothing
        End If
    End If
     'Incrementar número de informe
    numero = Val(txtninforme.Value) + 1
    txtninforme.Value = numero
    MsgBox "Datos Correctamente Ingresados"

sal u dos

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas