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 de Dante Amor
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
