Shape.Drop メソッド (Visio)

オブジェクトを、マスター、図面ページ、図形、グループなどの受信オブジェクトにドロップして、1 つ以上の新しい Shape オブジェクトを作成します。

構文

式。Drop (ObjectToDrop, xPos, yPos)

式Shape オブジェクトを表す変数。

パラメーター

名前	必須 / オプション	データ型	説明
ObjectToDrop	必須	[不明]	ドロップするオブジェクトまたは選択方法です。 これには通常、Master、Shape、Selection オブジェクトなどの Visio オブジェクトを指定しますが、IDataObject インターフェイスを提供する OLE オブジェクトも指定できます。
xPos	必須	Double	図形の幅の中央位置の x 座標、または PinX です。
yPos	必須	Double	図形の高さの中央位置の y 座標、または PinY です。

戻り値

Shape

注釈

Drop メソッドを使用するということは、マウスを使って図形を移動する操作と同じになります。 ドロップされたオブジェクト ( ObjectToDrop) は、図面ページ上のマスターシェイプまたはシェイプにすることができます。

図形をグループまたは図面ページに追加するには、 Drop メソッドを Shape オブジェクトに適用します。 図形の幅と高さのボックスの中心が指定した座標に配置され、作成された図形を表す Shape オブジェクトが返されます。 このメソッドを Shape オブジェクトに適用する場合は、 Shape オブジェクトがグループを表していることを確認します。

ObjectToDrop が Master の場合、マスターシェイプのピンは指定した座標にドロップされます。 マスター シェイプの Pin は、多くの場合回転の中心になりますが、中心にならない場合もあります。

例

次の例は、Drop メソッドを使用して Page オブジェクトおよび Shape オブジェクトに図形をドロップする方法を示します。

 
Public Sub Drop_Example() 
 
 Dim vsoShape1 As Visio.Shape 
 Dim vsoShape2 As Visio.Shape 
 Dim vsoShape3 As Visio.Shape 
 Dim vsoGroupShape As Visio.Shape 
 Dim vsoSubShape As Visio.Shape 
 Dim vsoSelection As Visio.Selection 
 
 Set vsoShape1 = ActivePage.DrawRectangle(1, 2, 2, 1) 
 Set vsoShape2 = ActivePage.DrawRectangle(1, 4, 2, 3) 
 
 'Drop a shape on the page. 
 Set vsoShape3 = ActivePage.Drop(vsoShape1, 3.5, 3.5) 
 
 'Make sure only one shape is selected to start. 
 Set vsoSelection = ActiveWindow.Selection 
 vsoSelection.Select vsoShape1, visDeselectAll + visSelect 
 vsoSelection.Select vsoShape2, visSelect 
 
 'Create a group shape. 
 Set vsoGroupShape = vsoSelection.Group 
 
 'Drop a shape on the group shape to create a new subshape. 
 Set vsoSubShape = vsoGroupShape.Drop(vsoShape3, 1, 2) 
 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。