マップやフィーチャの範囲はEnvelopeオブジェクトで取得することができますが，これをPolylineやPolygonに変換したいときに使う方法。SetRectangleにEnvelopeをセットすればオブジェクトが生成されます。簡単なんだけど，忘れがちなメソッド。
Dim pEnvelope As IEnvelope Set pEnvelope = New Envelope Dim pSegmentCollection Ss ISegmentCollection 'Set pSegmentCollection = New Polyline Set pSegmentCollection = New Polygon Set pSegmentCollection.SetRectangle = pEnvelope
