Visio (的 Page.Drop 方法)
藉由將物件放在主圖形、繪圖頁、圖形或群組等接收物件上,建立一或多個新的 Shape 物件。
運算式。卸 (ObjectToDrop、 xPos、 yPos)
表達 代表 Page 物件的變數。
名稱 | 必要/選用 | 資料類型 | 描述 |
---|---|---|---|
ObjectToDrop | 必要 | [UNKNOWN] | 要卸載的物件或選取範圍。 雖然這通常是 Visio 物件,例如 Master、 Shape或 Selection 物件,但它可以是提供 IDataObject 介面的任何 OLE 物件。 |
xPos | 必要 | 雙精確度 | 放置圖形寬度中心或 PinX 的 x 座標。 |
yPos | 必要 | 雙精確度 | 放置圖形高度中心或 PinY 的 y 座標。 |
圖形
使用 Drop 方法類似以滑鼠移動圖形。 放置的物件 (ObjectToDrop) 可以是繪圖頁面上的一個主圖形或圖形。
若要將圖形加入群組或繪圖頁面上,請分別將 Drop 方法套用至 Shape 或 Page 物件。 圖形寬度高度方塊的中心位於指定的座標上,而且會傳回代表所建立之圖案的 Shape 物件。 將這個方法套用至 Shape 物件時,請確定 Shape 物件代表群組。
如果 ObjectToDrop 是一個 Master,主圖形的針會放在指定的座標上。 主圖形的針腳通常 (但不一定) 位於它的旋轉中心上。
如果您的 Visual Studio 解決方案包含 Microsoft.Office.Interop.Visio 參考,此方法會對應至下列類型:
- Microsoft.Office.Interop.Visio.IVPage.Drop (物件、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 支援與意見反應。