共用方式為

Visionio (Shape.Drop 方法)

透過將物件丟到接收物件上，如主圖、繪圖頁面、形狀或群組，來建立一個或多個新的 Shape 物件。

語法

表情。丟棄 (ObjectToDrop、 xPos、 yPos)

expression 一個用於表示 Shape 物件的變數。

參數

名稱 必要/選用 資料類型 描述
ObjectToDrop 必要 [未知] 要掉落的物品或選擇。 雖然這通常是 Visio 物件，如 主控物件、 形狀物件或 選擇 物件，但也可以是任何提供 IDataObject 介面的 OLE 物件。
xPos 必要 雙精確度 放置圖形寬度中心或 PinX 的 x 座標。
yPos 必要 雙精確度 放置圖形高度中心或 PinY 的 y 座標。

傳回值

圖形

註解

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

若要將形狀加入群組或繪圖頁面，請將 Drop 方法套用到 Shape 物件。 形狀寬高框的中心會被定位在指定的座標上，並回傳一個代表所建立形狀的 Shape 物件。 在將此方法應用於 Shape 物件時，請確保 Shape 物件代表一個群組。

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

範例

下列範例將示範如何使用 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 支援與意見反應。

  • Last updated on