調べるのが面倒だったので覚書
| Shape.Typeプロパティ | 値 |
|---|---|
| msoShapeTypeMixed | -2 |
| msoAutoShape | 1 |
| msoCallout | 2 |
| msoChart | 3 |
| msoComment | 4 |
| msoFreeform | 5 |
| msoGroup | 6 |
| msoEmbeddedOLEObject | 7 |
| msoFormControl | 8 |
| msoLine | 9 |
| msoLinkedOLEObject | 10 |
| msoLinkedPicture | 11 |
| msoOLEControlObject | 12 |
| msoPicture | 13 |
| msoPlaceholder | 14 |
| msoTextEffect | 15 |
| msoMedia | 16 |
| msoTextBox | 17 |
| msoScriptAnchor | 18 |
| msoTable | 19 |
| msoCanvas | 20 |
| msoDiagram | 21 |
| msoContentApp | 27 |
下記のように判定する。
選択したシェイプのShape.TypeプロパティがmsoAutoShapeの場合：
イミディエイトウィンドウ
?ActiveWindow.Selection.ShapeRange.Type
1