RE:Eliminar espacio imagenes informes
Hola María:
No es que no quiera nadie ayudarte es que el tema el algo complicado teniendo en cuenta, como tu mencionas, que los controles OLE no tienen la propiedad Autoextensible y Autocomprimible.
Existe una posibilidad de hacerlo pero el inconveniente es que solo podrías mostrar un registro por página del informe, o sea que en la Sección "Detalle" del informe tendrías que poner en la propiedad "Forzar nueva página: Antes de la sección", para que solo muestre un registro en cada página.
El asunto consiste en hacer invisible el Marco de Objeto Dependiente y mover los cuadros de texto y sus etiquetas (si las tienen) a la parte superior de la Sección Detalle cuando no haya foto y volver a hacer visible dicho marco y colocar en su lugar habitual las etiquetas y los cuadros de texto cuando si haya foto, utilizando la propiedad "Move" que tienen todos los controles.
Hay que tener en cuenta que en el cuadro de dialogo "Propiedades", la posición y dimensiones de los cuadros de texto están en Centímetros, pero al programar en la ventana de VBA dichas medidas hay que ponerlas en "Twips". Un Centímetro equivale a 567 Twips. El Evento donde hay que realizar la programación para mover los cuadros de texto y etiquetas es "Al dar Formato" de la Sección Detalle:
Private Sub Detalle_Format(Cancel As Integer, FormatCount As Integer)
Si crees que con esto solucionarías tu problema, puedo enviarte un ejemplo para que lo veas, donde he usado el Campo "Foto" de la Tabla "Empleados" de la base de Datos Neptuno y añadiendo un Informe para hacer el ejemplo.
Un saludo
Enrique
Crear cuenta