HybridShapeExists

From scripting
Jump to: navigation, search
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