ExcelVBAで矢印を選択する方法

ワークシートに複数のオートシェイプがあり、矢印をすべて選択したいのですが、
（挿入タブ→図→図形→線→矢印(左から2番目)）
どのように選択することができますか。

楕円であれば、下記コードで選択することができました。
同じように矢印も選択することができるのでしょうか。
Sub test()
Dim c As Shape
For Each c In ActiveSheet.Shapes
If c.AutoShapeType = msoShapeOval Then
　処理
End If
Next
End Sub

No.1 ベストアンサー 回答者： WindFaller 回答日時： 2016/08/28 16:19

これで、通るはずです。

10000　というのは、組み込み定数のMsoShapeStyleIndex(列挙型)の
線のスタイルのことです。

'//
Sub TestArrowSelect()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
　　 If shp.ShapeStyle > 10000 The
　　　shp.Select False
　 End If
Next shp
End Sub

この回答へのお礼

ありがとうございます。
どうしてもMsoShapeの部分が分からなかったのですが、教えて頂いたコードで矢印を選択出来ました。

お礼日時：2016/08/28 17:36