通过

Document.Drop 方法 (Visio)

  • 项目

通过将对象拖放到 接收对象（ 例如模具或文档）或 Masters 或 MasterShortcuts 集合上，创建新的 Master 对象。

语法

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

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

参数

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

返回值

Master

备注

使用 Drop 方法与使用鼠标移动形状类似。 ( ObjectToDrop) 丢弃的对象可以是绘图页上的主控形状或形状。

如果 ObjectToDrop 是一个 Master，则将该主控形状的旋转中心点放置在指定的坐标处。 主控形状的旋转中心点通常（但不一定）位于它的旋转中心。

若要在模具中创建新的主控形状，请将 Drop 方法应用于代表模具（模具必须以原始或副本形式打开，而不是以只读形式打开）的 Document 对象。 在这种情况下，将忽略 xPos 和 yPos 参数，并返回创建的新主控形状。

示例

以下示例显示如何使用 Drop 方法通过将形状放置在 Document 对象上来创建主控形状。

 
Public Sub Drop_Example() 
 
    Dim vsoShape As Visio.Shape  
    Dim vsoMaster As Visio.Master  
 
    Set vsoShape = ActivePage.DrawRectangle(1, 2, 2, 1)  
 
    'Create a master in the document.  
    'The master appears on the document stencil.  
    Set vsoMaster = ActiveDocument.Drop(vsoShape, 0, 0)  
 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。