Propriedade Cell.Result (Visio)
Obtém ou define o valor de uma célula. Leitura/gravação.
Sintaxe
expressão. Resultado (UnitsNameOrCode)
Expressão Uma variável que representa um objeto Cell .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| UnitsNameOrCode | Obrigatório | Variantes | As unidades que serão utilizadas ao recuperar ou definir o valor da célula. |
Valor de retorno
Duplo
Comentários
Use a propriedade Result para definir o valor de uma célula não protegida. Se a fórmula da célula é protegida pela função GUARD, a fórmula não é alterada e é gerado um erro. Se a célula contém apenas uma cadeia de caracteres de texto, é retornado zero (0). Se a cadeia de caracteres for inválida, é gerado um erro.
Você pode especificar UnitsNameOrCode como um valor de cadeia de caracteres ou inteiro. Por exemplo, as seguintes instruções definiram UnitsNameOrCode como polegadas.
Retval = Cell.Result (visInches)
Retval = Cell.Result (65)
Retval = Cell.Result ("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.
Para especificar unidades internas, passe uma cadeia de caracteres de comprimento zero (""). Unidades internas são polegadas para distância e radianos para ângulos. Para especificar unidades implícitas, você deve usar a propriedade Formula.
Exemplo
Esta macro do Microsoft Visual Basic for Applications (VBA) mostra como usar a propriedade Result.
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á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.