調べるのが面倒だったので覚書
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