Método Shape.IsCustomPropertyLinked (Visio)

Retorna se a linha de dados de forma (propriedade personalizada) na seção Dados de Forma da planilha ShapeSheet da forma está vinculada a uma linha de dados no conjunto de registros de dados especificado.

Observação

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

Sintaxe

expression. IsCustomPropertyLinked( _DataRecordsetID_ , _CustomPropertyIndex_ )

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
DataRecordsetID	Obrigatório	Long	A identificação do conjunto de registros de dados contendo a linha de dados.
CustomPropertyIndex	Obrigatório	Long	O índice da linha de dados da forma (propriedades personalizadas) na seção Shape Data do ShapeSheet da forma.

Valor de retorno

Booliano

Comentários

Chame esse método antes de chamar o método GetCustomPropertyLinkedColumn para garantir que o item de dados de forma (linha de propriedade personalizada) esteja realmente vinculado a uma coluna de dados.

Observação

Em algumas versões anteriores do Visio, os dados da forma eram chamados de propriedades personalizadas.

Saber como as formas são vinculadas aos dados poderá ajudar a evitar conflitos e vínculos desfeitos quando você atualizar os dados em um ou mais conjuntos de registros de dados.

Exemplo

A macro do Microsoft Visual Basic for Applications (VBA) a seguir mostra como usar o método IsCustomPropertyLinked para determinar se a linha de propriedade personalizada de uma forma está vinculada a uma linha de dados em um conjunto de registros de dados.

Antes de executar essa macro, adicione pelo menos um conjunto de registros de dados à coleção DataRecordsets do documento. A macro solta uma forma e testa se o primeiro item de dados da forma está vinculado a uma linha de dados do conjunto de registros de dados adicionado mais recentemente à coleção, imprimindo o resultado na janela Immediate. O teste falhará, pois a forma não foi vinculada aos dados. Em seguida, a forma é vinculada aos dados do conjunto de registros de dados adicionado mais recentemente e o teste é reexecutado.

Public Sub IsCustomPropertyLinked_Example() 
 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim vsoShape As Visio.Shape 
    Dim intCount As Integer 
    Dim boolIsLinked As Boolean 
         
    intCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intCount) 
     
    Set vsoShape = ActivePage.DrawRectangle(2, 2, 4, 4) 
     
    boolIsLinked = vsoShape.IsCustomPropertyLinked(vsoDataRecordset.ID, 1) 
     
    Debug.Print boolIsLinked 
     
    vsoShape.LinkToData vsoDataRecordset.ID, 1, True 
    boolIsLinked = vsoShape.IsCustomPropertyLinked(vsoDataRecordset.ID, 1) 
     
    Debug.Print boolIsLinked 
     
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.