HybridShapeExistsInHybridBody
From scripting
Function HybridShapeExistsInHybridBody(InputStr As String, CurSet as HybridBody) As Boolean On Error GoTo blast Set HHH = CurSet.HybridShapes.Item(InputStr) HybridShapeExists = True Exit Function blast: HybridShapeExists = False End Function