Page.Drop 方法 (Visio)

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

语法

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

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

参数

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

返回值

Shape

说明

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