選択中の図形(Shape)を処理する - ShapeRange

Selection(図形)をFor Each文でループする際、各図形をShapeオブジェクトとして取得するにはShapeRangeプロパティを使用します。このオブジェクトはShapesコレクションと同じように扱うことが出来ます。