worksheet is chart? 2

[venkman]

How can you tell if a sheet is a chart. For instance, I'm looking for the code for the function:

public function isChart(mySheet as variant) as boolean
...
end function

public sub tester()
dim myVar as variant
set myvar = sheets(1)
if isChart(myvar) then
msgbox "chart title is: " & myvar.Charttitle.Caption
else
msgbox "chart title is: " & _
myvar.Chartobjects(1).Chart.Charttitle.Caption
end if
end sub


Thanks,
Venkman

 

[acron]

Something like this has come up recently, but try the following function :

Function IsChart(oSheet As Variant) As Boolean
    If TypeName(oSheet) = "Chart" Then
        IsChart = True
    Else
        IsChart = False
    End If
End Function

and use something like

MsgBox IsChart(ActiveSheet)

A.C.

 

[SkipVought]

Hi,

Try this...

Public Function isChart(mySheet As Object) As Boolean
    If mySheet.Type = 3 Then
        isChart = True
    Else
        isChart = False
    End If
End Function

Skip,
SkipAndMary1017@mindspring.com

 

[venkman]

acron, tried your message and it worked great. Skip, didn't try yours, but I assume it works fine also. Giving you both stars.

Thanks,
Venkman

 

[venkman]

oh, wrote that too fast meant to say "method" not "message".