水晶报表VB中链如OLE对象如图片等，并对其进行属性操作

' 创建一个新的报表实例

Dim oReport As New CrystalReport1

Private Sub Form_Load()

' 声明一个新的OLE对象

Dim oOleObject As craxdrt.OLEObject

' 声明一个普通对象

Dim oObject As Object

' 声明一个节对象.

Dim oSection As craxdrt.Section

' 当OLE对象找到时，这个变量设为TRUE.

Dim bOle As Boolean

bOle = False

' 在每个节中寻找所有报表对象

For Each oSection In oReport.Sections

    For Each oObject In oSection.ReportObjects

        ' 找到第一个OLE对象.

        If oObject.Kind = craxdrt.crOLEObject Then

       &