Propriedade Cell. Result (Visio)Cell.Result property (Visio)

Obtém ou define o valor de uma célula.Gets or sets a cell's value. Leitura/gravação.Read/write.

SintaxeSyntax

expressão. Resultado (UnitsNameOrCode)expression.Result (UnitsNameOrCode)

expressão Uma variável que representa um objeto Cell .expression A variable that represents a Cell object.

ParâmetrosParameters

NomeName Obrigatório/OpcionalRequired/Optional Tipo de dadosData type DescriçãoDescription
UnitsNameOrCodeUnitsNameOrCode ObrigatórioRequired VariantVariant As unidades que serão utilizadas ao recuperar ou definir o valor da célula.The units to use when retrieving or setting the cell's value.

Valor de retornoReturn value

DuploDouble

ComentáriosRemarks

Use a propriedade Result para definir o valor de uma célula não protegida.Use the Result property to set the value of an unguarded cell. Se a fórmula da célula é protegida pela função GUARD, a fórmula não é alterada e é gerado um erro.If the cell's formula is protected with the GUARD function, the formula is not changed and an error is generated. Se a célula contém apenas uma cadeia de caracteres de texto, é retornado zero (0).If the cell contains only a text string, zero (0) is returned. Se a cadeia de caracteres for inválida, é gerado um erro.If the string is invalid, an error is generated.

Você pode especificar UnitsNameOrCode como um inteiro ou um valor de cadeia de caracteres.You can specify UnitsNameOrCode as an integer or a string value. Por exemplo, as seguintes instruções definiram UnitsNameOrCode como polegadas.For example, the following statements all set UnitsNameOrCode to inches.

célula retval = . Result (visInches)retVal = Cell.Result (visInches)

célula retval = . Result (65)retVal = Cell.Result (65)

__ = acélula retval. Result ("pol") onde "pol" também pode ser qualquer uma das cadeias de caracteres alternativas que representam polegadas, como "polegada", "pol." ou "intCounter".retVal = Cell.Result ("in") where "in" can also be any of the alternate strings representing inches, such as "inch", "in.", or "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.For a complete list of valid unit strings along with corresponding Automation constants (integer values), see About units of measure.

Constantes de automação para representar unidades são declaradas pela biblioteca de tipos do Visio no membro VisUnitCodes.Automation constants for representing units are declared by the Visio type library in member VisUnitCodes.

Para especificar unidades internas, passe uma cadeia de caracteres de comprimento zero ("").To specify internal units, pass a zero-length string (""). Unidades internas são polegadas para distância e radianos para ângulos.Internal units are inches for distance and radians for angles. Para especificar unidades implícitas, você deve usar a propriedade Formula .To specify implicit units, you must use the Formula property.

ExemploExample

Esta macro do Microsoft Visual Basic for Applications (VBA) mostra como usar a propriedade Result .This Microsoft Visual Basic for Applications (VBA) macro shows how to use the Result property.

 
Public Sub Result_Example() 
 
 Dim vsoShape As Visio.Shape 
 Dim vsoCell As Visio.Cell 
 Dim intLocalCenterX As Double 
 
 'Draw a rectangle. 
 Set vsoShape = ActivePage.DrawRectangle(1, 5, 5, 1) 
 
 Set vsoCell = vsoShape.Cells("LocPinX") 
 intLocalCenterX = vsoCell.Result("cm") 
 Debug.Print intLocalCenterX 
 
 'You can also use the constants defined by the Visio type library. 
 intLocalCenterX = vsoCell.Result(visInches) 
 Debug.Print intLocalCenterX 
 
End Sub

Suporte e comentáriosSupport and feedback

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação?Have questions or feedback about Office VBA or this documentation? 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.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.