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