通过

Page.DropLinked 方法 (Visio)

  • 项目

返回绘图页上链接到数据记录集中的数据的新建形状。

注意

此 Visio 对象或成员仅供 Visio Professional 2013 的授权用户使用。

语法

expression。 DropLinked( _ObjectToDrop_ , _x_ , _y_ , _DataRecordsetID_ , _DataRowID_ , _ApplyDataGraphicAfterLink_ )

表达 返回 Page 对象的表达式。

参数

名称 必需/可选 数据类型 说明
ObjectToDrop 必需 [未知] 要放置的对象。 虽然这通常是 Visio 对象，例如 母版、 形状或 Selection 对象;它可以是提供 IDataObject 接口的任何 OLE 对象。
x 必需 Double 放置形状宽度的中心的 x 轴坐标值或 PinX。
y 必需 Double 放置形状高度的中心的 y 轴坐标值或 PinY。
DataRecordsetID 必需 Long 包含要链接到的数据的数据记录集的 ID。
DataRowID 必需 Long 包含要链接到的数据的数据行的 ID。
ApplyDataGraphicAfterLink 必需 Boolean 是否将当前的数据图形应用到链接的形状。 默认设置是不应用数据图形。 有关详细信息，请参阅“注解”。

返回值

Shape

说明

如果想要在绘图页上创建已链接到数据的形状，该绘图页上不包含任何形状或包含要链接的形状以外的形状，则可以使用 Page.DropLinked 和 Page.DropManyLinkedU 方法创建一个或多个已链接到数据的其他形状。 这些方法类似于现有的 Page.Drop 和 Page.DropManyU 方法，因为它们在页面上的指定位置创建其他形状;此外，它们还会在新形状和指定数据记录集中的指定数据行之间创建链接。

当您为 ObjectToDrop 参数传递的对象是形状时，所生成的形状的宽度-高度框的中心将位于指定坐标处，并且将返回一个表示所创建形状的 Shape 对象。

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

如果为可选的 ApplyDataGraphicsAfterLink 参数传递 True，Visio 将应用在当前文档中最近对任何其他形状应用的数据图形。

示例

下面的 Microsoft Visual Basic for Applications (VBA) 宏演示如何使用 DropLinked 方法在活动绘图页上创建一个形状，该形状的中心位于页坐标 (2, 2) 处，而且该形状链接到最近添加到活动文档中的数据记录集中的数据行。

传递给 DropLinked 方法的形状是基本 形状 (美国单位) 模具中的 简单矩形。 运行此宏之前，请使用 DataRecordsets.Add 方法或其他方法将至少一个数据记录集添加到 DataRecordsets 集合，并确保在 Visio 绘图窗口中打开基本 形状 (美国单位) 模具。 在此示例中，数据行的 ID 设置为 1；在运行代码之前，请确保具有该 ID 的行已存在，或在代码中更改 ID 值。

Public Sub DropLinked_Example() 
 
    Dim vsoShape As Visio.Shape 
    Dim vsoMaster As Visio.Master 
    Dim dblX As Double 
    Dim dblY As Double  
    Dim lngDataRowID As Long 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim intRecordsetCount As Integer 
 
    intRecordsetCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intRecordsetCount) 
     
    Set vsoMaster = Visio.Documents("Basic_U.VSS").Masters("Rectangle") 
    dblX = 2 
    dblY = 2 
    lngDataRowID = 1 
 
    Set vsoShape = ActivePage.DropLinked(vsoMaster, dblX, dblY, vsoDataRecordset.ID, lngDataRowID, True) 
 
End Sub

支持和反馈

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