Propriedade Shape.Data1 (Visio)

Obtém ou define o valor do campo Data1 para um objeto Shape. Leitura/gravação.

Sintaxe

expression. Data1

Expressão Uma variável que representa um objeto Shape .

Valor de retorno

Cadeia de caracteres

Comentários

Use a propriedade Data1 para fornecer informações adicionais sobre a forma. A propriedade pode conter até 64 KB de caracteres. Os controles de texto devem ser usados cuidadosamente com uma cadeia de caracteres que contenha mais de 3.000 caracteres. Definir a propriedade Data1 é equivalente a inserir informações na caixa Dados 1 na caixa de diálogo Especial (clique em Nome da Forma no grupo Design de Forma na guia Desenvolvedor ).

Exemplo

Esta macro do Microsoft VBA (Visual Basic for Applications) mostra como definir as propriedades Data1, Data2 e Data3 de uma forma. Ela imprimi os valores dessas propriedades na janela Immediate. Você também pode verificar se esses valores foram definidos abrindo a caixa de diálogo Especial.

Public Sub Data123_Example() 
 
 Dim vsoPage As Visio.Page 
 Dim vsoShape As Visio.Shape 
 
 Set vsoPage = Documents.Add("").Pages(1) 
 Set vsoShape = vsoPage.DrawRectangle(3, 3, 5, 5) 
 
 'Use the Data1, Data2, and Data3 properties to set 
 'the shape's Data fields. 
 vsoShape.Data1 = "Data1_String" 
 vsoShape.Data2 = "Data2_String" 
 vsoShape.Data3 = "Data3_String" 
 
 'Use the Data1, Data2, and Data3 properties to verify 
 'the shape's Data field values. 
 Debug.Print vsoShape.Data1 
 Debug.Print vsoShape.Data2 
 Debug.Print vsoShape.Data3 
 
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.