閱讀英文

共用方式為


Visio (的 Page.Drop 方法)

藉由將物件放在主圖形、繪圖頁、圖形或群組等接收物件上,建立一或多個新的 Shape 物件。

語法

運算式 (ObjectToDropxPosyPos)

表達 代表 Page 物件的變數。

參數

名稱 必要/選用 資料類型 描述
ObjectToDrop 必要 [UNKNOWN] 要卸載的物件或選取範圍。 雖然這通常是 Visio 物件,例如 MasterShapeSelection 物件,但它可以是提供 IDataObject 介面的任何 OLE 物件。
xPos 必要 雙精確度 放置圖形寬度中心或 PinX 的 x 座標。
yPos 必要 雙精確度 放置圖形高度中心或 PinY 的 y 座標。

傳回值

圖形

註解

使用 Drop 方法類似以滑鼠移動圖形。 放置的物件 (ObjectToDrop) 可以是繪圖頁面上的一個主圖形或圖形。

若要將圖形加入群組或繪圖頁面上,請分別將 Drop 方法套用至 ShapePage 物件。 圖形寬度高度方塊的中心位於指定的座標上,而且會傳回代表所建立之圖案的 Shape 物件。 將這個方法套用至 Shape 物件時,請確定 Shape 物件代表群組。

如果 ObjectToDrop 是一個 Master,主圖形的針會放在指定的座標上。 主圖形的針腳通常 (但不一定) 位於它的旋轉中心上。

如果您的 Visual Studio 解決方案包含 Microsoft.Office.Interop.Visio 參考,此方法會對應至下列類型:

  • Microsoft.Office.Interop.Visio.IVPage.Drop (物件、double、double)

範例

下列範例將示範如何使用 Drop 方法,將圖形放到 PageShape 物件上。

 
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 支援與意見反應