I have the following snippet of code:

With oWS
If .OLEObjects.Count 0 Then
For i = 1 To .OLEObjects.Count
Debug.Print .OLEObjects(i).Name

Next i
End If
End With

I really want to know if the OLEObject is an Excel chart? How do I do that?

Thanks,
Barb Reinhardt

MsgBox ActiveSheet.ChartObjects.Count

--
Jim
"Barb Reinhardt" wrote in message
...
|I have the following snippet of code:
|
| With oWS
| If .OLEObjects.Count 0 Then
| For i = 1 To .OLEObjects.Count
| Debug.Print .OLEObjects(i).Name
|
| Next i
| End If
| End With
|
| I really want to know if the OLEObject is an Excel chart? How do I do
that?
|
| Thanks,
| Barb Reinhardt
|

Hello Barb
Why not use the ChartObjects method?

For i = 1 To oWS.ChartObjects.Count
MsgBox oWS.ChartObjects(i).Name
Next i

HTH
Cordially
Pascal

"Barb Reinhardt" a écrit dans le
message de news: ...
I have the following snippet of code:

With oWS
If .OLEObjects.Count 0 Then
For i = 1 To .OLEObjects.Count
Debug.Print .OLEObjects(i).Name

Next i
End If
End With

I really want to know if the OLEObject is an Excel chart? How do I do
that?

Thanks,
Barb Reinhardt

I believe I've figured out what I need.
Thanks,
Barb Reinhardt



"papou" wrote:

Hello Barb
Why not use the ChartObjects method?

For i = 1 To oWS.ChartObjects.Count
MsgBox oWS.ChartObjects(i).Name
Next i

HTH
Cordially
Pascal

"Barb Reinhardt" a écrit dans le
message de news: ...
I have the following snippet of code:

With oWS
If .OLEObjects.Count 0 Then
For i = 1 To .OLEObjects.Count
Debug.Print .OLEObjects(i).Name

Next i
End If
End With

I really want to know if the OLEObject is an Excel chart? How do I do
that?

Thanks,
Barb Reinhardt