Bien, no hay nada mejor que decidirse a preguntar en FDW para, minutos después encontrar la solución.
La clave reside en suponer que el monitor va a funcionar a 96 ppp. Por tanto:
Código:
If prop / maxProp < 1 Then
'Limitante la altura
alto = CInt(maxAlto * 96 / 1440)
ancho = 0
Else
'Limitante la anchura
ancho = CInt(maxAncho * 96 / 1440)
alto = 0
End If
Y luego quitar esto, ya que el marco de CR se ajusta solo a la imagen pasada:
Código:
rpt.ReportDefinition.Sections("Section3").ReportObjects("Foto").Width = redImg.Width
rpt.ReportDefinition.Sections("Section3").ReportObjects("Foto").Height = redImg.Height
Sólo una cuestión que hay que depurar. La imagen se queda borrosa al redimensionarla, generalmente hay que reducirla. ¿Cómo soluciono esto?
Gracias y un saludo.