DoesPropertyHaveTargets 方法示例

下列示例确定Oval对象Oval1的VerticalFillPercentage属性是否有目标对象连接，如果有，则保留有关目标的信息。

Dim bHasTargets As Boolean

Dim lNumOfTargets As Long

Dim lStatus As Long

Dim lIndex As Long

Oval1.DoesPropertyHaveTargets "VerticalFillPercentage", bHasTargets, lNumOfTargets, lStatus, lIndex