Page.Drop メソッド (Visio)

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

構文

式。Drop (ObjectToDrop, xPos, yPos)

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

パラメーター

戻り値

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 のサポートおよびフィードバックを参照してください。