Page.Drop メソッド (Visio)

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

構文

Drop (ObjectToDrop, xPos, yPos)

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

パラメーター

名前 必須 / オプション データ型 説明
ObjectToDrop 必須 [不明] ドロップするオブジェクトまたは選択方法です。 これには通常、MasterShapeSelection オブジェクトなどの 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 のサポートおよびフィードバックを参照してください。