Propriedade Cell.ResultStrU (Visio)

Obtém o valor de uma célula do ShapeSheet expressa como uma cadeia de caracteres universal. Somente leitura.

Sintaxe

expressão. ResultStrU (UnitsNameOrCode)

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
UnitsNameOrCode	Obrigatório	Variantes	As unidades a serem usadas ao recuperar o valor.

Valor de retorno

Cadeia de caracteres

Comentários

Obter a propriedade ResultStrU é semelhante a obter a propriedade Result de uma célula. A diferença é que a propriedade ResultStrU retorna uma cadeia de caracteres para o valor da célula, enquanto a propriedade Result retorna um número de ponto flutuante.

Você pode especificar UnitsNameOrCode como um valor de cadeia de caracteres ou inteiro. Se a cadeia de caracteres for inválida, é gerado um erro. Por exemplo, as seguintes instruções definiram UnitsNameOrCode como polegadas.

stringReturned = Cell.ResultStrU (visInches)

stringReturned = Cell.ResultStrU (65)

stringReturned = Cell.ResultStrU ("in") em que "in" também pode ser qualquer uma das cadeias de caracteres alternativas que representam polegadas, como "inch", "in.", ou "intCounter".

Para obter uma lista completa de sequências de texto de unidades válidas juntamente com constantes de automação correspondentes (valores inteiros), consulte Sobre unidades de medida.

As constantes de automação para representar unidades são declaradas pela biblioteca de tipos do Visio no Membro VisUnitCodes.

Passar um zero (0) é suficiente para obter o valor das células de cadeias de caracteres de texto.

Use a propriedade ResultStrU para converter entre unidades. Por exemplo, você pode obter o valor em polegadas e obter um valor equivalente em centímetros.

A propriedade ResultStrU é útil para preencher controles, como caixas de edição, com o valor de uma célula.

Observação

A partir do Microsoft Visio 2000, você pode usar nomes locais e universais para se referir a formas, mestres, documentos, páginas, linhas, complementos, células, hiperlinks, estilos, fontes, atalhos mestre, objetos UI e camadas do Visio. Quando um usuário nomeia uma forma, por exemplo, o usuário está especificando um nome local. A partir do Microsoft Office Visio 2003, a planilha ShapeSheet exibe apenas nomes universais em fórmulas de células e valores. (Em versões anteriores, os nomes universais não eram visíveis na interface do usuário.).

Como desenvolvedor, você poderá usar nomes universais em um programa quando não quiser alterar um nome a cada vez que uma solução for localizada. Use a propriedade ResultStr para obter o valor de um objeto expresso como uma cadeia de caracteres específica de localidade. Use a propriedade ResultStrU para obter o valor de um objeto expresso como uma cadeia de caracteres universal.

Exemplo

Esta macro do Microsoft Visual Basic for Applications (VBA) mostra duas maneiras diferentes de usar a propriedade ResultStrU para obter o valor de uma célula do ShapeSheet que contém um item de dados da forma (anteriormente, uma propriedade personalizada).

Para executar essa macro, abra um desenho em branco e o estêncil Computadores e Monitores (Unidades Americanas) e insira um formulário de usuário que contenha um rótulo, uma caixa de texto e uma caixa de listagem. Defina a largura da caixa de listagem para 150.

Observação

O estêncil computadores e monitores (unidades dos EUA) só está disponível em Visio Professional.

 
Public Sub ResultStrU_Example()  
 
    Dim vsoStencil As Visio.Document  
    Dim vsoMaster As Visio.Master  
    Dim vsoPages As Visio.Pages  
    Dim vsoPage As Visio.Page  
    Dim vsoShape As Visio.Shape  
    Dim vsoCell As Visio.Cell  
    Dim intRows As Integer 
    Dim intCounter As Integer 
 
    'Get the Pages collection for the document.  
    'ThisDocument refers to the current document.  
    Set vsoPages = ThisDocument.Pages  
 
    'Get a reference to the first page of the Pages collection.  
    Set vsoPage = vsoPages(1)  
  
    'Get the Document object for the stencil.  
    Set vsoStencil = Documents("Comps_U.VSS") 
  
    'Get the Master object for the desktop PC shape.  
    Set vsoMaster = vsoStencil.Masters("PC")  
 
    'Drop the shape in the approximate middle of the page.  
    'Coordinates passed to the Drop method are always in inches.  
    'The Drop method returns a reference to the new shape object.  
    Set vsoShape = vsoPage.Drop(vsoMaster, 4.25, 5.5)  
 
    'This example shows two methods of extracting shape data 
    'The first method retrieves the value of a shape data item by name.  
    'Note that Prop.Manufacturer implies Prop.Manufacturer.Value.  
    Set vsoCell = vsoShape.Cells("Prop.Manufacturer")  
 
    'Get the cell value as a string  
    'and put it into the text box on the form.  
    UserForm1.TextBox1.Text = vsoCell.ResultStrU(Visio.visNone)  
 
    'Set the caption of the label.  
    UserForm1.Label1.Caption = "Prop.Manufacturer"  
 
    'The second method of accessing shape data uses  
    'section, row, cell. This method is best when you want  
    'to iterate through all the shape data.  
    intRows = vsoShape.RowCount(Visio.visSectionProp)  
 
    'Make sure the list box is cleared.  
    UserForm1.ListBox1.Clear  
 
    'Loop through all the rows and add the value of Prop.Manufacturer  
    'to the list box. Rows are numbered starting with 0.  
    For intCounter = 0 To intRows - 1  
        Set vsoCell = vsoShape.CellsSRC(Visio.visSectionProp, intCounter, visCustPropsValue)  
        UserForm1.ListBox1.AddItem vsoCell.LocalName & vbTab & _  
            vsoCell.ResultStrU(Visio.visNone)  
    Next intCounter  
 
    'Display the user form.  
    UserForm1.Show  
 
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.