Shape.Drop 方法 (Visio)

通过将对象拖放到接收对象（例如母版、绘图页、形状或组）上，创建一个或多个新的 Shape 对象。

语法

表达式。删除 (ObjectToDrop、 xPos、 yPos)

表达 一个代表 Shape 对象的变量。

参数

名称	必需/可选	数据类型	说明
ObjectToDrop	必需	[未知]	要放置的对象或选定内容。 尽管它通常是一个 Visio 对象（如 Master、Shape 或 Selection 对象），但它也可以是提供 IDataObject 接口的任何 OLE 对象。
xPos	必需	Double	放置形状宽度的中心的 x 轴坐标值或 PinX。
yPos	必需	Double	放置形状高度的中心的 y 轴坐标值或 PinY。

返回值

Shape

说明

使用 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。