Propriedade Shape.Data3 (Visio)
Obtém ou define o valor do campo Data3 para um objeto Shape . Leitura/gravação.
Sintaxe
expression. Data3
Expressão Uma variável que representa um objeto Shape .
Valor de retorno
Cadeia de caracteres
Comentários
Use a propriedade Data3 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 Data3 é equivalente a inserir informações na caixa Dados 3 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.