modificar imagen de un informe con vb6.0
Publicado por rubenagui (1 intervención) el 27/07/2004 12:15:34
Alguien sabe como modificar una imagen que esta en un informe de access con visual basic. Gracias.
Valora esta pregunta


0
Dim objAccess As Access.Application
Dim objReport As Access.Report
Dim objImage As Access.Image
Set objAccess = New Access.Application
objAccess.OpenCurrentDatabase "C:\Ruta\Al\Archivo.mdb" ' Ruta y nombre del archivo de base de datos de Access
' Abre el informe deseado
Set objReport = objAccess.CurrentProject.Reports("NombreDelInforme")
' Accede al control de imagen
Set objImage = objReport.Controls("NombreDelControlDeImagen")
' Modifica la imagen
objImage.Picture = "C:\Ruta\A\Nueva\Imagen.jpg" ' Ruta y nombre del archivo de la nueva imagen
' Cierra la base de datos de Access
objAccess.CloseCurrentDatabase
Set objAccess = Nothing