Finding Embedded Object Type in Worksheet

[Guest]

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

 

[Jim Rech]

MsgBox ActiveSheet.ChartObjects.Count

--
Jim
|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
|

 

[papou]

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

 

[Guest]

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