Option Explicit
Dim Report As CRAXDRT.Report
Dim CRapp As New CRAXDRT.Application
Private WithEvents oSection As CRAXDRT.Section
Dim pic1 As OLEObject
Dim I As Integer
Private Sub Form_Load()
Set Report = CRapp.OpenReport(App.Path + "\ElReporte.rpt")
Set oSection = Report.Sections("D")
For I = 1 To oSection.ReportObjects.Count
If oSection.ReportObjects(I).Kind = CRAXDRT.crOLEObject Then
Set pic1 = oSection.ReportObjects(I)
End If
Next I
CrystalActiveXReportViewer1.ReportSource = Report
CrystalActiveXReportViewer1.ViewReport
End Sub
Private Sub oSection_format(ByVal pFormattingInfo As Object)
Set pic1.FormattedPicture = LoadPicture("Aqui va la ruta de la imagen")
End Sub