Insertar imagen en informe vista preliminar
Publicado por Dun24 (5 intervenciones) el 26/04/2015 23:08:20
Qué tal, cómo puedo insertar o cambiar una imagen en el informe vista prelimnar
Valora esta pregunta


0
Private Sub Xxxxxx_Format(Cancel As Integer, FormatCount As Integer)
On Error Resume Next
If Me.txtImagen<> "" Then 'Suponemos que la ruta a la imagen está en un campo
If Dir(Me.txtImagen) <> "" Then 'Comprobamos que existe el archivo
Me.imgImagen.Visible = True 'Hacemos visible el control
Me.imgImagen.Picture = Me.txtFoto 'Le asignamos el archivo
Else 'Si no existe la imagen
Me.imgImagen.Picture = ""
Me.imgImagen.Visible = False
End If
Else 'O si no está especificada en txtImagen
Me.imgImagen.Picture = ""
Me.imgImagen.Visible = False
End If
End Sub