How to detect which object has been selected

[paik1002]

I'd like to detect(1,2,3) if the selection is one of the following objects:


1. image (inlineshapes)
2. figure (circle)
3. text

I am thinking in the line of(pseudo-code):
if selection is an image type, then do something...
else if selection is a figure type (circle), then do something...
else if selection is text, then do something...
else show msgbox alerting none of the above was selected

Can it be done?

[macropod]

The Selection.Type property returns one of 9 values:
0 No selection.
1 An inline paragraph selection.
2 A normal or user-defined selection.
3 A frame selection.
4 A column selection.
5 A row selection.
6 A block selection.
7 An inline shape selection.
8 A shape selection