How to check if Chart Exist in Current Sheet

[pedie]

Hi, currently 'm using the code below, however i do not want to use error to check if chart exists in the sheet.
Please suggest better code. I just want to check if chart exist in active sheet irrespective of any name...

thanks in advance

[FONT=Courier New][FONT=Courier New]Option Explicit
Public chartexist As Boolean
[/FONT][/FONT]Sub CheckIfChartExist()
    On Error GoTo Err1
    ActiveSheet.ChartObjects(1).Activate
    chartexist = True
    Range("A1").Select
    Exit Sub
Err1:
    chartexist = False
    Err.Clear
End Sub
Sub TestFunction()
CheckIfChartExist
If chartexist = False Then
MsgBox "False"
Else
MsgBox "True"
End If
End Sub

 

[Case_Germany]

Hi,

maybe with this code:

Option Explicit
Sub Main()
    If fncChartExist Then
        MsgBox "Yes!"
    Else
        MsgBox "No!"
    End If
End Sub
Function fncChartExist() As Boolean
    Dim shpShape As Shape
    For Each shpShape In ActiveSheet.Shapes
        If shpShape.Type = msoChart Then fncChartExist = True: Exit Function
    Next shpShape
End Function

 

[mikerickson]

Function SomeChartExists(Optional onWorksheet as Worksheet) As boolean
    If onWorksheet Is Nothing then Set onWorksheet = ActiveSheet
    
    SomeChartExits = Not(onWorksheet.ChartObjects.Count = 0)
Exit Function

 

[pedie]

Thanks Case, thanks Mike... works perfect!