水晶报表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

            ' 获取图片对象然后退出循环.

            Set oOleObject = oObject