Page.Drop メソッド (Visio)
オブジェクトを、マスター、図面ページ、図形、グループなどの受信オブジェクトにドロップして、1 つ以上の新しい Shape オブジェクトを作成します。
式。Drop (ObjectToDrop, xPos, yPos)
式Page オブジェクトを表す変数。
名前 | 必須 / オプション | データ型 | 説明 |
---|---|---|---|
ObjectToDrop | 必須 | [不明] | ドロップするオブジェクトまたは選択方法です。 これには通常、Master、Shape、Selection オブジェクトなどの Visio オブジェクトを指定しますが、IDataObject インターフェイスを提供する OLE オブジェクトも指定できます。 |
xPos | 必須 | Double | 図形の幅の中央位置の x 座標、または PinX です。 |
yPos | 必須 | Double | 図形の高さの中央位置の y 座標、または PinY です。 |
Shape
Drop メソッドを使用するということは、マウスを使って図形を移動する操作と同じになります。 ドロップしたオブジェクト (ObjectToDrop) は、マスター シェイプまたは図面ページ上の図形にすることができます。
図形をグループまたは図面ページに追加するには、 それぞれ Drop メソッドを Shape オブジェクトまたは Page オブジェクトに適用します。 図形の幅と高さのボックスの中心が指定した座標に配置され、作成された図形を表す Shape オブジェクトが返されます。 このメソッドを Shape オブジェクトに適用する場合は、 Shape オブジェクトがグループを表していることを確認します。
ObjectToDrop が Master の場合、 マスターシェイプのピンは指定した座標にドロップされます。 マスター シェイプの Pin は、多くの場合回転の中心になりますが、中心にならない場合もあります。
Visual Studio ソリューションに Microsoft.Office.Interop.Visio リファレンスが含まれている場合、このメソッドは次の種類にマップされます。
- Microsoft.Office.Interop.Visio.IVPage.Drop(object, double, double)
次の例は、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 のサポートおよびフィードバックを参照してください。