Método Page.DropLinked (Visio)

Devuelve una nueva forma de la página del dibujo vinculada a los datos de un conjunto de registros de datos.

Nota:

Este objeto o miembro Visio solo se encuentra disponible para los usuarios con licencia de Visio Professional 2013.

Sintaxis

expresión. DropLinked( _ObjectToDrop_ , _x_ , _y_ , _DataRecordsetID_ , _DataRowID_ , _ApplyDataGraphicAfterLink_ )

Expresión Expresión que devuelve un objeto Page .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
ObjectToDrop	Obligatorio	[UNKNOWN]	Objeto que se va a colocar. Aunque normalmente se trata de un objeto de Visio, como un objeto Master, Shape o Selection ; puede ser cualquier objeto OLE que proporcione una interfaz IDataObject .
x	Obligatorio	Double	Coordenada x en la que se situará el centro del ancho de la forma o PinX.
y	Obligatorio	Double	Coordenada y en la que se situará el centro del alto de la forma o PinY.
DataRecordsetID	Necesario	Long	Identificador del conjunto de registros de datos que contiene los datos que se vincularán.
DataRowID	Necesario	Long	Identificador de la fila de datos que contiene los datos que se vincularán.
ApplyDataGraphicAfterLink	Obligatorio	Boolean	Si se aplicará el gráfico de datos actual a la forma vinculada. El valor predeterminado es no aplicar un gráfico de datos. Vea Comentarios para obtener más información.

Valor devuelto

Forma

Comentarios

Si desea crear formas ya vinculadas a datos en una página de dibujo que no contenga ninguna forma o que contenga formas distintas de las que desea vincular, puede usar los métodos Page.DropLinked y Page.DropManyLinkedU para crear una o varias formas adicionales ya vinculadas a los datos. Estos métodos son similares a los métodos Page.Drop y Page.DropManyU existentes en que crean formas adicionales en una ubicación especificada de la página; pero además, crean vínculos entre las nuevas formas y las filas de datos especificadas en un conjunto de registros de datos especificado.

Cuando el objeto que se pasa para el parámetro ObjectToDrop es una forma, el centro del cuadro de alto y ancho resultante de la forma se sitúa en las coordenadas especificadas, y se devuelve un objeto Shape que representa la forma creada.

Si ObjectToDrop es un objeto Master, el eje del patrón se coloca en las coordenadas especificadas. Normalmente, aunque no necesariamente, el eje de un patrón se sitúa en su centro de giro.

Si se pasa True para el parámetro ApplyDataGraphicsAfterLink opcional, Visio aplicará el último gráfico de datos que se haya aplicado a cualquier otra forma del documento activo.

Ejemplo:

En la siguiente macro de Microsoft Visual Basic para Aplicaciones (VBA) se muestra cómo utilizar el método DropLinked para crear una forma en la página de dibujo activa, centrada con respecto a las coordenadas de la página (2, 2) y vinculada a una fila de datos del último conjunto de registros de datos que se haya agregado al documento activo.

La forma que se pasa al método DropLinked es un rectángulo simple de la galería de símbolos Formas básicas (unidades de EE. UU. ). Antes de ejecutar esta macro, use el método DataRecordsets.Add u otro medio para agregar al menos un conjunto de registros de datos a la colección DataRecordsets y asegúrese de que la galería de símbolos Formas básicas (unidades US) está abierta en la ventana de dibujo de Visio. En este ejemplo, el identificador de la fila de datos se establece en 1; antes de ejecutar el código, asegúrese de que exista una fila con ese identificador o bien modifique el valor del identificador en el código.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.