オートシェイプの内、円形だけ選択する

---

オートシェイプの内、円形だけ選択する

オートシェイプの内、円形の図形だけを選択します。

Sub Sample96()
Dim C As Shape
For Each C In ActiveSheet.Shapes
　　If C.AutoShapeType = msoShapeOval Then
　　　　C.Select False
　　End If
Next C
End Sub

エクセルＶＢＡテクニック集トップ

---