Método Page.DropLinked (Visio)

Retorna uma nova forma na página de desenho vinculada aos dados de um conjunto de registros de dados.

Observação

This Visio object or member is available only to licensed users of Visio Professional 2013.

Sintaxe

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

Expressão Uma expressão que retorna um objeto Page .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
ObjectToDrop	Obrigatório	[DESCONHECIDO]	O objeto a ser solto. Embora este seja normalmente um objeto Visio, como um objeto Mestre, Forma ou Seleção ; pode ser qualquer objeto OLE que forneça uma interface IDataObject .
x	Obrigatório	Double	A coordenada x na qual deve ser colocado o centro da largura da forma ou PinX.
y	Obrigatório	Double	A coordenada y na qual deve ser colocado o centro da altura da forma ou PinY.
DataRecordsetID	Obrigatório	Long	A identificação do conjunto de registros de dados contendo os dados com os quais você deseja estabelecer um vínculo.
DataRowID	Obrigatório	Long	A identificação da linha de dados contendo os dados com os quais você deseja estabelecer um vínculo.
ApplyDataGraphicAfterLink	Obrigatório	Boolean	Se o gráfico de dados atual deve ser aplicado à forma vinculada. O padrão é não aplicar um gráfico de dados. Consulte Comentários para obter mais informações.

Valor de retorno

Forma

Comentários

Quando você deseja criar formas já vinculadas a dados em uma página de desenho que não contém formas ou contém formas diferentes daquelas que você deseja vincular, você pode usar os métodos Page.DropLinked e Page.DropManyLinkedU para criar uma ou mais formas adicionais já vinculadas aos dados. Esses métodos se assemelham aos métodos Page.Drop e Page.DropManyU existentes, pois eles criam formas adicionais em um local especificado na página; mas, além disso, eles criam links entre as novas formas e as linhas de dados especificadas em um conjunto de registros de dados especificado.

Quando o objeto passado para o parâmetro ObjectToDrop for uma forma, o centro da caixa resultante de largura e altura da forma será posicionado nas coordenadas especificadas e um objeto Shape que representa a forma criada será retornado.

Se ObjectToDrop for um Master, o pino do mestre será posicionado nas coordenadas especificadas. Frequentemente, mas não necessariamente, o marco de um mestre está no seu centro de rotação.

Se você passar True para o parâmetro opcional ApplyDataGraphicsAfterLink, o Visio usará o gráfico de dados aplicado mais recentemente a qualquer outra forma no documento atual.

Exemplo

A macro a seguir do Microsoft Visual Basic for Applications (VBA) mostra como usar o método DropLinked para criar uma forma na página de desenho ativa, centralizada nas coordenadas de página (2, 2) e vinculada a uma linha de dados do conjunto de registros de dados adicionado mais recentemente ao documento ativo.

A forma passada para o método DropLinked é um retângulo simples do estêncil de Formas Básicas (unidades dos EUA). Antes de executar essa macro, use o método DataRecordsets.Add ou outro meio para adicionar pelo menos um conjunto de registros de dados à coleção DataRecordsets e verifique se o estêncil de Formas Básicas (unidades dos EUA) está aberto na janela de desenho do Visio. Neste exemplo, a identificação da linha de dados é definida como 1; antes de executar o código, verifique se existe uma linha com essa identificação ou altere o valor da identificação no 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.