GetConnectionInformation 方法示例

下列示例获得Oval对象Oval1的第一个连接的连接信息。

Dim sPropName As String

Dim sSource As String

Dim sFullQualSource As String

Dim vSourceObjs As Variant

Dim vTolerance As Variant

Dim vDeadBand As Variant

Dim vUpdateRate As Variant

Oval1.GetConnectionInformation 1, sPropName, sSource, sFullQualSource, vSourceObjs, vTolerance, vDeadBand, vUpdateRate