Scaling y Resize con Imagenes Dinamicas
Publicado por Iván (2 intervenciones) el 14/01/2007 14:53:22
Hola, mi problema es el siguiente:
Uso VB 6.0 y CR XI. El informe tiene que mostrar imagenes dinamicas para cada registro. Los nombres de estas imagenes se encuentran en la BD y se muestran perfectamente con el siguiente código:
Private Sub Seccion_format(ByVal pFormattingInfo As Object)
Dim RutaFotos As String
RutaFotos = App.Path & "\imagenes\"
With Seccion.ReportObjects
Set .Item(1).FormattedPicture = LoadPicture(RutaFotos & .Item(3).Value)
End With
End Sub
Ahora bien, las images deben ajustarse a un objeto OLE que he insertado en el informe, el cual no puede cambiar de tamaño, siendo las imagenes que quiero mostrar mucho mayores que el tamaño del objeto OLE.
He intentado usar la propiedad Xscaling y YScaling, pero lo unico que consigo es que el tamaño del objeto OLE cambie,y esto no es lo que se pretende. El código para esto es el siguiente:
Report.Sections("DetailSection1").ReportObjects.Item(1).XScaling = 5
Report.Sections("DetailSection1").ReportObjects.Item(1).YScaling = 1
Lo que intento es que cambie el tamaño de la imagen manteniendo su proporcion, pero ajustandose al tamaño del objeto OLE.
Muchas gracias de antemano.
Uso VB 6.0 y CR XI. El informe tiene que mostrar imagenes dinamicas para cada registro. Los nombres de estas imagenes se encuentran en la BD y se muestran perfectamente con el siguiente código:
Private Sub Seccion_format(ByVal pFormattingInfo As Object)
Dim RutaFotos As String
RutaFotos = App.Path & "\imagenes\"
With Seccion.ReportObjects
Set .Item(1).FormattedPicture = LoadPicture(RutaFotos & .Item(3).Value)
End With
End Sub
Ahora bien, las images deben ajustarse a un objeto OLE que he insertado en el informe, el cual no puede cambiar de tamaño, siendo las imagenes que quiero mostrar mucho mayores que el tamaño del objeto OLE.
He intentado usar la propiedad Xscaling y YScaling, pero lo unico que consigo es que el tamaño del objeto OLE cambie,y esto no es lo que se pretende. El código para esto es el siguiente:
Report.Sections("DetailSection1").ReportObjects.Item(1).XScaling = 5
Report.Sections("DetailSection1").ReportObjects.Item(1).YScaling = 1
Lo que intento es que cambie el tamaño de la imagen manteniendo su proporcion, pero ajustandose al tamaño del objeto OLE.
Muchas gracias de antemano.
Valora esta pregunta
0